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

Use descriptive names in frequently used feature keymap

Browse Source
This commit is contained in:
Daniel Borchmann 2025-06-16 11:24:33 +02:00
parent 90ab0210d0
commit b7c7703b84
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
3 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
init.el
View File

@ -453,6 +453,8 @@ split horizontally again, but this extra work should not matter much."
db/org-agenda
db/scratch
db/find-user-init-file
db/find-default-org-file
db/find-default-refile-file
db/run-or-hide-ansi-term
db/ement-connect
db/hex-to-ascii

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

@ -155,11 +155,11 @@ in the main agenda view."
'(("Mail" ?m db/gnus)
("Agenda" ?a db/org-agenda)
("Init File" ?i db/find-user-init-file)
("Main Org File" ?o (lambda () (interactive) (find-file db/org-default-org-file)))
("Main Org File" ?o db/find-default-org-file)
("EMMS" ?M emms)
("Shell" ?s project-shell)
("EShell" ?e project-eshell)
("Refile File" ?r (lambda () (interactive) (find-file db/org-default-refile-file)))
("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)

20
site-lisp/db-utils.el
View File

@ -68,10 +68,28 @@ If already in *ansi-term* buffer, bury it."
(switch-to-buffer "*scratch*"))
(defun db/find-user-init-file ()
"Edit `user-init-file'."
"Open buffer for `user-init-file'."
(interactive)
(find-file user-init-file))
(defun db/find-default-org-file ()
"Open buffer for `db/org-default-org-file', when set."
(interactive)
(unless (boundp 'db/org-default-org-file)
(user-error "Cannot open default Org file: variable `db/org-default-org-file' not set"))
(unless (file-exists-p db/org-default-org-file)
(user-error "Cannot open default Org file: file «%s» does not exist" db/org-default-org-file))
(find-file db/org-default-org-file))
(defun db/find-default-refile-file ()
"Open buffer for `db/org-default-refile-file', when set."
(interactive)
(unless (boundp 'db/org-default-refile-file)
(user-error "Cannot open default refile file: not set"))
(unless (file-exists-p db/org-default-refile-file)
(user-error "Cannot open default refile file: file «%s» does not exist" db/org-default-refile-file))
(find-file db/org-default-refile-file))
(defun db/run-or-hide-shell (arg)
"Opens a shell buffer in new window if not already in one.