Compare commits
2 Commits
441db75ae2
...
986ae68730
| Author | SHA1 | Date | |
|---|---|---|---|
| 986ae68730 | |||
| 0f43b7303f |
1
init.el
1
init.el
@ -358,6 +358,7 @@
|
|||||||
db/scratch
|
db/scratch
|
||||||
db/find-user-init-file
|
db/find-user-init-file
|
||||||
db/run-or-hide-ansi-term
|
db/run-or-hide-ansi-term
|
||||||
|
db/ement-connect
|
||||||
db/hex-to-ascii
|
db/hex-to-ascii
|
||||||
db/text-to-hex
|
db/text-to-hex
|
||||||
turn-on-lispy-when-available
|
turn-on-lispy-when-available
|
||||||
|
|||||||
@ -9,7 +9,7 @@
|
|||||||
|
|
||||||
|
|
||||||
(defgroup personal-settings nil
|
(defgroup personal-settings nil
|
||||||
"A bunch of functions and variables for personalizing emacs."
|
"A bunch of functions and variables for personalizing Emacs."
|
||||||
:prefix "db/"
|
:prefix "db/"
|
||||||
:group 'convenience
|
:group 'convenience
|
||||||
:group 'help
|
:group 'help
|
||||||
@ -20,19 +20,31 @@
|
|||||||
:group 'personal-settings
|
:group 'personal-settings
|
||||||
:type 'string)
|
: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/"
|
(defcustom db/important-documents-path "~/Documents/library/"
|
||||||
"Path to look for documents that can be listed in extended
|
"Path to look for important documents.
|
||||||
search commands like `db/helm-shortcuts’."
|
|
||||||
|
These documents can then be listed in extended search commands
|
||||||
|
like `db/helm-shortcuts’."
|
||||||
:group 'personal-settings
|
:group 'personal-settings
|
||||||
:type 'string)
|
:type 'string)
|
||||||
|
|
||||||
(defcustom db/path-to-onenote "c:/Program Files (x86)/Microsoft Office/Office15/ONENOTE.EXE"
|
(defcustom db/path-to-onenote "c:/Program Files (x86)/Microsoft Office/Office15/ONENOTE.EXE"
|
||||||
"Path to OneNote executable, for opening corresponding org-mode links."
|
"Path to OneNote executable, for opening corresponding Org mode links."
|
||||||
:group 'personal-settings
|
:group 'personal-settings
|
||||||
:type 'file)
|
:type 'file)
|
||||||
|
|
||||||
(defcustom db/path-to-outlook "c:/Program Files (x86)/Microsoft Office/Office15/OUTLOOK.EXE"
|
(defcustom db/path-to-outlook "c:/Program Files (x86)/Microsoft Office/Office15/OUTLOOK.EXE"
|
||||||
"Path to Outlook executable, for opening corresponding org-mode links."
|
"Path to Outlook executable, for opening corresponding Org mode links."
|
||||||
:group 'personal-settings
|
:group 'personal-settings
|
||||||
:type 'file)
|
:type 'file)
|
||||||
|
|
||||||
@ -53,7 +65,8 @@ are assumed to be of the form *.crt."
|
|||||||
:set #'db/update-cert-file-directory)
|
:set #'db/update-cert-file-directory)
|
||||||
|
|
||||||
(defcustom db/rfc-cache-path nil
|
(defcustom db/rfc-cache-path nil
|
||||||
"Path where RFC documents are automatically downloaded to when opening rfc: links.
|
"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."
|
If this path is not set, i.e., is null, no automatic download will happen."
|
||||||
:group 'personal-settings
|
:group 'personal-settings
|
||||||
:type '(choice (const nil) file))
|
:type '(choice (const nil) file))
|
||||||
|
|||||||
@ -105,6 +105,16 @@ With ARG, switch to `default-directory' of the current buffer first."
|
|||||||
(insert (format "cd '%s'" current-dir))
|
(insert (format "cd '%s'" current-dir))
|
||||||
(comint-send-input)))))
|
(comint-send-input)))))
|
||||||
|
|
||||||
|
(defun db/ement-connect ()
|
||||||
|
"Connect to my matrix account."
|
||||||
|
(interactive)
|
||||||
|
(require 'ement)
|
||||||
|
(let ((password (password-store-get db/matrix-password-store-entry)))
|
||||||
|
(unless password
|
||||||
|
(user-error "No pass entry for Matrix password at “%s”" db/matrix-password-store-entry))
|
||||||
|
(ement-connect :user-id db/matrix-user-id
|
||||||
|
:password password)))
|
||||||
|
|
||||||
|
|
||||||
;;; General Utilities
|
;;; General Utilities
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user