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

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

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