refactor: minor refactors

This commit is contained in:
Henrik Lissner
2024-07-18 22:35:17 -04:00
parent 98a3cad54d
commit db36c74bbb
3 changed files with 3 additions and 5 deletions

View File

@ -23,7 +23,7 @@
(with-temp-file "org-version.el" (with-temp-file "org-version.el"
(let ((version (let ((version
(with-temp-buffer (with-temp-buffer
(insert-file-contents (doom-path "lisp/org.el") nil 0 1024) (insert-file-contents "lisp/org.el" nil 0 1024)
(if (re-search-forward "^;; Version: \\([^\n-]+\\)" nil t) (if (re-search-forward "^;; Version: \\([^\n-]+\\)" nil t)
(match-string-no-properties 1) (match-string-no-properties 1)
"Unknown")))) "Unknown"))))

View File

@ -35,7 +35,7 @@
;; Delete files to trash on macOS, as an extra layer of precaution against ;; Delete files to trash on macOS, as an extra layer of precaution against
;; accidentally deleting wanted files. ;; accidentally deleting wanted files.
(setq delete-by-moving-to-trash t) (setq delete-by-moving-to-trash (not noninteractive))
;; ;;

View File

@ -5,9 +5,7 @@
"Please don't leave, there's more demons to toast!" "Please don't leave, there's more demons to toast!"
"Let's beat it -- This is turning into a bloodbath!" "Let's beat it -- This is turning into a bloodbath!"
,(format "I wouldn't leave if I were you. %s is much worse." ,(format "I wouldn't leave if I were you. %s is much worse."
(if (member system-type '(ms-dos-windows-nt cygwin)) (if (featurep :system 'windows) "DOS" "UNIX"))
"DOS"
"UNIX"))
"Don't leave yet -- There's a demon around that corner!" "Don't leave yet -- There's a demon around that corner!"
"Ya know, next time you come in here I'm gonna toast ya." "Ya know, next time you come in here I'm gonna toast ya."
"Go ahead and leave. See if I care." "Go ahead and leave. See if I care."