Get rid of powerline reset in set-theme in order to fix startup font not
appearing issue. Other various fixups.
This commit is contained in:
parent
a2c7e664a5
commit
e764344eae
@ -189,6 +189,10 @@
|
|||||||
`(setq ,name ,value)
|
`(setq ,name ,value)
|
||||||
`(defvar ,name ,value)))
|
`(defvar ,name ,value)))
|
||||||
|
|
||||||
|
(defmacro defvar-if-non-existant (name value)
|
||||||
|
(unless (boundp name)
|
||||||
|
`(defvar ,name ,value)))
|
||||||
|
|
||||||
(defun eval-region-or-last-sexp ()
|
(defun eval-region-or-last-sexp ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(if (region-active-p) (call-interactively 'eval-region)
|
(if (region-active-p) (call-interactively 'eval-region)
|
||||||
@ -1860,14 +1864,11 @@ window is active in the perspective."
|
|||||||
;; Themes
|
;; Themes
|
||||||
;; =============================================================================
|
;; =============================================================================
|
||||||
|
|
||||||
(unless (boundp 'dark-themes)
|
|
||||||
(defvar dark-themes '(solarized-dark)))
|
(defvar-if-non-existant imalison:dark-themes '(solarized-dark))
|
||||||
(unless (boundp 'light-themes)
|
(defvar-if-non-existant imalison:light-themes '(solarized-light))
|
||||||
(defvar light-themes '(solarized-light)))
|
(defvar-if-non-existant imalison:terminal-themes '(solarized-light monokai))
|
||||||
(unless (boundp 'terminal-themes)
|
(defvar-if-non-existant imalison:fonts '("Monaco for Powerline-12"))
|
||||||
(defvar terminal-themes '(solarized-light monokai)))
|
|
||||||
(unless (boundp 'fonts)
|
|
||||||
(defvar fonts '(monaco-9)))
|
|
||||||
(unless (boundp 'current-theme) (defvar current-theme))
|
(unless (boundp 'current-theme) (defvar current-theme))
|
||||||
(setq current-theme nil)
|
(setq current-theme nil)
|
||||||
|
|
||||||
@ -1879,8 +1880,8 @@ window is active in the perspective."
|
|||||||
(let ((hour
|
(let ((hour
|
||||||
(string-to-number (format-time-string "%H"))))
|
(string-to-number (format-time-string "%H"))))
|
||||||
(if (or (< hour 8) (> hour 16))
|
(if (or (< hour 8) (> hour 16))
|
||||||
(random-choice dark-themes) (random-choice light-themes)))
|
(random-choice imalison:dark-themes) (random-choice imalison:light-themes)))
|
||||||
(random-choice terminal-themes)))
|
(random-choice imalison:terminal-themes)))
|
||||||
|
|
||||||
(defun set-theme ()
|
(defun set-theme ()
|
||||||
(interactive)
|
(interactive)
|
||||||
@ -1906,13 +1907,12 @@ window is active in the perspective."
|
|||||||
nil nil))
|
nil nil))
|
||||||
(disable-all-themes)
|
(disable-all-themes)
|
||||||
(load-theme theme no-confirm no-enable)
|
(load-theme theme no-confirm no-enable)
|
||||||
(powerline-reset)
|
|
||||||
(set-my-font-for-frame nil))
|
(set-my-font-for-frame nil))
|
||||||
|
|
||||||
(defun set-my-font-for-frame (frame)
|
(defun set-my-font-for-frame (frame)
|
||||||
(interactive (list nil))
|
(interactive (list nil))
|
||||||
(condition-case exp
|
(condition-case exp
|
||||||
(set-frame-font (random-choice fonts) nil t)
|
(set-frame-font (random-choice imalison:fonts) nil t)
|
||||||
('error (package-refresh-contents)
|
('error (package-refresh-contents)
|
||||||
(set-frame-font "Monaco for Powerline-12" nil t) nil)))
|
(set-frame-font "Monaco for Powerline-12" nil t) nil)))
|
||||||
|
|
||||||
@ -1934,6 +1934,11 @@ window is active in the perspective."
|
|||||||
;; This is needed because you can't set the font at daemon start-up.
|
;; This is needed because you can't set the font at daemon start-up.
|
||||||
(add-hook 'after-make-frame-functions 'set-my-font-for-frame)
|
(add-hook 'after-make-frame-functions 'set-my-font-for-frame)
|
||||||
(add-hook 'after-make-frame-functions (lambda (frame) (set-theme)))
|
(add-hook 'after-make-frame-functions (lambda (frame) (set-theme)))
|
||||||
|
;; This is needed to ensure that linum-format is dynamic.
|
||||||
|
;; Without this we get massive margins.
|
||||||
|
(add-hook 'after-make-frame-functions 'remove-fringe-and-hl-line-mode)
|
||||||
|
|
||||||
|
;; Why is this here? Seems like it should be somewhere else
|
||||||
(put 'narrow-to-region 'disabled nil)
|
(put 'narrow-to-region 'disabled nil)
|
||||||
(put 'narrow-to-page 'disabled nil)
|
(put 'narrow-to-page 'disabled nil)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user