search

domtronn / spaceline-all-the-icons.el

A Spaceline Mode Line theme using All The Icons for Emacs
MIT License
235 stars 25 forks source link

Current org-mode clocked in task segment #52

Closed alexmurray closed 7 years ago

alexmurray commented 7 years ago

Something like the following:

(spaceline-define-segment all-the-icons-org-clock-current-task
              "An `all-the-icons' segment to display the current org-clock task."
              (let ((face `(:height ,(spaceline-all-the-icons--height 0.9))))
                (propertize
                 (concat
                  (propertize (all-the-icons-faicon "check-circle" :v-adjust 0.1)
                              'face `(:height ,(spaceline-all-the-icons--height 1.1) :family ,(all-the-icons-faicon-family)))
                  (propertize (concat " " org-clock-current-task)
                              'face face
                              'display '(raise 0.1)))
                 'help-echo "Go to task"
                 'mouse-face (spaceline-all-the-icons--highlight)
                 'local-map (make-mode-line-mouse-map 'mouse-1 #'org-clock-goto)))
              :when (and active
                         org-clock-current-task))

Where it should go? Probably before the weather segment since is more static info which seems to reside on the RHS rather than the LHS.

alexmurray commented 7 years ago

See #53 for a PR to implement this

domtronn commented 7 years ago

Thanks for the PR, again, sorry this took so long to merge 😅