From 434cd49a509de98c6b8906a0b0be4f18e3bf4dcc Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 20 May 2016 17:00:22 -0400 Subject: [PATCH] More clean up --- core/core-os-osx.el | 3 ++- core/core-ui.el | 11 +++++++---- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/core/core-os-osx.el b/core/core-os-osx.el index fd779b930..230d058ca 100644 --- a/core/core-os-osx.el +++ b/core/core-os-osx.el @@ -49,7 +49,8 @@ ;; (use-package dash-at-point - :commands (dash-at-point dash-at-point-with-docset dash-at-point-run-search dash-at-point-guess-docset) + :commands (dash-at-point dash-at-point-with-docset dash-at-point-run-search + dash-at-point-guess-docset) :init (defmacro def-docset! (mode docset) `(add-hook! ,mode (setq-local dash-at-point-docset ,docset)))) diff --git a/core/core-ui.el b/core/core-ui.el index c178eb093..e90371d71 100644 --- a/core/core-ui.el +++ b/core/core-ui.el @@ -59,7 +59,7 @@ ;; full filename in frame title (setq frame-title-format '(buffer-file-name "%f" ("%b"))) ;; set fonts - (set-frame-font (setq narf-current-font narf-default-font) t) + (set-frame-font narf-default-font t) (set-face-attribute 'default t :font narf-current-font) ;; standardize fringe width (fringe-mode narf-fringe-size) @@ -67,14 +67,17 @@ (define-fringe-bitmap 'tilde [64 168 16] nil nil 'center) (set-fringe-bitmap-face 'tilde 'font-lock-comment-face) (setcdr (assq 'empty-line fringe-indicator-alist) 'tilde) + ;; Default frame size on startup + (push '(width . 120) default-frame-alist) + (push '(height . 30) default-frame-alist) ;; Brighter minibuffer when active + no fringe in minibuffer (defface narf-minibuffer-active '((t (:inherit mode-line))) "Face for active minibuffer") (add-hook! minibuffer-setup (set-window-fringes (minibuffer-window) 0 0 nil) - (make-local-variable 'face-remapping-alist) - (add-to-list 'face-remapping-alist '(default narf-minibuffer-active))) - (add-hook! 'after-init-hook (set-window-fringes (minibuffer-window) 0 0 nil))) + (set (make-local-variable 'face-remapping-alist) + '((default narf-minibuffer-active)))) + (add-hook! after-init (set-window-fringes (minibuffer-window) 0 0 nil))) ;; Try to display unicode characters without upsetting line-hieght (as much as possible) (narf-fix-unicode "DejaVu Sans" '(?⚠ ?★ ?λ ?➊ ?➋ ?➌ ?➍ ?➎ ?❻ ?➐ ?➑ ?➒ ?➓))