colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix frame initialization

Browse Source
This commit is contained in:
Ivan Malison 2016-09-03 17:07:39 -07:00
parent 0cf34a5a3c
commit b2743d4188
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
dotfiles/emacs.d/README.org
View File

@ -3856,21 +3856,23 @@ Set the character used to represent spaces to ·, and the character used for tab
(defun imalison:restore-ansi-term-color-vector (&optional force)
(when (or force (imalison:ansi-term-color-vector-broken?))
(setq ansi-term-color-vector imalison:ansi-term-color-vector)))
#+END_SRC
* Frame Initialization
#+BEGIN_SRC emacs-lisp
(defun imalison:appearance (&optional frame)
(interactive)
(interactive (list nil))
(if (display-graphic-p)
(progn
(condition-case _ignored
(set-face-attribute 'default nil :font "Source Code Pro")
('error nil))
(set-face-attribute 'default nil :weight 'semi-bold)
(set-face-attribute 'default nil :height 135)
(progn
(set-face-attribute 'default nil :height 135))
(progn
(load-theme 'source-code-pro t)
(message "not setting font")))
(load-theme imalison:dark-theme t)
(imalison:remove-fringe-and-hl-line-mode)))
(imalison:remove-fringe-and-hl-line-mode))
;; This is needed because you can't set the font or theme at daemon start-up.
;; (when (display-graphic-p) (imalison:appearance))