mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Defensively install all-the-icons assets

Browse source 
Wrap installation call with a predicate that checks on the file-system for the
icon assets. Along the way, document other parts of the wpc-ui package.
This commit is contained in:
William Carroll 2019-12-22 21:34:46 +00:00
parent d1566dd0e6
commit 7bd668ee8f
1 changed files with 10 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
configs/shared/.emacs.d/wpc/packages/wpc-ui.el
View file

@ -12,10 +12,7 @@
(require 'prelude) (require 'prelude)
(require 'alist) (require 'alist)
(require 'wallpaper)
(require 'fonts)
(require 'themes) (require 'themes)
(require 'window-manager)
(require 'device) (require 'device)
(require 'laptop-battery) (require 'laptop-battery)
@ -68,8 +65,8 @@
;; set default buffer for Emacs ;; set default buffer for Emacs
(setq initial-buffer-choice constants/current-project) (setq initial-buffer-choice constants/current-project)
;; integration with wpgtk (in vendor directory)
;; TODO: Re-enable this when base16-wpgtk are looking better. ;; TODO: Re-enable this when base16-wpgtk are looking better.
;; integration with wpgtk (in vendor directory)
;; (require 'wpgtk-theme) ;; (require 'wpgtk-theme)
;; base-16 themes to integrate with wpgtk ;; base-16 themes to integrate with wpgtk
@ -124,9 +121,8 @@
;; all-the-icons ;; all-the-icons
(use-package all-the-icons (use-package all-the-icons
:config :config
;; Only run this once after installing. (unless (f-exists? "~/.local/share/fonts/all-the-icons.ttf")
;; (all-the-icons-install-fonts) (all-the-icons-install-fonts)))
)
;; icons for Ivy ;; icons for Ivy
(use-package all-the-icons-ivy (use-package all-the-icons-ivy
@ -136,27 +132,20 @@
;; disable menubar ;; disable menubar
(menu-bar-mode -1) (menu-bar-mode -1)
(when (string-equal system-type "darwin")
(setq ns-auto-hide-menu-bar t))
;; reduce noisiness of auto-revert-mode ;; reduce noisiness of auto-revert-mode
(setq auto-revert-verbose nil) (setq auto-revert-verbose nil)
;; highlight lines that are over 100 characters long ;; highlight lines that are over `constants/fill-column' characters long
(use-package whitespace (use-package whitespace
:config :config
;; TODO: This should change depending on the language and project. For
;; example, Google Java projects prefer 100 character width instead of 80
;; character width.
(setq whitespace-line-column constants/fill-column) (setq whitespace-line-column constants/fill-column)
(setq whitespace-style '(face lines-tail)) (setq whitespace-style '(face lines-tail))
(add-hook 'prog-mode-hook #'whitespace-mode)) (add-hook 'prog-mode-hook #'whitespace-mode))
;; rebalance emacs windows after splits are created
;; (defadvice split-window-below (after rebalance-windows activate)
;; (balance-windows))
;; (defadvice split-window-right (after rebalance-windows activate)
;; (balance-windows))
;; (defadvice delete-window (after rebalance-window activate)
;; (balance-windows))
;; dirname/filename instead of filename<dirname> ;; dirname/filename instead of filename<dirname>
(setq uniquify-buffer-name-style 'forward) (setq uniquify-buffer-name-style 'forward)
@ -166,6 +155,8 @@
;; hide the scroll-bars in the GUI ;; hide the scroll-bars in the GUI
(scroll-bar-mode -1) (scroll-bar-mode -1)
;; TODO: Learn how to properly integrate this with dunst or another system-level
;; notification program.
;; GUI alerts in emacs ;; GUI alerts in emacs
(use-package alert (use-package alert
:commands (alert) :commands (alert)
@ -178,8 +169,7 @@
(laptop-battery/display)) (laptop-battery/display))
;; Load a theme ;; Load a theme
(->> (themes/random) (themes/set (themes/random))
themes/set)
(provide 'wpc-ui) (provide 'wpc-ui)
;;; wpc-ui.el ends here ;;; wpc-ui.el ends here