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

Move most `defcustom' declarations to `db-customize'

This commit is contained in:
Daniel - 2020-06-26 22:07:39 +02:00
parent b2709c0187
commit 7c8b28c9bc
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
2 changed files with 84 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

81
init.el
View File

@ -293,12 +293,16 @@
db/important-documents-path
db/path-to-onenote
db/path-to-outlook
db/cert-file-directory))
(defcustom db/after-init-load-files nil
"A list of files to be loaded by `db/run-init' as the last step."
:group 'personal-settings
:type '(repeat file))
db/cert-file-directory
org-working-task-id
org-break-task-id
org-home-task-id
db/org-clock-current-task-file
db/org-default-work-file
db/org-default-home-file
db/org-default-notes-file
db/org-default-refile-file
db/after-init-load-files))
;; * General configuration
@ -891,28 +895,6 @@ With given ARG, display files in `db/important-document-path’."
;; This is different in the original implementation
(org-entry-get pom property))))))
;; Default Tasks for Working, Home, Breaks
(defcustom org-working-task-id ""
"Task ID of default working task."
:group 'personal-settings
:type 'string)
(defcustom org-break-task-id ""
"Task ID of default break task."
:group 'personal-settings
:type 'string)
(defcustom org-home-task-id ""
"Task ID of default home task."
:group 'personal-settings
:type 'string)
(defcustom db/org-clock-current-task-file "~/.org-current-task"
"File to save the currently clocked in task to."
:group 'personal-settings
:type 'string)
(use-package org-clock
:defer t
:commands (org-clock-save)
@ -960,49 +942,6 @@ With given ARG, display files in `db/important-document-path’."
;; Agenda
;; NB: some of those files should also be elements of `org-agenda-files', but
;; this is not done automatically. The reason is that automatically changing
;; `org-agenda-files' when setting those variables may conflict with the
;; customization of `org-agenda-files' itself. Thus, when setting one of those
;; variables would update `org-agenda-files' (possibly saving the customiztion),
;; the original value of `org-agenda-files' would be gone. Conversely, loading
;; the customization for `org-agenda-files' would overwrite the work done by
;; custom setters. Thus, the only reasonable thing to do is to not update
;; `org-agenda-files' automatically and leave it to the user to update it.
(defcustom db/org-default-work-file nil
"Path to default org-mode file at work.
You may also want to add this file to `org-agenda-files'."
:group 'personal-settings
:type '(choice (const nil) file))
(defcustom db/org-default-home-file nil
"Path to default org-mode file at home.
You may also want to add this file to `org-agenda-files'."
:group 'personal-settings
:type '(choice (const nil) file))
(defcustom db/org-default-notes-file nil
"Path to default org-mode file for notes.
You may also want to add this file to `org-agenda-files'."
:group 'personal-settings
:type '(choice (const nil) file))
(defcustom db/org-default-refile-file nil
"Path to default org-mode file for capturing.
This file is used by `org-agenda' to query for tasks that need to
be refiled, independently of whether it's part of
`org-agenda-files' or not. You may still want to add this file
to `org-agenda-files' to have appointments, deadlines, etc shown
in the main agenda view."
:group 'personal-settings
:type '(choice (const nil) file))
(defcustom db/org-default-pensieve-file nil
"Path to default org-mode file for private notes."
:group 'personal-settings
:type '(choice (const nil) file))
(use-package org-agenda
:commands (org-agenda)
:bind (:map org-agenda-mode-map

74
site-lisp/db-customize.el
View File

@ -56,6 +56,80 @@ If this path is not set, i.e., is null, no automatic download will happen."
:group 'personal-settings
:type '(choice (const nil) file))
(defcustom db/after-init-load-files nil
"A list of files to be loaded by `db/run-init' as the last step."
:group 'personal-settings
:type '(repeat file))
(defcustom org-working-task-id ""
"Task ID of default working task."
:group 'personal-settings
:type 'string)
(defcustom org-break-task-id ""
"Task ID of default break task."
:group 'personal-settings
:type 'string)
(defcustom org-home-task-id ""
"Task ID of default home task."
:group 'personal-settings
:type 'string)
(defcustom db/org-clock-current-task-file "~/.org-current-task"
"File to save the currently clocked in task to."
:group 'personal-settings
:type 'string)
;; NB: some of those files should also be elements of `org-agenda-files', but
;; this is not done automatically. The reason is that automatically changing
;; `org-agenda-files' when setting those variables may conflict with the
;; customization of `org-agenda-files' itself. Thus, when setting one of those
;; variables would update `org-agenda-files' (possibly saving the customiztion),
;; the original value of `org-agenda-files' would be gone. Conversely, loading
;; the customization for `org-agenda-files' would overwrite the work done by
;; custom setters. Thus, the only reasonable thing to do is to not update
;; `org-agenda-files' automatically and leave it to the user to update it.
(defcustom db/org-default-work-file nil
"Path to default org-mode file at work.
You may also want to add this file to `org-agenda-files'."
:group 'personal-settings
:type '(choice (const nil) file))
(defcustom db/org-default-home-file nil
"Path to default org-mode file at home.
You may also want to add this file to `org-agenda-files'."
:group 'personal-settings
:type '(choice (const nil) file))
(defcustom db/org-default-notes-file nil
"Path to default org-mode file for notes.
You may also want to add this file to `org-agenda-files'."
:group 'personal-settings
:type '(choice (const nil) file))
(defcustom db/org-default-refile-file nil
"Path to default org-mode file for capturing.
This file is used by `org-agenda' to query for tasks that need to
be refiled, independently of whether it's part of
`org-agenda-files' or not. You may still want to add this file
to `org-agenda-files' to have appointments, deadlines, etc shown
in the main agenda view."
:group 'personal-settings
:type '(choice (const nil) file))
(defcustom db/org-default-pensieve-file nil
"Path to default org-mode file for private notes."
:group 'personal-settings
:type '(choice (const nil) file))
(provide 'db-customize)
;;; db-customize ends here