 ;;; 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

  (vhl/define-extension 'my-undo-tree-highlights
    'undo-tree-undo 'undo-tree-redo)
  (vhl/install-extension 'my-undo-tree-highlights)
  (volatile-highlights-mode t))

(use-package nlinum

              narf--hl-nlinum-line nil))))

  (defun narf|nlinum-hl-line (&optional line)
    "Highlight line number"
    (let ((line-no (or line (string-to-number (format-mode-line "%l")))))
      (when (and nlinum-mode (not (eq line-no narf--hl-nlinum-line)))
        (let* ((pbol (if line (save-excursion (goto-char (point-min))
                                              (forward-line line-no)
                                              (point-at-bol))
                       (line-beginning-position)))
               (peol (1+ pbol)))
          ;; Handle EOF case
          (let ((max (point-max)))
