Compare commits
5
Commits
upgrade
...
cc48c11448
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
cc48c11448 | ||
|
|
7e73ef399a | ||
|
|
ba158c9ee8 | ||
|
|
5c5b6682ae | ||
|
|
90ad26daf6 |
@@ -48,7 +48,10 @@ directory."
|
|||||||
'("-l" ; Mandatory!
|
'("-l" ; Mandatory!
|
||||||
"--almost-all" ; Show hidden files; omit '.' and '..'.
|
"--almost-all" ; Show hidden files; omit '.' and '..'.
|
||||||
"--human-readable" ; Display sizes in human-readable units.
|
"--human-readable" ; Display sizes in human-readable units.
|
||||||
"--time-style=+") ; Omit times/dates.
|
"--time-style=+" ; Omit times/dates.
|
||||||
|
"-D" ; special diredslop
|
||||||
|
"-v" ; sort dotfiles first
|
||||||
|
"--group-directories-first")
|
||||||
" "))
|
" "))
|
||||||
;; Always copy recursively
|
;; Always copy recursively
|
||||||
(dired-recursive-copies 'always)
|
(dired-recursive-copies 'always)
|
||||||
|
|||||||
@@ -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")
|
||||||
|
|||||||
@@ -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)
|
||||||
|
|
||||||
|
|||||||
@@ -3,7 +3,6 @@
|
|||||||
(require 'syd/base)
|
(require 'syd/base)
|
||||||
|
|
||||||
(use-package transient
|
(use-package transient
|
||||||
:straight nil
|
|
||||||
:custom ((transient-history-file
|
:custom ((transient-history-file
|
||||||
(file-name-concat syd-data-dir "transient/history.el"))))
|
(file-name-concat syd-data-dir "transient/history.el"))))
|
||||||
|
|
||||||
|
|||||||
@@ -4,10 +4,10 @@
|
|||||||
config = {
|
config = {
|
||||||
networking.hosts = {
|
networking.hosts = {
|
||||||
"100.95.131.43" = [ "whitepc" ];
|
"100.95.131.43" = [ "whitepc" ];
|
||||||
"192.168.68.66" = [ "guix-rebound" "sydpc" ];
|
"10.0.0.109" = [ "guix-rebound" "sydpc" ];
|
||||||
"192.168.68.79" = [ "deertopia" ];
|
"10.0.0.248" = [ "deertopia" ];
|
||||||
"192.168.68.55" = [ "fruitbook" ];
|
"10.0.0.218" = [ "fruitbook" ];
|
||||||
"192.168.68.62" = [ "buffalo-nas" ];
|
"10.0.0.203" = [ "buffalo-nas" ];
|
||||||
};
|
};
|
||||||
};
|
};
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user