diff options
| author | Jakob Odersky <jodersky@gmail.com> | 2016-01-07 07:08:02 -0800 |
|---|---|---|
| committer | Jakob Odersky <jodersky@gmail.com> | 2016-01-07 07:08:02 -0800 |
| commit | 1daada234d3b61c513f642d8f5964af9d2209088 (patch) | |
| tree | b3108306231dba3712cf468d598441268a7ad3b7 /home | |
| parent | 1b2e8a5f868cde70759946af25d0ae794de6cf18 (diff) | |
| download | dotfiles-1daada234d3b61c513f642d8f5964af9d2209088.tar.gz dotfiles-1daada234d3b61c513f642d8f5964af9d2209088.tar.bz2 dotfiles-1daada234d3b61c513f642d8f5964af9d2209088.zip | |
Implement solarized dark-light switching shortcuts
Diffstat (limited to 'home')
| -rw-r--r-- | home/.emacs.d/config/themes.el | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/home/.emacs.d/config/themes.el b/home/.emacs.d/config/themes.el index c7775fc..8cbdfd2 100644 --- a/home/.emacs.d/config/themes.el +++ b/home/.emacs.d/config/themes.el @@ -2,16 +2,22 @@ (load-theme 'solarized t) (add-hook 'after-make-frame-functions - (lambda (frame) - (let ((mode (if (display-graphic-p frame) 'light 'dark))) - (set-frame-parameter frame 'background-mode mode) - (set-terminal-parameter frame 'background-mode mode)) - (enable-theme 'solarized))) + (lambda (frame) + (let ((mode (if (display-graphic-p frame) 'light 'dark))) + (set-frame-parameter frame 'background-mode mode) + (set-terminal-parameter frame 'background-mode mode)) + (enable-theme 'solarized))) -(defun solarized-toggle () +(defun set-solarized-light () (interactive) - (invert-face 'default) - (enable-theme 'solarized)) + (customize-set-variable 'frame-background-mode 'light) + (load-theme 'solarized t)) -(global-set-key [f9] 'solarized-toggle) +(defun set-solarized-dark () + (interactive) + (customize-set-variable 'frame-background-mode 'dark) + (load-theme 'solarized t)) + +(global-set-key [f9] 'set-solarized-light) +(global-set-key [f10] 'set-solarized-dark) |