diff options
| author | Christian Cunningham <cc@local.lan> | 2024-06-14 15:50:35 -0700 |
|---|---|---|
| committer | Christian Cunningham <cc@local.lan> | 2024-06-14 15:50:35 -0700 |
| commit | fa772bcf43395d50b0a08ae0e3391db21e030f2b (patch) | |
| tree | 0abbc46793715d07a9a85f4ed7a22c5b4dd7caaf | |
| parent | 2ae15f2755736d0b24247c9987a244561a194bd9 (diff) | |
Adjust Spacings
| -rw-r--r-- | elchemy-dashboard.el | 8 | ||||
| -rw-r--r-- | elchemy-user.el | 4 |
2 files changed, 4 insertions, 8 deletions
diff --git a/elchemy-dashboard.el b/elchemy-dashboard.el index 522c546..32efb92 100644 --- a/elchemy-dashboard.el +++ b/elchemy-dashboard.el @@ -134,11 +134,7 @@ (setq agenda-items (mapcar #'(lambda (x) (elchemy/get-agenda-items x 3)) elchemy/dashboard-agenda-titles) agenda-max-count (apply 'max (mapcar #'(lambda (x) (length x)) agenda-items)) agenda-max-length (apply 'max (mapcar #'(lambda (x) (apply 'max (mapcar #'(lambda (y) (length y)) x))) agenda-items))) - (let ((start (point))) - (insert (apply 'format (concat "%-" (format "%d" (+ agenda-max-length elchemy/dashboard-agenda-padding)) "s" "%-" (format "%d" (+ agenda-max-length elchemy/dashboard-agenda-padding)) "s" "%-" (format "%d" (+ agenda-max-length elchemy/dashboard-agenda-padding)) "s") elchemy/dashboard-agenda-titles)) - (add-text-properties start (point) - '(face (:weight bold :slant italic :foreground "red")))) - (insert "\n") + (insert (apply 'format (concat "%-" (format "%d" (+ agenda-max-length elchemy/dashboard-agenda-padding)) "s" "%-" (format "%d" (+ agenda-max-length elchemy/dashboard-agenda-padding)) "s" "%s\n") elchemy/dashboard-agenda-titles)) (dotimes (i agenda-max-count) (insert (format (concat "%-" (format "%d" (+ agenda-max-length elchemy/dashboard-agenda-padding)) "s") @@ -147,7 +143,7 @@ (concat "%-" (format "%d" (+ agenda-max-length elchemy/dashboard-agenda-padding)) "s") (elchemy/replace-nil (nth i (nth 1 agenda-items))))) (insert (format - (concat "%-" (format "%d" (+ agenda-max-length elchemy/dashboard-agenda-padding)) "s") + "%s" (elchemy/replace-nil (nth i (nth 2 agenda-items))))) (insert "\n") ) diff --git a/elchemy-user.el b/elchemy-user.el index a557804..8f42974 100644 --- a/elchemy-user.el +++ b/elchemy-user.el @@ -3,7 +3,7 @@ user-mail-address "sergey@sbrl.xyz") ;; Dashboard -(setq elchemy/dashboard/heading-columns 3 +(setq elchemy/dashboard/heading-columns 4 elchemy/dashboard/heading-buttons '(("Open Local TODO" . (lambda (x) (elchemy/find-file "~/org/todo.org"))) ("Open Remote TODO" . (lambda (x) (elchemy/find-file "/ssh:onid:todo.org"))) ("Open Local Notes" . (lambda (x) (elchemy/find-file "~/org/notes.org"))) @@ -19,7 +19,7 @@ ("Testing File" . (lambda (x) (elchemy/find-file "/ssh:onid:test.el"))) ) elchemy/dashboard/heading-max-length (apply #'max (mapcar #'(lambda (x) (length (car x))) elchemy/dashboard/heading-buttons)) - elchemy/dashboard/heading-padding 4) + elchemy/dashboard/heading-padding 2) ;; General Settings (setq default-directory "~/" |