diff options
| author | Christian Cunningham <cc@localhost> | 2024-07-08 21:10:57 -0700 |
|---|---|---|
| committer | Christian Cunningham <cc@localhost> | 2024-07-08 21:10:57 -0700 |
| commit | 8e2b38c9dab608efc5e37a99bd3699628dd861f5 (patch) | |
| tree | 4ed69e545a18fbe0c5f2cd940d28121f21c25262 /elchemy-dashboard.el | |
| parent | cb680cb5478185b7641fd3ca63a0ac417001286a (diff) | |
Remove hardcoded string that a user might want to customize
Diffstat (limited to 'elchemy-dashboard.el')
| -rw-r--r-- | elchemy-dashboard.el | 4 |
1 files changed, 2 insertions, 2 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)) |