From: rearman <rearman@r717.net>
Date: Mon, 23 Jan 2023 16:54:03 +0000 (-0500)
Subject: Switch to lambda functions for user init editing
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=b4a8c62d2c25ce9b3f3be310912691e56b8fda27;p=emacsinit.git

Switch to lambda functions for user init editing

Remove defun edit-init for general lambda find-file bindings for each of my
custom init files.
---

diff --git a/bindings.el b/bindings.el
index ea31af4..a801509 100644
--- a/bindings.el
+++ b/bindings.el
@@ -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)
diff --git a/defuns.el b/defuns.el
index db0d8c7..c1bdcdb 100644
--- 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"