emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Introduce +doom-dashboard-ascii-banner-fn setting

Browse source
This commit is contained in:
Henrik Lissner 2020-11-15 09:49:30 -05:00
parent aa02dc14a4
commit befb2baeda
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 30 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

13
modules/ui/doom-dashboard/config.el
View file

@ -19,6 +19,9 @@ relative to `+doom-dashboard-banner-dir'. If nil, always use the ASCII banner.")
(defvar +doom-dashboard-banner-dir (concat (dir!) "/banners/")
"Where to look for `+doom-dashboard-banner-file'.")
(defvar +doom-dashboard-ascii-banner-fn #'doom-dashboard-draw-ascii-banner-fn
"The function used to generate the ASCII banner on Doom's dashboard.")
(defvar +doom-dashboard-banner-padding '(0 . 4)
"Number of newlines to pad the banner with, above and below, respectively.")
@ -381,8 +384,7 @@ controlled by `+doom-dashboard-pwd-policy'."
;;
;;; Widgets
(defun doom-dashboard-widget-banner ()
(let ((point (point)))
(defun doom-dashboard-draw-ascii-banner-fn ()
(mapc (lambda (line)
(insert (propertize (+doom-dashboard--center +doom-dashboard--width line)
'face 'doom-dashboard-banner) " ")
@ -405,7 +407,12 @@ controlled by `+doom-dashboard-pwd-policy'."
"||.==' _-' `' | /==.||"
"==' _-' E M A C S \\/ `=="
"\\ _-' `-_ /"
"`'' ``'"))
"`'' ``'")))
(defun doom-dashboard-widget-banner ()
(let ((point (point)))
(when (functionp +doom-dashboard-ascii-banner-fn)
(funcall +doom-dashboard-ascii-banner-fn))
(when (and (display-graphic-p)
(stringp fancy-splash-image)
(file-readable-p fancy-splash-image))