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