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

ui/doom-dashboard: add vertical centering (experimental)

Browse source
This commit is contained in:
Henrik Lissner 2018-05-15 13:28:39 +02:00
parent 7eb0dd6340
commit 06c22a5af2
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 33 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -115,6 +115,7 @@ Possible values:
(defun +doom-dashboard|init () (defun +doom-dashboard|init ()
"Initializes Doom's dashboard." "Initializes Doom's dashboard."
(add-hook 'window-configuration-change-hook #'+doom-dashboard|resize) (add-hook 'window-configuration-change-hook #'+doom-dashboard|resize)
(add-hook 'window-size-change-functions #'+doom-dashboard|resize)
(add-hook 'kill-buffer-query-functions #'+doom-dashboard|reload-on-kill) (add-hook 'kill-buffer-query-functions #'+doom-dashboard|reload-on-kill)
(add-hook 'doom-after-switch-buffer-hook #'+doom-dashboard|reload-on-kill) (add-hook 'doom-after-switch-buffer-hook #'+doom-dashboard|reload-on-kill)
(unless (daemonp) (unless (daemonp)
@ -146,12 +147,35 @@ If this is the dashboard buffer, reload the dashboard."
whose dimensions may not be fully initialized by the time this is run." whose dimensions may not be fully initialized by the time this is run."
(run-with-timer 0.1 nil #'+doom-dashboard/open frame)) (run-with-timer 0.1 nil #'+doom-dashboard/open frame))
(defun +doom-dashboard|resize () (defun +doom-dashboard|resize (&rest _)
"Resize the margins and fringes on dashboard windows." "Recenter the dashboard, and reset its margins and fringes."
(dolist (win (get-buffer-window-list (doom-fallback-buffer) nil t)) (let ((windows (get-buffer-window-list (doom-fallback-buffer) nil t)))
(dolist (win windows)
(set-window-start win 0)
(set-window-fringes win 0 0) (set-window-fringes win 0 0)
(set-window-margins (set-window-margins
win (max 0 (/ (- (window-total-width win) +doom-dashboard--width) 2))))) win (max 0 (/ (- (window-total-width win) +doom-dashboard--width) 2))))
(when windows
(with-current-buffer (doom-fallback-buffer)
(save-excursion
(with-silent-modifications
(goto-char (point-min))
(cond ((display-graphic-p)
(delete-region (line-beginning-position) (1+ (line-end-position)))
(insert (propertize
(char-to-string ?\uE001)
'display `((space :align-to 0
:height ,(max 0 (- (/ (window-height (get-buffer-window)) 2)
(/ (count-lines (point-min) (point-max)) 2.5))))))
"\n"))
(t
(while (string-empty-p (buffer-substring-no-properties (line-beginning-position) (line-end-position)))
(delete-region (line-beginning-position) (1+ (line-end-position))))
(insert
"\n"
(make-string (max 0 (- (/ (window-height (get-buffer-window)) 2)
(/ (count-lines (point-min) (point-max)) 2)))
?\n))))))))))
(defun +doom-dashboard|detect-project (&rest _) (defun +doom-dashboard|detect-project (&rest _)
"Check for a `last-project-root' parameter in the perspective, and set the "Check for a `last-project-root' parameter in the perspective, and set the
@ -212,13 +236,10 @@ controlled by `+doom-dashboard-pwd-policy'."
(unless (eq major-mode '+doom-dashboard-mode) (unless (eq major-mode '+doom-dashboard-mode)
(+doom-dashboard-mode)) (+doom-dashboard-mode))
(erase-buffer) (erase-buffer)
(save-excursion (mapc #'funcall +doom-dashboard-functions)) (insert "\n")
(insert (run-hooks '+doom-dashboard-functions)))
(make-string (max 0 (- (/ (window-height (get-buffer-window)) 2)
(/ (count-lines (point-min) (point-max)) 2)))
?\n))))
(+doom-dashboard|detect-project)
(+doom-dashboard|resize) (+doom-dashboard|resize)
(+doom-dashboard|detect-project)
(+doom-dashboard-update-pwd) (+doom-dashboard-update-pwd)
(current-buffer)))) (current-buffer))))