Clean up

core/core-evil.el

@@ -51,6 +51,7 @@
   (dolist (mode-map '((cider-repl-mode   . emacs)
                       (comint-mode       . emacs)
                       (term-mode         . emacs)
+                      (Info-mode         . emacs)
                       (help-mode         . normal)
                       (message-mode      . normal)
                       (compilation-mode  . normal)))

core/core-ui.el

@@ -21,7 +21,7 @@
  hl-line-sticky-flag             nil  ; only highlight in one window
 
  jit-lock-defer-time 0
- jit-lock-stealth-time nil
+ jit-lock-stealth-time 1
 
  resize-mini-windows t)
 
@@ -345,15 +345,15 @@ iedit."
                 (int-to-string length))))
     :face (if active 'mode-line-iedit-face 'mode-line-inactive)
     :skip-alternate t
-    :when (and (featurep 'iedit) (> (length iedit-occurrences-overlays) 0)))
+    :when (and (featurep 'evil-iedit-state) evil-iedit-state-minor-mode))
 
   ;; TODO mode-line-substitute-face default face
-  ;; TODO This is very hackish; refactor?
   (defface mode-line-substitute-face nil "")
+  ;; TODO This is very hackish; refactor?
   (spaceline-define-segment narf-evil-substitute
     "Show number of :s matches in real time."
     (let ((highlights (cdar evil-ex-active-highlights-alist)))
-      (format "%s" (length (elt highlights (1- (length highlights))))))
+      (format "%s matches" (length (elt highlights (1- (length highlights))))))
     :face (if active 'mode-line-substitute-face 'mode-line-inactive)
     :skip-alternate t
     :when (and (evil-ex-p) (string-equal evil-ex-cmd "s")))

core/core.el

@@ -13,25 +13,26 @@
 ;;;
 
 (setq-default
+ confirm-kill-emacs (lambda (prompt) (y-or-n-p ">> Gee, I dunno Brain... Are you sure?"))
+
  ad-redefinition-action            'accept      ; silence the advised function warnings
- compilation-always-kill            t
- compilation-ask-about-save         nil
- compilation-scroll-output          t
- confirm-kill-emacs  (lambda (prompt) (y-or-n-p ">> Gee, I dunno Brain... Are you sure?"))
- echo-keystrokes                    0.02        ; show me those keystrokes
- ediff-diff-options                 "-w"
- ediff-split-window-function       'split-window-horizontally   ; side-by-side diffs
- ediff-window-setup-function       'ediff-setup-windows-plain   ; no extra frames
- enable-recursive-minibuffers       nil         ; no minibufferception
+ echo-keystrokes                    0.02        ; show me what I type
  history-length                     1000
- inhibit-startup-echo-area-message  "hlissner"  ; username shuts up emacs
- inhibit-startup-screen             t           ; don't show emacs start screen
- initial-major-mode                'text-mode   ; initial scratch buffer mode
- initial-scratch-message            nil
- major-mode                        'text-mode
  ring-bell-function                'ignore      ; silence of the bells!
  save-interprogram-paste-before-kill nil
  sentence-end-double-space          nil
+ enable-recursive-minibuffers       nil         ; no minibufferception
+ compilation-always-kill            t           ; kill compilation process before spawning another
+ compilation-ask-about-save         nil         ; save all buffers before compiling
+ compilation-scroll-output          t           ; scroll with output while compiling
+ ediff-diff-options                 "-w"
+ ediff-split-window-function       'split-window-horizontally   ; side-by-side diffs
+ ediff-window-setup-function       'ediff-setup-windows-plain   ; no extra frames
+ inhibit-startup-echo-area-message  "hlissner"  ; username shuts up emacs
+ inhibit-startup-screen             t           ; don't show emacs start screen
+ initial-scratch-message            nil
+ initial-major-mode                'text-mode   ; initial scratch buffer mode
+ major-mode                        'text-mode
 
  ;; http://ergoemacs.org/emacs/emacs_stop_cursor_enter_prompt.html
  minibuffer-prompt-properties '(read-only t point-entered minibuffer-avoid-prompt face minibuffer-prompt)
@@ -40,13 +41,12 @@
  eval-expression-print-length       nil
  eval-expression-print-level        nil
 
- ;; Disable all backups (that's what git/dropbox are for)
  bookmark-save-flag                 t
  bookmark-default-file              (concat narf-temp-dir "bookmarks")
+
+ ;; Disable all backups (that's what git/dropbox are for)
  auto-save-default                  nil
  auto-save-list-file-name           (concat narf-temp-dir "autosave")
-
- ;; In case I want to reactivate backup files
  make-backup-files                  nil
  create-lockfiles                   nil
  backup-directory-alist            `((".*" . ,(concat narf-temp-dir "backup/")))

core/lib/defuns-quickrun.el

@@ -29,6 +29,7 @@ If ARG is nil this function calls `recompile', otherwise it calls
 ;;;###autoload (autoload 'narf:eval-buffer "defuns-quickrun" nil t)
 (evil-define-command narf:eval-buffer ()
   :move-point nil
+  :repeat nil
   (interactive)
   (cond ((eq major-mode 'emacs-lisp-mode)
          (narf:eval-region (point-min) (point-max)))
@@ -37,6 +38,7 @@ If ARG is nil this function calls `recompile', otherwise it calls
 ;;;###autoload (autoload 'narf:eval-region "defuns-quickrun" nil t)
 (evil-define-operator narf:eval-region (beg end)
   :move-point nil
+  :repeat nil
   (interactive "<r>")
   (cond ((eq major-mode 'emacs-lisp-mode)
          (let* ((pp-escape-newlines nil)