|
@ -162,6 +162,8 @@ Some windows specific stuff |
|
|
#+BEGIN_SRC emacs-lisp |
|
|
#+BEGIN_SRC emacs-lisp |
|
|
(when *linux* |
|
|
(when *linux* |
|
|
(set-face-font 'default "Hack-10")) |
|
|
(set-face-font 'default "Hack-10")) |
|
|
|
|
|
(when *work_remote* |
|
|
|
|
|
(set-face-font 'default "Lucida Sans Typewriter-11")) |
|
|
#+END_SRC |
|
|
#+END_SRC |
|
|
|
|
|
|
|
|
** Themes |
|
|
** Themes |
|
@ -170,24 +172,18 @@ Some windows specific stuff |
|
|
(defun my/toggle-theme () |
|
|
(defun my/toggle-theme () |
|
|
(interactive) |
|
|
(interactive) |
|
|
(when *windows* |
|
|
(when *windows* |
|
|
(if (eq (car custom-enabled-themes) 'ample-flat) |
|
|
|
|
|
(progn (disable-theme 'ample-flat) |
|
|
|
|
|
(enable-theme 'adwaita)) |
|
|
|
|
|
|
|
|
(if (eq (car custom-enabled-themes) 'tango-dark) |
|
|
|
|
|
(progn (disable-theme 'tango-dark) |
|
|
|
|
|
(enable-theme 'tango)) |
|
|
(progn |
|
|
(progn |
|
|
(disable-theme 'adwaita) |
|
|
|
|
|
(enable-theme 'ample-flat))))) |
|
|
|
|
|
|
|
|
(disable-theme 'tango) |
|
|
|
|
|
(enable-theme 'tango-dark))))) |
|
|
#+END_SRC |
|
|
#+END_SRC |
|
|
|
|
|
|
|
|
Windows Theme: |
|
|
Windows Theme: |
|
|
#+BEGIN_SRC emacs-lisp |
|
|
#+BEGIN_SRC emacs-lisp |
|
|
(when *windows* |
|
|
(when *windows* |
|
|
(use-package ample-theme |
|
|
|
|
|
:if (window-system) |
|
|
|
|
|
:defer t |
|
|
|
|
|
:ensure t |
|
|
|
|
|
:bind ("C-c t" . my/toggle-theme) |
|
|
|
|
|
:init |
|
|
|
|
|
(load-theme 'ample-flat t))) ;; alternative ample, ample-light |
|
|
|
|
|
|
|
|
(load-theme 'tango)) |
|
|
#+END_SRC |
|
|
#+END_SRC |
|
|
** line wrappings |
|
|
** line wrappings |
|
|
#+BEGIN_SRC emacs-lisp |
|
|
#+BEGIN_SRC emacs-lisp |
|
|