General cleanup

core/core-evil.el

@@ -66,7 +66,6 @@
                       (help-mode                 . normal)
                       (message-mode              . normal)
                       (compilation-mode          . normal)
-                      (inferior-emacs-lisp-mode  . emacs)
                       (calendar-mode             . emacs)
                       (Man-mode                  . emacs)
                       (grep-mode                 . emacs)

core/core-popup.el

@@ -16,6 +16,11 @@
           ("^\\*CPU-Profiler-Report .+\\*$"  :regexp t :position bottom :height 0.35)
           ("*Flycheck errors*"     :position bottom :height 15 :stick t)
           ("*quickrun*"            :position bottom :height 15 :stick t)
+          ("*minor-modes*"         :position bottom :height 0.5 :stick t)
+
+          ;; vcs
+          ("\\*git-gutter.+\\*" :regexp t :position bottom :height 30 :stick t)
+
           ;; Helm
           ("^\\*[Hh]elm.*?\\*\\'"  :regexp t :position bottom :height 0.2)
           ("*helm-mode-find-file-at-point*"  :position bottom :height 10)

core/core-quickrun.el

@@ -10,9 +10,7 @@
              helm-quickrun)
   :config
   (setq quickrun-focus-p t)
-  (add-hook! quickrun/mode 'linum-mode)
+  (add-hook! quickrun/mode '(linum-mode yascroll-bar-mode))
-  (add-hook! quickrun/mode 'yascroll-bar-mode)
-
   (add-to-list 'quickrun-file-alist '("\\.gvy$" . "groovy")))
 
 (use-package repl-toggle

core/core-ui.el

@@ -11,6 +11,7 @@
  cursor-in-non-selected-windows nil
  highlight-nonselected-windows  nil
 
+ ;; Custom mode-line solves duplicate buffer names
  uniquify-buffer-name-style     nil
  visible-bell                   nil  ; silence of the bells
  use-dialog-box                 nil  ; always avoid GUI
@@ -28,7 +29,8 @@
 
  resize-mini-windows            'grow-only
 
- fringe-indicator-alist (delq (assoc 'continuation fringe-indicator-alist) fringe-indicator-alist))
+ fringe-indicator-alist (delq (assoc 'continuation fringe-indicator-alist)
+                              fringe-indicator-alist))
 
 (defvar narf-fringe-size 6)
 (if window-system
@@ -45,8 +47,8 @@
 
       (set-window-fringes (minibuffer-window) 0 0 nil)
       (defun narf|minibuffer-setup ()
-        (make-local-variable 'face-remapping-alist)
         (set-window-fringes (selected-window) 0 0 nil)
+        (make-local-variable 'face-remapping-alist)
         (add-to-list 'face-remapping-alist '(default mode-line-inactive)))
       (add-hook! minibuffer-setup 'narf|minibuffer-setup))
   (menu-bar-mode -1))
@@ -66,10 +68,8 @@
 (defvar narf--hl-line-mode nil)
 (make-variable-buffer-local 'narf--hl-line-mode)
 
-(defun narf|hl-line-on ()
+(defun narf|hl-line-on ()  (if narf--hl-line-mode (hl-line-mode +1)))
-  (when narf--hl-line-mode (hl-line-mode +1)))
+(defun narf|hl-line-off () (if narf--hl-line-mode (hl-line-mode -1)))
-(defun narf|hl-line-off ()
-  (when narf--hl-line-mode (hl-line-mode -1)))
 
 (add-hook! hl-line-mode (if hl-line-mode (setq narf--hl-line-mode t)))
 (add-hook! evil-visual-state-entry 'narf|hl-line-off)

core/core.el

@@ -8,7 +8,7 @@
 ;;   narf:...     An ex command
 ;;   narf|...     A hook
 ;;   narf*...     An advising function
-;;   narf....     Custom hooks
+;;   narf....     Custom prefix commands
 ;;   ...!         Macro
 ;;
 ;;;

init.el

@@ -60,6 +60,7 @@
                  (IS-LINUX    'core-os-linux)
                  (IS-WINDOWS  'core-os-win32))
 
+          ;;; The heart of NARF
           core-popup           ; taming stray windows
           core-ui              ; draw me like one of your French editors
           core-evil            ; come to the dark side, we have cookies
@@ -74,6 +75,7 @@
           core-quickrun        ; run code, run.
           core-workgroups      ; cure Emacs alzheimers
 
+          ;;; Extras
           module-cc            ; c/c++/obj-c madness
           module-csharp        ; unity, .NET, and mono shenanigans
           module-collab        ; wonewy, I'm so wonewy~

modules/module-lisp.el

@@ -19,21 +19,7 @@
 
   (add-to-list 'imenu-generic-expression
                '("Package"
-                 "\\(^\\s-*(use-package +\\)\\(\\_<.+\\_>\\)" 2))
+                 "\\(^\\s-*(use-package +\\)\\(\\_<.+\\_>\\)" 2)))
-
-  ;; Highlight extra NARF keywords
-  (let ((keywords '("add-hook!"
-                    "map!"
-                    "after!"
-                    "λ"
-                    "in!"
-                    "define-company-backend!"
-                    "define-text-object!"
-                    "define-builder!"
-                    )))
-    (font-lock-add-keywords 'emacs-lisp-mode
-                            `((,(concat "(\\s-*" (regexp-opt keywords 'paren) "\\_>")
-                               1 font-lock-keyword-face)) 'append)))
 
 (font-lock-add-keywords
  'emacs-lisp-mode `(("\\(lambda\\)" (0 (narf/show-as ?λ)))))

modules/module-writing.el

@@ -2,7 +2,7 @@
 
 (defvar biblio-directory (concat narf-dropbox-dir "docs/biblio/") "docstring")
 
-(setq-default visual-fill-column-center-text t)
+(setq-default visual-fill-column-center-text nil)
 
 (defun narf|refresh-visual-fill-col ()
   (visual-fill-column-mode +1))
@@ -55,7 +55,6 @@
 (add-hook! LaTeX-mode 'turn-on-auto-fill)
 
 (use-package reftex
-  :diminish reftex-mode
   :config
   (add-hook 'latex-mode-hook 'turn-on-reftex)
   (add-hook 'LaTeX-mode-hook 'turn-on-reftex)