refactor: move constants to me-vars

abougouffa · Dec 19, 2023 · 1d7aeb7 · 1d7aeb7
1 parent 8452ff5
commit 1d7aeb7
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/core/me-vars.el b/core/me-vars.el
@@ -82,6 +82,11 @@ environment variable \"$MINEMACS_IGNORE_USER_CONFIG\".")
           (const :tag "Log" 3)
           (const :tag "Debug" 4)))
 
+(defconst minemacs-directory-arg-p
+  (let ((args (cdr command-line-args))) (cl-some #'file-directory-p args)))
+
+(defconst minemacs-file-arg-p (and (cdr command-line-args) t))
+
 ;; Derive the root directory from this file path
 (defconst minemacs-root-dir (abbreviate-file-name (file-name-directory (directory-file-name (file-name-directory (file-truename load-file-name))))))
 (defconst minemacs-core-dir (concat minemacs-root-dir "core/"))

diff --git a/modules/me-files.el b/modules/me-files.el
@@ -8,12 +8,9 @@
 
 ;;; Code:
 
-(defconst minemacs-started-with-directory-p
-  (let ((args (cdr command-line-args))) (cl-some #'file-directory-p args)))
-
 (use-package dirvish
   :straight t
-  :demand minemacs-started-with-directory-p
+  :demand minemacs-directory-arg-p
   :custom
   (dirvish-attributes '(subtree-state nerd-icons file-size vc-state git-msg))
   (dirvish-cache-dir (+directory-ensure minemacs-cache-dir "dirvish/"))