Daniel Borchmann
c566908deb
RFC documents do not change over time. The custom org mode link handler `db/org-rfc-open' now makes use of this by downloading RFC documents to `db/rfc-cache-path' (if defined) and opening the files locally. If `db/rfc-cache-path' is not defined, the RFC is opened in an external browser as before. This allows to keep a selection of used RFC documents locally on the filesystem for future reference, without the need to retrieve them again from the IETF. Since this is all org mode related, the handler now also resides in `db-org' instead of `db-utils'.
61 lines
1.9 KiB
EmacsLisp
61 lines
1.9 KiB
EmacsLisp
;;; db-customize.el --- Custom variables -*- lexical-binding: t -*-
|
||
|
||
;;; Commentary:
|
||
|
||
;;; Code:
|
||
|
||
(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/important-documents-path "~/Documents/library/"
|
||
"Path to look for documents that can 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)
|
||
(require 'gnutls)
|
||
(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 RFC 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))
|
||
|
||
(provide 'db-customize)
|
||
|
||
;;; db-customize ends here
|