   :preface
   (defvar narf--hl-nlinum-overlay nil)
   (defvar narf--hl-nlinum-line nil)
-  (defvar nlinum-format " %4d  ")
+  (defvar nlinum-format " %4d ")
   (defface linum-highlight-face '((t (:inherit linum))) "Face for line highlights")
   :init
   (defun narf|nlinum-enable ()
     (nlinum-mode +1)
-    (add-hook 'post-command-hook 'narf|nlinum-hl-line))
+    (add-hook 'post-command-hook 'narf|nlinum-hl-line t))
 
   (defun narf|nlinum-disable ()
     (nlinum-mode -1)

  "Face used to highlight the fringe on folded regions"
  :group 'hideshow)

(defun display-code-line-counts (ov)
  (when (eq 'code (overlay-get ov 'hs))
    (let* ((marker-string "*fringe-dummy*")
           (marker-length (length marker-string))
           (display-string (format " ... "
                                   (count-lines (overlay-start ov)
                                                (overlay-end ov)))))
      (put-text-property 0 marker-length 'display (list 'right-fringe 'hs-marker 'hs-fringe-face) marker-string)
      (put-text-property 0 (length display-string) 'face 'hs-face display-string)
      (overlay-put ov 'before-string marker-string)
      (overlay-put ov 'display display-string))))
(setq hs-set-up-overlay 'display-code-line-counts)

;; Fade out when unfocused ;;;;;;;;;;;;;
(defun narf|focus-in-alpha ()
  (set-frame-parameter nil 'alpha 100))
(defun narf|focus-out-alpha ()
  (set-frame-parameter nil 'alpha 90))

(add-hook! focus-in  'narf|focus-in-alpha)
(add-hook! focus-out 'narf|focus-out-alpha)

  (font-lock-add-keywords nil '(("\\<\\(NOTE\\((.+)\\)?:?\\)"  1 'narf-note-face prepend))))

;; Prettify code folding in emacs ;;;;;;
(define-fringe-bitmap 'hs-marker [16 48 112 240 112 48 16] nil nil 'center)
(defface hs-face '((t (:background "#ff8")))
  "Face to hightlight the ... area of hidden regions"
  :group 'hideshow)
