colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use theme-changer.el

Browse Source
This commit is contained in:
Ivan Malison 2015-08-17 12:54:31 -07:00
parent 0ebe692170
commit 3b9c028845
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
dotfiles/emacs.d/init.el
View File

@ -188,6 +188,11 @@
((< (car a) (car b)) -1) ((< (car a) (car b)) -1)
(t (imalison:compare-int-list (cdr a) (cdr b)))))) (t (imalison:compare-int-list (cdr a) (cdr b))))))
(defun imalison:get-lat-long ()
(condition-case ex
(mapcar 'string-to-number (s-split "," (s-trim (shell-command-to-string "whereami"))))
(error (list 37.7879312624533 -122.402388853402))))
(defun get-date-created-from-agenda-entry (agenda-entry) (defun get-date-created-from-agenda-entry (agenda-entry)
(org-time-string-to-time (org-time-string-to-time
(org-entry-get (get-text-property 1 'org-marker agenda-entry) "CREATED"))) (org-entry-get (get-text-property 1 'org-marker agenda-entry) "CREATED")))
@ -2075,7 +2080,18 @@ window is active in the perspective."
;; Themes ;; Themes
;; ============================================================================= ;; =============================================================================
(defvar imalison:my-theme 'material) ;; These can be overriden in custom-before.el
(defvar imalison:light-theme 'solarized-light)
(defvar imalison:dark-theme 'material)
(use-package theme-changer
:ensure t
:config
(progn
(destructuring-bind (latitude longitude)
(imalison:get-lat-long)
(setq calendar-latitude latitude)
(setq calendar-longitude longitude))))
(defun random-choice (choices) (defun random-choice (choices)
(nth (random (length choices)) choices)) (nth (random (length choices)) choices))
@ -2085,7 +2101,7 @@ window is active in the perspective."
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1)) (if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
(if (fboundp 'tool-bar-mode) (tool-bar-mode -1)) (if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
(if (fboundp 'menu-bar-mode) (menu-bar-mode -1)) (if (fboundp 'menu-bar-mode) (menu-bar-mode -1))
(set-fringe-mode 0) ;; (set-fringe-mode 0) ;; Lets reenable fringes. They seem useful
(defvar-setq linum-format 'dynamic) (defvar-setq linum-format 'dynamic)
(setq left-margin-width 0) (setq left-margin-width 0)
(defvar-setq hl-line-mode nil)) (defvar-setq hl-line-mode nil))
@ -2103,7 +2119,7 @@ window is active in the perspective."
(progn (progn
(load-theme 'source-code-pro t) (load-theme 'source-code-pro t)
(message "not setting font"))) (message "not setting font")))
(load-theme imalison:my-theme t) (change-theme imalison:light-theme imalison:dark-theme)
(imalison:remove-fringe-and-hl-line-mode) (imalison:remove-fringe-and-hl-line-mode)
(message "finished set appearance")) (message "finished set appearance"))