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

Refactor +doom-dashboard-reload

Browse source
This commit is contained in:
Henrik Lissner 2017-06-16 00:43:19 +02:00
parent a3adc1de29
commit 2dc6ea0f53
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 19 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -104,18 +104,17 @@ whose dimensions may not be fully initialized by the time this is run."
(or (and (featurep! :ui doom-modeline) (or (and (featurep! :ui doom-modeline)
(doom-modeline 'project)) (doom-modeline 'project))
mode-line-format))) mode-line-format)))
(let ((old-pwd (or dir default-directory)) (let ((old-pwd (or dir default-directory)))
(inhibit-read-only t))
(with-current-buffer (doom-fallback-buffer) (with-current-buffer (doom-fallback-buffer)
(with-silent-modifications
(read-only-mode +1) (read-only-mode +1)
(+doom-dashboard-mode) (+doom-dashboard-mode)
(setq fringe-indicator-alist
(cl-loop for (car . _cdr) in fringe-indicator-alist (cl-loop for (car . _cdr) in fringe-indicator-alist
collect (cons car nil))) collect (cons car nil) into alist
finally do (setq fringe-indicator-alist alist))
(erase-buffer) (erase-buffer)
(let* ((window (get-buffer-window (doom-fallback-buffer))) (let ((+doom-dashboard--width (window-width))
(+doom-dashboard--width (window-width window)) (+doom-dashboard--height (window-height)))
(+doom-dashboard--height (window-height window)))
(insert (make-string (max 0 (- (truncate (/ +doom-dashboard--height 2)) 16)) ?\n)) (insert (make-string (max 0 (- (truncate (/ +doom-dashboard--height 2)) 16)) ?\n))
(dolist (widget-name +doom-dashboard-widgets) (dolist (widget-name +doom-dashboard-widgets)
(funcall (intern (format "doom-dashboard-widget--%s" widget-name))) (funcall (intern (format "doom-dashboard-widget--%s" widget-name)))
@ -124,7 +123,7 @@ whose dimensions may not be fully initialized by the time this is run."
mode-line-format +doom-dashboard-modeline) mode-line-format +doom-dashboard-modeline)
(unless (button-at (point)) (unless (button-at (point))
(goto-char (point-min)) (goto-char (point-min))
(goto-char (next-button (point))))))) (goto-char (next-button (point))))))))
t) t)
(defun doom-dashboard-widget--banner () (defun doom-dashboard-widget--banner ()