From d24718a1e2f9da83bee561c34fdc09d3deefd00b Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Sun, 17 Jun 2018 03:02:38 -0700
Subject: [PATCH] [Emacs] Add stack build, disable undo-tree

---
 dotfiles/emacs.d/README.org | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org
index d6203c83..520b2e6e 100644
--- a/dotfiles/emacs.d/README.org
+++ b/dotfiles/emacs.d/README.org
@@ -1441,7 +1441,7 @@ The file server file for this emacs instance no longer exists.")
         (expand-file-name server-name server-dir)))
     (setq server-use-tcp t)
     (when (equal nil (server-running-p)) (server-start))
-    (run-with-timer 0 60 'imalison:make-main-emacs-server)))
+    (imalison:make-main-emacs-server)))
 #+END_SRC
 ** list-environment
 #+BEGIN_SRC emacs-lisp
@@ -1647,11 +1647,17 @@ custom-set-faces in your custom file.
   (let ((frame-mode-use-new-frame-or-window t))
     (imalison:named-compile "stack build")))
 
+(defun imalison:stack-build ()
+  (interactive)
+  (let ((frame-mode-use-new-frame-or-window t))
+    (imalison:named-compile "nix-build default.nix")))
+
 (defhydra imalison:compile nil "Compile"
   ("p" imalison:projectile-helm-command-from-zsh "Run a command in projectile root")
   ("d" helm-command-from-zsh "Run a command in default directory")
   ("c" imalison:named-compile "Enter Custom Command")
   ("s" imalison:stack-build "Stack build")
+  ("n" imalison:nix-build "Nix build")
   ("t" imalison:make-test "Test")
   ("u" imalison:glide-up "Update Dependencies"))
 ;; The following parens close the use-package/progn created several blocks above
@@ -2549,6 +2555,10 @@ eval-last-sexp.
   (progn
     (setq nix-indent-function 'nix-indent-line)))
 #+END_SRC
+#+BEGIN_SRC emacs-lisp
+(use-package nix-update
+  :after nix)
+#+END_SRC
 *** clojure
 The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877bea582fed72bbca0dc1f80fcb2ec0e6d5/layers/+lang/clojure/funcs.el#L30][spacemacs]]. It adds fancification to a clojure mode.
 #+BEGIN_SRC emacs-lisp
@@ -4266,8 +4276,10 @@ I had to disable this mode because something that it does messes with coding set
     (add-hook 'prog-mode-hook (lambda () (rainbow-delimiters-mode t)))))
 #+END_SRC
 ** undo-tree
+Disabled because it makes it hard to redo things
 #+BEGIN_SRC emacs-lisp
 (use-package undo-tree
+  :disabled t
   :bind (("C--" . undo-redo)
          ("C-c u" . undo-tree-visualize)
          ("C-c r" . undo-tree-redo))
@@ -4284,6 +4296,7 @@ I had to disable this mode because something that it does messes with coding set
 ** recentf
 #+BEGIN_SRC emacs-lisp
 (use-package recentf
+  :demand t
   :config
   (progn
     (setq recentf-max-saved-items 1000