diff options
Diffstat (limited to '.config')
| -rw-r--r-- | .config/emacs/bd-mode-and-themes.el | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/.config/emacs/bd-mode-and-themes.el b/.config/emacs/bd-mode-and-themes.el index cf346eb..dbab69a 100644 --- a/.config/emacs/bd-mode-and-themes.el +++ b/.config/emacs/bd-mode-and-themes.el @@ -32,11 +32,27 @@ (setq emms-mode-line-icon-before-format (format "%s" (all-the-icons-fileicon "owl")) emms-mode-line-icon-enabled-p t)) +(use-package ednc + :init + (progn (defun stack-notifications (&optional hide) + "Return active notifications as a string, one +per application." + (mapconcat (lambda (notification + (let ((app-name (ednc-notification-app-name notification))) + (unless (member app-name hide) + (push app-name hide) + (end-format-notification notification))) + (ednc-notifications) ""))))) + :config + (ednc-mode) + (nconc global-mode-string '((:eval (stack-notifications)))) + (add-hook 'ednc-notification-presentation-functions + (lambda (&rest _) (force-mode-line-update t)))) + ;;;; time and date (setq display-time-format "%m/%d/%y %H:%M (%a)" display-time-default-load-average nil) (display-time) -(display-battery-mode 1) (defvar-local bd/misc-mode-line '(:eval @@ -55,7 +71,9 @@ only in the selected buffer.") 'display `((space :align-to (- (+ right right-fringe right-margin) ,reserve))))) ;;;; pad out space for time (this method is probably horrendous) -(insert-into-list global-mode-string (mode-line-fill 21) (cl-position 'display-time-string global-mode-string)) +(insert-into-list global-mode-string (mode-line-fill 30) (cl-position 'display-time-string global-mode-string)) + + ; 21 (dolist (construct '(bd/buffer-identification-mode-line bd/vc-mode-line |