msyds/sydnix
1
0
Fork 0
Code Issues 6 Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: msyds/sydnix:upgrade
Branches Tags
msyds/sydnix:main msyds/sydnix:delete-crumb msyds/sydnix:upgrade
..
compare: msyds/sydnix:5c5b6682ae87eb4415408cce4ef2931a4462759a
Branches Tags
msyds/sydnix:main msyds/sydnix:delete-crumb msyds/sydnix:upgrade
2 Commits
upgrade .. 5c5b6682ae
Author SHA1 Message Date
msyds 5c5b6682ae fix(emacs): geiser popup
build / build (push) Failing after 24s
Details
2026-06-29 19:14:45 -06:00
msyds 90ad26daf6 fix(emacs): project relative path: return nil when not in project
build / build (push) Failing after 38s
Details
2026-06-29 19:05:28 -06:00
2 changed files with 4 additions and 2 deletions
Expand all files Collapse all files
modules/home/users/msyds/emacs/lisp/syd/prelude.el
+2 -1
View File
@@ -202,7 +202,8 @@ form."
s)))) s))))
(defun syd-project-relative-file-name (file-name) (defun syd-project-relative-file-name (file-name)
(file-relative-name file-name (project-root (project-current)))) (when-let* ((proj (project-current)))
(file-relative-name file-name (project-root proj))))
(defvar syd-insert-file-name-alist (defvar syd-insert-file-name-alist
`((,#'syd-project-relative-file-name . "Project-relative") `((,#'syd-project-relative-file-name . "Project-relative")
modules/home/users/msyds/emacs/lisp/syd/scheme.el
+2 -1
View File
@@ -20,7 +20,8 @@
:load-buffer #'geiser-eval-buffer) :load-buffer #'geiser-eval-buffer)
(syd-push (syd-push
shackle-rules shackle-rules
`("*Geiser Documentation*" ,@syd-help-popup-options))) `("*Geiser Documentation*" ,@syd-help-popup-options)
`("*Geiser Debug*" ,@syd-help-popup-options)))
(use-package geiser-guile) (use-package geiser-guile)