   "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)
+(setq hs-set-up-overlay
+      (lambda (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)))))
 
 ;; 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))
+  (set-frame-parameter nil 'alpha 80))
 
 (add-hook! focus-in  'narf|focus-in-alpha)
 (add-hook! focus-out 'narf|focus-out-alpha)

;;; core-ui.el --- interface settings
;; see lib/ui-defuns.el

(if window-system
    (progn
      (fringe-mode '(3 . 6))
      (setq frame-title-format '(buffer-file-name "%f" ("%b")))
      (setq initial-frame-alist '((width . 120) (height . 80)))

      (set-frame-font narf-default-font)
      (set-face-attribute 'default t :font narf-default-font)

      (define-fringe-bitmap 'tilde [0 0 0 113 219 142 0 0] nil nil 'center)
      (setcdr (assq 'empty-line fringe-indicator-alist) 'tilde)
      (set-fringe-bitmap-face 'tilde 'font-lock-comment-face))
  (menu-bar-mode -1))

(setq-default
 blink-matching-paren nil

  :preface
  (defvar narf--hl-nlinum-overlay nil)
  (defvar narf--hl-nlinum-line nil)
  (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 t))

  (defun narf|nlinum-disable ()
    (nlinum-mode -1)
