exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Silence warning about wrong setting type

Browse Source
This commit is contained in:
Daniel Borchmann 2026-01-01 11:16:26 +01:00
parent 814a10621f
commit 112684c190
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
init.el
View File

@ -1140,6 +1140,16 @@ accordingly."
(use-package org-clock (use-package org-clock
:commands (org-clock-save) :commands (org-clock-save)
:init (progn :init (progn
;; We do not put this function into db-org.el, as it deals with concrete states that are
;; defined here in init.el.
(defun db/org-map-state-on-clock-in (state)
"Return followup state of STATE when starting a task."
(cond
((member state (list "TODO" "READ"))
"CONT")
((equal state "GOTO")
"ATTN")))
(setopt org-clock-history-length 35 (setopt org-clock-history-length 35
org-clock-in-resume t org-clock-in-resume t
org-clock-into-drawer t org-clock-into-drawer t
@ -1150,12 +1160,7 @@ accordingly."
org-clock-mode-line-total 'auto org-clock-mode-line-total 'auto
org-clock-clocked-in-display 'both org-clock-clocked-in-display 'both
org-clock-report-include-clocking-task t org-clock-report-include-clocking-task t
org-clock-in-switch-to-state #'(lambda (_) org-clock-in-switch-to-state 'db/org-map-state-on-clock-in
(cond
((member (org-get-todo-state) (list "TODO" "READ"))
"CONT")
((member (org-get-todo-state) (list "GOTO"))
"ATTN")))
org-clock-persist t org-clock-persist t
org-clock-persist-file (expand-file-name "org-clock-save.el" emacs-d-userdata) org-clock-persist-file (expand-file-name "org-clock-save.el" emacs-d-userdata)
org-clock-persist-query-resume nil org-clock-persist-query-resume nil