emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Replace toggle-presentation with cycle-font

Browse source
This commit is contained in:
Henrik Lissner 2015-01-20 03:17:50 -05:00
parent 8cff2e5580
commit 1181d4ba72
4 changed files with 31 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

32
core/core-ui.el
View file

@ -1,20 +1,20 @@
;; User interface layout & behavior
(provide 'core-ui)
;;; core-ui.el -- User interface layout & behavior
;;;; Load Theme ;;;;;;;;;;;;;;;;;;;;;;;;
(when window-system
;; No transparency!
(set-frame-parameter nil 'alpha 96)
(set-frame-parameter nil 'alpha '(94 70))
(unless (member *default-font (font-family-list))
(defconst *default-font *alt-font))
(unless (member *default-font (font-family-list))
(error "Font %s isn't installed" *default-font))
(let ((font-str (concat *default-font "-" (number-to-string *default-font-size))))
(add-to-list 'default-frame-alist `(font . ,font-str))
(add-to-list 'initial-frame-alist `(font . ,font-str))))
(let* ((font (nth 0 *fonts))
(font-name (nth 0 font))
(font-size (nth 1 font))
(font-aa (nth 2 font)))
(unless (member font-name (font-family-list))
(error "Font %s isn't installed" font-name))
(let ((font-str (concat font-name "-" (number-to-string font-size))))
(setq ns-antialias-text font-aa)
(add-to-list 'default-frame-alist `(font . ,font-str))
(add-to-list 'initial-frame-alist `(font . ,font-str)))))
(add-to-list 'custom-theme-load-path my-themes-dir)
(load-dark-theme)
@ -53,8 +53,8 @@
(blink-cursor-mode 1))
;; Show full path in window title
(setq frame-title-format
'(:eval (if (buffer-file-name) (abbreviate-file-name (buffer-file-name)) "%b")))
;; (setq frame-title-format
;; '(:eval (if (buffer-file-name) (abbreviate-file-name (buffer-file-name)) "%b")))
;;;; Modeline ;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -129,3 +129,7 @@
(setq mode-line-position -linepo)
(sml/filter-mode-line-list 'mode-line-position))))
(provide 'core-ui)
;;; core-ui.el ends here