emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
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
(defun doom-dashboard-draw-ascii-banner-fn ()
(mapc (lambda (line)
(insert (propertize (+doom-dashboard--center +doom-dashboard--width line)
'face 'doom-dashboard-banner) " ")
(insert "\n"))
(let* ((banner
'("================= =============== =============== ======== ========"
"\\\\ . . . . . . .\\\\ //. . . . . . .\\\\ //. . . . . . .\\\\ \\\\. . .\\\\// . . //"
"||. . ._____. . .|| ||. . ._____. . .|| ||. . ._____. . .|| || . . .\\/ . . .||"
@ -407,7 +404,18 @@ controlled by `+doom-dashboard-pwd-policy'."
"||.==' _-' `' | /==.||"
"==' _-' 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 ()
(let ((point (point)))