awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Refactor doom-dashboard-draw-ascii-banner-fn

Browse Source
This commit is contained in:
Henrik Lissner
2020-11-18 19:57:38 -05:00
parent 03fe396eea
commit 86c2f05252
1 changed files with 31 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
modules/ui/doom-dashboard/config.el
View File

@ -385,10 +385,7 @@ controlled by `+doom-dashboard-pwd-policy'."
;;; Widgets ;;; Widgets
(defun doom-dashboard-draw-ascii-banner-fn () (defun doom-dashboard-draw-ascii-banner-fn ()
(mapc (lambda (line) (let* ((banner
(insert (propertize (+doom-dashboard--center +doom-dashboard--width line)
'face 'doom-dashboard-banner) " ")
(insert "\n"))
'("================= =============== =============== ======== ========" '("================= =============== =============== ======== ========"
"\\\\ . . . . . . .\\\\ //. . . . . . .\\\\ //. . . . . . .\\\\ \\\\. . .\\\\// . . //" "\\\\ . . . . . . .\\\\ //. . . . . . .\\\\ //. . . . . . .\\\\ \\\\. . .\\\\// . . //"
"||. . ._____. . .|| ||. . ._____. . .|| ||. . ._____. . .|| || . . .\\/ . . .||" "||. . ._____. . .|| ||. . ._____. . .|| ||. . ._____. . .|| || . . .\\/ . . .||"
@ -407,7 +404,18 @@ controlled by `+doom-dashboard-pwd-policy'."
"||.==' _-' `' | /==.||" "||.==' _-' `' | /==.||"
"==' _-' E M A C S \\/ `==" "==' _-' E M A C S \\/ `=="
"\\ _-' `-_ /" "\\ _-' `-_ /"
"`'' ``'"))) "`'' ``'"))
(longest-line (apply #'max (mapcar #'length banner))))
(put-text-property
(point)
(dolist (line banner (point))
(insert (+doom-dashboard--center
+doom-dashboard--width
(concat
line (make-string (max 0 (- longest-line (length line)))
32)))
"\n"))
'face 'doom-dashboard-banner)))
(defun doom-dashboard-widget-banner () (defun doom-dashboard-widget-banner ()
(let ((point (point))) (let ((point (point)))