Browse Source

changed windows-theme from ample to tango

master
Marc Pohling 4 years ago
parent
commit
46f34edf05
1 changed files with 8 additions and 12 deletions
  1. 20
      init.org

20
init.org

@ -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

Loading…
Cancel
Save