Daniel Borchmann
10273424b1
It's rather inconsistent to call eshell without project context from the main shortcut menu when most of the other shortcuts require a project. Since calling eshell directly is done only rarely, let's try to be consistent here and reinstantiate the old project-eshell shortcut (which now duplicates the `<f1>` binding).
189 lines
6.4 KiB
EmacsLisp
189 lines
6.4 KiB
EmacsLisp
;;; db-customize.el --- Custom variables -*- lexical-binding: t -*-
|
||
|
||
;;; Commentary:
|
||
|
||
;;; Code:
|
||
|
||
(require 'gnutls)
|
||
|
||
|
||
|
||
(defgroup personal-settings nil
|
||
"A bunch of functions and variables for personalizing Emacs."
|
||
:prefix "db/"
|
||
:group 'convenience
|
||
:group 'help
|
||
:tag "Personal settings")
|
||
|
||
(defcustom db/jabber-id ""
|
||
"Personal XMPP ID."
|
||
:group 'personal-settings
|
||
:type 'string)
|
||
|
||
(defcustom db/matrix-user-id ""
|
||
"Main Matrix User ID."
|
||
:group 'personal-settings
|
||
:type 'string)
|
||
|
||
(defcustom db/matrix-password-store-entry ""
|
||
"Password Store entry for Matrix User ID in `db/matrix-user-id'."
|
||
:group 'personal-settings
|
||
:type 'string)
|
||
|
||
(defcustom db/important-documents-path "~/Documents/library/"
|
||
"Path to look for important documents.
|
||
|
||
These documents can then be listed in extended search commands
|
||
like `db/helm-shortcuts’."
|
||
:group 'personal-settings
|
||
:type 'string)
|
||
|
||
(defcustom db/path-to-onenote "c:/Program Files (x86)/Microsoft Office/Office15/ONENOTE.EXE"
|
||
"Path to OneNote executable, for opening corresponding Org mode links."
|
||
:group 'personal-settings
|
||
:type 'file)
|
||
|
||
(defcustom db/path-to-outlook "c:/Program Files (x86)/Microsoft Office/Office15/OUTLOOK.EXE"
|
||
"Path to Outlook executable, for opening corresponding Org mode links."
|
||
:group 'personal-settings
|
||
:type 'file)
|
||
|
||
(defun db/update-cert-file-directory (symbol new-value)
|
||
"Set SYMBOL to NEW-VALUE and add all certificate in it to `gnutls-trustfiles’.
|
||
|
||
Assumes that NEW-VALUE points to a directory, and certificates
|
||
are assumed to be of the form *.crt."
|
||
(set symbol new-value)
|
||
(when (file-directory-p new-value)
|
||
(dolist (cert-file (directory-files new-value t ".crt$"))
|
||
(add-to-list 'gnutls-trustfiles cert-file))))
|
||
|
||
(defcustom db/cert-file-directory "~/.local/etc/certs/"
|
||
"Local directory with additional certificates."
|
||
:group 'personal-settings
|
||
:type 'string
|
||
:set #'db/update-cert-file-directory)
|
||
|
||
(defcustom db/rfc-cache-path nil
|
||
"Path where documents are automatically downloaded to when opening rfc: links.
|
||
|
||
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-org-file nil
|
||
"Path to default Org mode file for general use.
|
||
You may also want to add this file to `org-agenda-files'."
|
||
:group 'personal-settings
|
||
:type '(choice (const nil) file))
|
||
|
||
(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))
|
||
|
||
(defcustom db/frequently-used-features
|
||
'(("Mail" ?m db/gnus)
|
||
("Agenda" ?a db/org-agenda)
|
||
("Init File" ?i db/find-user-init-file)
|
||
("Main Org File" ?o db/find-default-org-file)
|
||
("EMMS" ?M emms)
|
||
("Shell" ?s project-shell)
|
||
("EShell" ?e project-eshell)
|
||
("Project" ?p project-switch-project)
|
||
("Refile File" ?r db/find-default-refile-file)
|
||
("Goto Currnet Clock" ?c db/org-clock-goto-first-open-checkbox)
|
||
("Info Lookup" ?I info-lookup-symbol)
|
||
("Unicode Lookup" ?U insert-char)
|
||
("Timeline of Day" ?T timeline-tools-format-timeline-of-day)
|
||
("Copy template to point" ?C db/org-insert-checklist))
|
||
"Mapping of frequently used features to functions implementing them.
|
||
|
||
Can be used in application shortcuts such as `db/helm-shortcuts’. Each
|
||
entry is a list of three items: a short description, a shortcut
|
||
character, and the function to call. Customizing this variable
|
||
redefines the global `hydra-feature-shortcuts'. Instead of a shortcut
|
||
character, nil can be chosen, in which case no entry in the
|
||
`hydra-feature-shortcuts' will be generated."
|
||
:group 'personal-settings
|
||
:type '(repeat (list string (choice character (const nil)) function))
|
||
:set #'(lambda (symbol value)
|
||
(set-default symbol value)
|
||
(let ((map (make-sparse-keymap)))
|
||
(mapc (pcase-lambda (`(_ ,shortcut ,function))
|
||
(keymap-set map (string shortcut) function))
|
||
value)
|
||
(fset 'db/frequently-used-features-prefix map))))
|
||
|
||
|
||
|
||
(provide 'db-customize)
|
||
|
||
;;; db-customize.el ends here
|