dashboard: change picture

* dashboard.el (dashboard-cat-text, dashboard, dashboard-mode)
(dont-kill-dashboard-fn): Now the dashboard displays a picture of the
मन्त्र of bodhicitta, as well as the mantra in six syllables in
devanagari.  I am quite pleased by this change.

1 files changed, 83 insertions, 34 deletions

diff --git a/dashboard.el b/dashboard.el
index 56bb616..663cf7a 100644
--- a/dashboard.el
+++ b/dashboard.el
@@ -28,25 +28,54 @@
 (defvar dashboard-buffer-name "durand"
   "The name of the buffer for the dashboard.")
 
+;; TODO: Change this ASCII art.
+
 ;;;###autoload
 (defvar dashboard-cat-text
   (list
-   "                                      "
-   "                       /\\             "
-   "                      /  \\            "
-   "                     /    =\\=         "
-   "                    /  -     \\=-----  "
-   "                   /  |.|          /  "
-   "                 \\\\    -   -      /   "
-   "                  \\\\      |.|    |    "
-   "                 / \\\\      -    /     "
-   "                /   \\\\         /      "
-   "   ||==========|     ========\\=|      "
-   "   ||==========| --            |      "
-   "               | ||     /====  |      "
-   "               == |    /     \\  \\     "
-   "                  |   |       \\  \\    "
-   "                   ====        ====   ")
+"                 IIIII              "
+"                IIIIIII             "
+"I=======||       IIIII              "
+"I  =============I=====I=====I====== "
+"I IIIIIII   -   I     I     I     I "
+"I  IIIII   -I-========I=====I     I "
+"I           --  I     I     I     I "
+"I            \\\\\\I     I     I     I "
+"I                  == I     I     I "
+"I                 /  \\I     I     I "
+"I                /  III     I     I "
+"I                 \\\\==I     I     I "
+"I                 \\   I     I     I "
+"I                  ===I     I     I "
+"I                 /  \\I     I     I "
+"I                /  III     I     I "
+"I                 \\\\==I     I     I "
+"I                 III I     I     I "
+"I              III   II     I     I "
+"I               I  IIII     I     I "
+"I               IIIIIII     I     I "
+"I                  ===I     I     I "
+"I                 //  I     I     I "
+"I                =====I     I     I "
+"I               //    I     I     I "
+"\\\\               \\\\   \\\\    \\\\    \\\\"
+   ;; "                                      "
+   ;; "                       /\\             "
+   ;; "                      /  \\            "
+   ;; "                     /    =\\=         "
+   ;; "                    /  -     \\=-----  "
+   ;; "                   /  |.|          /  "
+   ;; "                 \\\\    -   -      /   "
+   ;; "                  \\\\      |.|    |    "
+   ;; "                 / \\\\      -    /     "
+   ;; "                /   \\\\         /      "
+   ;; "   ||==========|     ========\\=|      "
+   ;; "   ||==========| --            |      "
+   ;; "               | ||     /====  |      "
+   ;; "               == |    /     \\  \\     "
+   ;; "                  |   |       \\  \\    "
+   ;; "                   ====        ====   "
+   )
   "A clumsy text representation of a cute cat.")
 
 ;;;###autoload
@@ -62,15 +91,16 @@ If FORCE is non-nil, re-gerenate the dashboard buffer."
       (switch-to-buffer dashboard))
      (t
       (with-current-buffer dashboard
-        (setq buffer-undo-list t)
         (erase-buffer)
         (cond
          ((display-graphic-p)
           (let ((image
                  (create-image
                   (expand-file-name
-                   "cat.png"
-                   user-emacs-directory))))
+                   "बोधिचित्तं.png"
+                   user-emacs-directory)
+                  nil nil
+                  :scale 0.5)))
             (insert
              (make-string 3 10)
              (dashboard-center-string
@@ -78,15 +108,31 @@ If FORCE is non-nil, re-gerenate the dashboard buffer."
                " "
                'display image
                'rear-nonsticky '(display))))))
-         ((mapc (function
-                 (lambda (str)
-                   (insert
-                    (dashboard-center-string str)
-                    "\n")))
-                dashboard-cat-text)))
+         ((let ((width
+                 (with-temp-buffer 
+                   (insert (mapconcat #'identity
+                                      dashboard-cat-text
+                                      (string 10)))
+                   (car (buffer-text-pixel-size)))))
+            (mapc
+             (lambda (text)
+               (insert
+                (make-string
+                 (floor
+                  (- (window-width nil t)
+                     (string-pixel-width (string 32))
+                     width)
+                  2)
+                 32)
+                text
+                10))
+             dashboard-cat-text))))
         (newline 5)
         (insert
-         (dashboard-center-string "Dashboard"))
+         (dashboard-center-string
+          (propertize
+           "ॐ मणिपद्मे हूम्"
+           'face (list :height 600))))
         (set-buffer-modified-p nil)
         (read-only-mode 1)
         (set
@@ -104,7 +150,10 @@ If FORCE is non-nil, re-gerenate the dashboard buffer."
 (define-derived-mode dashboard-mode nil "Dashboard"
   "Major mode for the dashboard buffer.
 The main purpose is to provide a dedicated keymap to access
-common functionalities more conveniently.")
+common functionalities more conveniently."
+  (font-lock-mode -1)
+  (setq buffer-undo-list t)
+  (setq-local cursor-type nil))
 
 (let ((m dashboard-mode-map))
   (define-key m (vector ?l) #'blist)
@@ -164,13 +213,13 @@ calls `%s' otherwise."
 ;;;###autoload
 (defun dont-kill-dashboard-fn ()
   "Don't kill the dashboard buffer."
-  (cond
-   ((eq (current-buffer) (get-buffer dashboard-buffer-name))
-    ;; The function message returns the message, so applying not will
-    ;; produce nil as needed.
-    ;; "Please don't kill the dashboard buffer"
-    (not (message "न निहन्याद्घाटीफलकनिधानकम्")))
-   (t)))
+  ;; The function message returns the message, so applying not will
+  ;; produce nil as needed.
+  ;; "Please don't kill the dashboard buffer"
+  (not
+   (cond
+    ((eq (current-buffer) (get-buffer dashboard-buffer-name))
+     (message "न निहन्याद्घाटीफलकनिधानकम्")))))
 
 (add-hook 'kill-buffer-query-functions 'dont-kill-dashboard-fn)