]> git.earman.xyz Git - emacsinit.git/commitdiff
Switch to lambda functions for user init editing
authorrearman <rearman@r717.net>
Mon, 23 Jan 2023 16:54:03 +0000 (11:54 -0500)
committerrearman <rearman@r717.net>
Mon, 23 Jan 2023 16:54:03 +0000 (11:54 -0500)
Remove defun edit-init for general lambda find-file bindings for each of my
custom init files.

bindings.el
defuns.el

index ea31af414c40ec7c91e710a3e34eb216349ca336..a801509ef767724ded8330c5aafb43aa39baeb38 100644 (file)
@@ -4,7 +4,14 @@
 (global-set-key (kbd "C-c a") 'org-agenda)
 (global-set-key (kbd "C-c b") 'buffer-menu-other-window)
 (global-set-key (kbd "C-c c") 'org-capture)
-(global-set-key (kbd "C-c ei") 'edit-init)
+(global-set-key (kbd "C-c ei") (lambda () (interactive) (find-file user-init-file)))
+(global-set-key (kbd "C-c ep") (lambda () (interactive) (find-file (expand-file-name "package-config.el" user-emacs-directory))))
+(global-set-key (kbd "C-c es") (lambda () (interactive) (find-file (expand-file-name "setq-defaults.el" user-emacs-directory))))
+(global-set-key (kbd "C-c ew") (lambda () (interactive) (find-file (expand-file-name "work-eqs.el" user-emacs-directory))))
+(global-set-key (kbd "C-c ed") (lambda () (interactive) (find-file (expand-file-name "defuns.el" user-emacs-directory))))
+(global-set-key (kbd "C-c eo") (lambda () (interactive) (find-file (expand-file-name "org-setup.el" user-emacs-directory))))
+(global-set-key (kbd "C-c eh") (lambda () (interactive) (find-file (expand-file-name "hooks-puts.el" user-emacs-directory))))
+(global-set-key (kbd "C-c eb") (lambda () (interactive) (find-file (expand-file-name "bindings.el" user-emacs-directory))))
 (global-set-key (kbd "C-c r") 'rotate-windows)
 (global-set-key (kbd "C-c s") 'eshell)
 (global-set-key (kbd "C-c t") 'toggle-window-split)
index db0d8c7f73cf5e548c9c6a0c2c5c8f7b027b29af..c1bdcdb738ad526c395a01d33affe0fc59cb906d 100644 (file)
--- a/defuns.el
+++ b/defuns.el
@@ -33,11 +33,6 @@ Can't go prev line first, edge case of beginning of buffer."
   (interactive)
   (join-line 0))
 
-(defun edit-init ()
-  "Bring up init.el for editing."
-  (interactive)
-  (find-file user-init-file))
-
 (defun toggle-window-split ()
   "If two windows are open, toggle their split layout between vert. and horiz.
 Stolen from http://whattheemacsd.com"