Merge pull request #2245 from VisenDev/init

Add `open-init-file` command

Author: vindarel

extensions/lem-dashboard/dashboard-items.lisp

@@ -212,3 +212,15 @@ Returns three values: prefix, main-text, suffix."
                             (lambda ()
                               (find-file f))))))
                      (insert-character point #\Newline))))))))
+
+(defclass dashboard-init-file (dashboard-item)
+  ()
+  (:documentation "Lets the user open their init file.")
+  (:default-initargs
+   :item-attribute 'document-header4-attribute
+   :action (lambda ()
+             (lem:call-command 'lem-core/commands/file:open-init-file nil))))
+
+(defmethod draw-dashboard-item ((item dashboard-init-file) point)
+    (insert-string point (create-centered-string "Open Init File") :attribute 'document-header4-attribute)
+    (insert-character point #\Newline))

extensions/lem-dashboard/default-dashboard.lisp

@@ -57,6 +57,11 @@
                                :display-text " New Lisp Scratch Buffer (l)"
                                :action-command 'lem-lisp-mode:lisp-scratch
                                :item-attribute 'document-header2-attribute
+                               :bottom-margin 1)
+                (make-instance 'dashboard-command
+                               :display-text "⚒ Open Lem Init File (i)"
+                               :action-command 'lem-core/commands/file:open-init-file
+                               :item-attribute 'document-header2-attribute
                                :bottom-margin 2))))
     (unless hide-links
       (setf dashboard-items
@@ -82,5 +87,6 @@
 (define-key *dashboard-mode-keymap* "r" 'dashboard-move-to-recent-projects)
 (define-key *dashboard-mode-keymap* "f" 'dashboard-move-to-recent-files)
 (define-key *dashboard-mode-keymap* "l" 'lem-lisp-mode/internal:lisp-scratch)
+(define-key *dashboard-mode-keymap* "i" 'lem-core/commands/file:open-init-file)
 
 (set-default-dashboard)

src/commands/file.lisp

@@ -4,6 +4,7 @@
            :find-file-executor
            :execute-find-file
            :find-file
+           :open-init-file
            :find-file-recursively
            :read-file
            :add-newline-at-eof-on-writing-file
@@ -106,6 +107,10 @@
         (when (bufferp buffer)
           (switch-to-buffer buffer t nil))))))
 
+(define-command open-init-file () ()
+  "Opens the lem init file"
+  (find-file (lem-core:get-preferred-init-file-path)))
+
 (defmethod execute-find-file :before (executor mode pathname)
   (directory-for-file-or-lose pathname))
 

src/internal-packages.lisp

@@ -638,7 +638,8 @@
    :init-at-build-time
    :lem
    :launch
-   :main)
+   :main
+   :get-preferred-init-file-path)
   ;; command-advices.lisp
   (:export
    :movable-advice

src/lem.lisp

@@ -7,6 +7,9 @@
 
 (defvar *in-the-editor* nil)
 
+(defparameter *init-file-name* "init.lisp"
+  "The name of the init file found within (lem-home)")
+
 (defun setup-first-frame ()
   (let ((frame (make-frame nil)))
     (map-frame (implementation) frame)
@@ -33,6 +36,10 @@
 (defun teardown ()
   (teardown-frames))
 
+(defun get-preferred-init-file-path ()
+  "Returns the full path to the preferred init file"
+  (merge-pathnames *init-file-name* (lem-home)))
+
 (defun load-init-file ()
   (flet ((maybe-load (path)
            (when (probe-file path)
@@ -42,7 +49,7 @@
     (let ((home (user-homedir-pathname))
           (current-dir (probe-file "."))
           (*package* (find-package :lem-user)))
-      (or (maybe-load (merge-pathnames "init.lisp" (lem-home)))
+      (or (maybe-load (get-preferred-init-file-path))
           (maybe-load (merge-pathnames ".lemrc" home)))
       (unless (uiop:pathname-equal current-dir (user-homedir-pathname))
         (maybe-load (merge-pathnames ".lemrc" current-dir))))))