From 8e2b38c9dab608efc5e37a99bd3699628dd861f5 Mon Sep 17 00:00:00 2001 From: Christian Cunningham Date: Mon, 8 Jul 2024 21:10:57 -0700 Subject: More Dynamic Dashboard Remove hardcoded string that a user might want to customize --- elchemy-dashboard.el | 4 ++-- elchemy-user.el | 3 ++- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/elchemy-dashboard.el b/elchemy-dashboard.el index de9d755..9df76cf 100644 --- a/elchemy-dashboard.el +++ b/elchemy-dashboard.el @@ -10,7 +10,7 @@ (insert-image (create-image (concat elchemy/elchemy-root elchemy/dashboard-splash) nil nil :scale 0.25)) (insert "\n")) (let ((start (point))) - (insert "Elchemy Dashboard") + (insert elchemy/dashboard/header-text) (add-text-properties start (point) `(face (:height ,elchemy/dashboard/header-size)))) (insert "\n") @@ -58,7 +58,7 @@ (add-text-properties start (point) `(face (:height ,elchemy/dashboard/subheader-size)))) (insert "\n") - (setq overdue-s (elchemy/format-processed-agenda (mapcar 'elchemy/process-agenda-heading (org-ql-select (org-agenda-files) `(and (todo "STRT" "WAIT" "TODO" "CYCL") (ts :from ,(- elchemy/schedule-lookahead) :to today)) :sort '(todo priority date))))) + (setq overdue-s (elchemy/format-processed-agenda (mapcar 'elchemy/process-agenda-heading (org-ql-select (org-agenda-files) `(and (todo "STRT" "WAIT" "TODO" "CYCL") (ts :from ,(- elchemy/schedule-lookahead) :to -1)) :sort '(todo priority date))))) (if (eq (length overdue-s) 0) (insert "Yay, nothing here!\n") (insert overdue-s)) diff --git a/elchemy-user.el b/elchemy-user.el index b4e6eef..41f2376 100644 --- a/elchemy-user.el +++ b/elchemy-user.el @@ -3,7 +3,8 @@ user-mail-address "sergey@sbrl.xyz") ;; Dashboard -(setq elchemy/dashboard/heading-columns 4 +(setq elchemy/dashboard/header-text "Dashboard" + elchemy/dashboard/heading-columns 4 elchemy/dashboard/heading-padding 2 elchemy/dashboard/projects-columns 4 elchemy/dashboard/projects-padding 2 -- cgit v1.2.1