summaryrefslogtreecommitdiff
path: root/dashboard.el
diff options
context:
space:
mode:
Diffstat (limited to 'dashboard.el')
-rw-r--r--dashboard.el117
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)