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/org-agenda
db/scratch db/scratch
db/find-user-init-file db/find-user-init-file
db/find-default-org-file
db/find-default-refile-file
db/run-or-hide-ansi-term db/run-or-hide-ansi-term
db/ement-connect db/ement-connect
db/hex-to-ascii 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) '(("Mail" ?m db/gnus)
("Agenda" ?a db/org-agenda) ("Agenda" ?a db/org-agenda)
("Init File" ?i db/find-user-init-file) ("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) ("EMMS" ?M emms)
("Shell" ?s project-shell) ("Shell" ?s project-shell)
("EShell" ?e project-eshell) ("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) ("Goto Currnet Clock" ?c db/org-clock-goto-first-open-checkbox)
("Info Lookup" ?I info-lookup-symbol) ("Info Lookup" ?I info-lookup-symbol)
("Unicode Lookup" ?U insert-char) ("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*")) (switch-to-buffer "*scratch*"))
(defun db/find-user-init-file () (defun db/find-user-init-file ()
"Edit `user-init-file'." "Open buffer for `user-init-file'."
(interactive) (interactive)
(find-file user-init-file)) (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) (defun db/run-or-hide-shell (arg)
"Opens a shell buffer in new window if not already in one. "Opens a shell buffer in new window if not already in one.