From f2c1177b075d65bf15f0c839d78b0dbf2ddf17b6 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sun, 25 Oct 2020 23:05:06 -0500 Subject: Remove byte compilation --- init.el | 1 - init.org | 26 ++++++++++++++------------ 2 files changed, 14 insertions(+), 13 deletions(-) diff --git a/init.el b/init.el index a933776..c8ae6a6 100644 --- a/init.el +++ b/init.el @@ -9,4 +9,3 @@ (org-babel-tangle) (load-file (concat user-emacs-directory "early-init.el")) (load-file (concat user-emacs-directory "init.el")) - (byte-compile-file (concat user-emacs-directory "init.el")) diff --git a/init.org b/init.org index 32e3ec8..3cebb79 100644 --- a/init.org +++ b/init.org @@ -33,17 +33,16 @@ After the first run, the above ~init.el~ will be replaced by the tangled stuff h #+NAME: tangle-on-save #+BEGIN_SRC emacs-lisp :tangle no - (defun acdw/tangle-init () - "If the current buffer is `init.org', the code blocks are tangled, + (defun acdw/tangle-init () + "If the current buffer is `init.org', the code blocks are tangled, and the tangled file is compiled and loaded." - (when (equal (buffer-file-name) - (expand-file-name (concat user-emacs-directory "init.org"))) - ;; Avoid running hooks when tangling. - (let ((prog-mode-hook nil)) - (org-babel-tangle) - (byte-compile-file (concat user-emacs-directory "init.el")) - (load-file (concat user-emacs-directory "early-init.el")) - (load-file (concat user-emacs-directory "init.el"))))) + (when (equal (buffer-file-name) + (expand-file-name (concat user-emacs-directory "init.org"))) + ;; Avoid running hooks when tangling. + (let ((prog-mode-hook nil)) + (org-babel-tangle) + (load-file (concat user-emacs-directory "early-init.el")) + (load-file (concat user-emacs-directory "init.el"))))) (add-hook 'after-save-hook #'acdw/tangle-init) #+END_SRC @@ -312,6 +311,10 @@ I'm sure there's a better way to do this, but for now, this is the best I've got (unicode-fonts-setup)) #+END_SRC +** Interactivity +#+begin_src emacs-lisp + (fset 'yes-or-no-p #'y-or-n-p) +#+end_src * Editing ** Completion I was using company, but I think it might've been causing issues with ~awk-mode~, so I'm trying ~hippie-mode~ right now. So far, I'm also enjoying not having a popup all the time. @@ -437,8 +440,7 @@ I was using company, but I think it might've been causing issues with ~awk-mode~ (when (= orig-point (point)) (move-beginning-of-line 1)))) - (bind-key "C-a" ; can't do [remap], don't know why - #'my/smarter-move-beginning-of-line) + (bind-key "C-a" #'my/smarter-move-beginning-of-line) #+END_SRC ** Delete the selection when typing #+BEGIN_SRC emacs-lisp -- cgit 1.4.1-21-gabe81