emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

app/twitter: add support for +new modeline

Browse source
This commit is contained in:
Henrik Lissner 2018-07-25 18:27:21 +02:00
parent 593666933d
commit 22a2d1de60
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
modules/app/twitter/config.el
View file

@ -40,16 +40,20 @@
(after! solaire-mode (after! solaire-mode
(add-hook 'twittering-mode-hook #'solaire-mode)) (add-hook 'twittering-mode-hook #'solaire-mode))
;; Custom modeline for twitter buffers ;; Custom header-line for twitter buffers
(def-modeline! twitter
(bar matches " %b " selection-info)
())
(defun +twitter|switch-mode-and-header-line () (defun +twitter|switch-mode-and-header-line ()
(setq header-line-format (or (doom-modeline 'twitter) mode-line-format) (setq header-line-format mode-line-format
mode-line-format nil)) mode-line-format nil))
(add-hook 'twittering-mode-hook #'+twitter|switch-mode-and-header-line) (add-hook 'twittering-mode-hook #'+twitter|switch-mode-and-header-line)
(cond ((featurep! :ui doom-modeline +new)
(setq-hook! 'twittering-mode-hook mode-line-format-right nil))
((featurep! :ui doom-modeline)
(def-modeline! 'twitter
'(bar matches " %b " selection-info)
'())
(add-hook! 'twittering-mode-hook (doom-set-modeline 'twitter))))
(define-key! twittering-mode-map (define-key! twittering-mode-map
"q" #'+twitter/quit "q" #'+twitter/quit
"Q" #'+twitter/quit-all "Q" #'+twitter/quit-all