refactor: minor refactors

This commit is contained in:
Henrik Lissner 2024-07-18 22:35:17 -04:00
parent 98a3cad54d
commit db36c74bbb
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
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."