Dashboard: add tutorial

Author: vindarel

extensions/lem-dashboard/dashboard-items.lisp

@@ -212,15 +212,3 @@ 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

@@ -53,6 +53,11 @@
                 (make-instance 'dashboard-recent-files 
                                :file-count file-count
                                :bottom-margin 1)
+                (make-instance 'dashboard-command
+                               :display-text "⚒ Tutorial (t)"
+                               :action-command 'lem-tutor:tutorial
+                               :item-attribute 'document-header2-attribute
+                               :bottom-margin 1)
                 (make-instance 'dashboard-command
                                :display-text " New Lisp Scratch Buffer (l)"
                                :action-command 'lem-lisp-mode:lisp-scratch
@@ -87,6 +92,7 @@
 (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* "t" 'lem-tutor:tutorial)
 (define-key *dashboard-mode-keymap* "i" 'lem-core/commands/file:open-init-file)
 
 (set-default-dashboard)

extensions/lem-dashboard/lem-dashboard.asd

@@ -1,5 +1,6 @@
 (defsystem "lem-dashboard"
-  :depends-on (:lem/core)
+  :depends-on (:lem/core
+               :lem-tutor)
   :serial t
   :components ((:file "lem-dashboard")
                (:file "dashboard-items")

extensions/lem-dashboard/lem-dashboard.lisp

@@ -11,7 +11,12 @@
   (:local-nicknames (:button :lem/button)
                     (:history :lem/common/history)
                     (:project :lem-core/commands/project)
-                    (:file :lem-core/commands/file)))
+                    (:file :lem-core/commands/file))
+  (:documentation "The dashboard is composed of multiple DASHBOARD-ITEM of different kinds (a list of files, a URL, a clickable link… see them in dashboard-items.lisp).
+
+   The default dashboard is defined in default-dashboard.lisp.
+
+   To change the layout, pass SET-DASHBOARD a list of items (which eventually sets *dashboard-layout*). See also REDRAW-DASHBOARD."))
 
 (in-package :lem-dashboard)