forked from colonelpanic/dotfiles
Add spaceline segment for muni
This commit is contained in:
parent
112ebb8ee1
commit
79000e90a7
@ -481,9 +481,7 @@ Prefix alternatives is a macro that builds a function that selects one of a coll
|
|||||||
(let ((current-location (pcache-get imalison:muni-cache 'current-location))
|
(let ((current-location (pcache-get imalison:muni-cache 'current-location))
|
||||||
(arrival-time (pcache-get imalison:muni-cache 'arrival-time)))
|
(arrival-time (pcache-get imalison:muni-cache 'arrival-time)))
|
||||||
(unless arrival-time
|
(unless arrival-time
|
||||||
(message "at")
|
|
||||||
(unless current-location
|
(unless current-location
|
||||||
(message "cl")
|
|
||||||
(setq current-location (imalison:get-lat-long))
|
(setq current-location (imalison:get-lat-long))
|
||||||
(pcache-put imalison:muni-cache 'current-location current-location
|
(pcache-put imalison:muni-cache 'current-location current-location
|
||||||
imalison:current-location-ttl))
|
imalison:current-location-ttl))
|
||||||
@ -493,6 +491,7 @@ Prefix alternatives is a macro that builds a function that selects one of a coll
|
|||||||
imalison:muni-arrival-ttl))
|
imalison:muni-arrival-ttl))
|
||||||
arrival-time))
|
arrival-time))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
** Font Size
|
** Font Size
|
||||||
This was taken from [[http://emacs.stackexchange.com/questions/7583/transiently-adjust-text-size-in-mode-line-and-minibuffer][here]]. It is primarily invoked from a hydra defined below. It would be cool if it got the default font size from whatever the default font was but it does not currently do that.
|
This was taken from [[http://emacs.stackexchange.com/questions/7583/transiently-adjust-text-size-in-mode-line-and-minibuffer][here]]. It is primarily invoked from a hydra defined below. It would be cool if it got the default font size from whatever the default font was but it does not currently do that.
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
@ -2892,10 +2891,8 @@ Ensure all themes that I use are installed:
|
|||||||
(ensure-packages-installed packages-appearance)
|
(ensure-packages-installed packages-appearance)
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
** Other Packages
|
** spaceline
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(use-package window-number)
|
|
||||||
|
|
||||||
(use-package spaceline-config
|
(use-package spaceline-config
|
||||||
:ensure spaceline
|
:ensure spaceline
|
||||||
:config
|
:config
|
||||||
@ -2906,9 +2903,18 @@ Ensure all themes that I use are installed:
|
|||||||
(if (display-graphic-p)
|
(if (display-graphic-p)
|
||||||
(setq-default powerline-default-separator 'wave)
|
(setq-default powerline-default-separator 'wave)
|
||||||
(setq-default powerline-default-separator 'utf-8))
|
(setq-default powerline-default-separator 'utf-8))
|
||||||
|
(spaceline-define-segment imalison:muni
|
||||||
|
"Display the number of minutes until the next muni train comes"
|
||||||
|
(format "🚇%s" (imalison:get-cached-muni-time)))
|
||||||
(setq powerline-height 25)
|
(setq powerline-height 25)
|
||||||
(spaceline-helm-mode)
|
(spaceline-helm-mode)
|
||||||
(spaceline-spacemacs-theme)))
|
(spaceline-spacemacs-theme 'imalison:muni)))
|
||||||
|
#+END_SRC
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
#+END_SRC
|
||||||
|
** window-number
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
(use-package window-number)
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
** Whitespace Setup
|
** Whitespace Setup
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user