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

Refactor & redesign app/twitter

Browse source 
Inspired by UI changes by @fuxialexander, mentioned in
https://github.com/hlissner/emacs-doom-themes/issues/131
This commit is contained in:
Henrik Lissner 2018-01-24 17:37:39 -05:00
parent b3c429d92a
commit 64d41ed1d9
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 74 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3,19 +3,47 @@
(def-package! twittering-mode
:commands twit
:config
(setq twittering-use-master-password t
twittering-icon-mode nil
(setq twittering-private-info-file (expand-file-name "twittering-mode.gpg" doom-etc-dir)
twittering-use-master-password t
twittering-request-confirmation-on-posting t
;; twittering-icon-mode t
;; twittering-use-icon-storage t
;; twittering-icon-storage-file (concat doom-cache-dir "twittering-mode-icons.gz")
;; twittering-convert-fix-size 12
twittering-timeline-header ""
twittering-timeline-footer ""
twittering-edit-skeleton 'inherit-any
twittering-status-format
"%RT{%FACE[bold]{RT }}%S (%FACE[bold]{@%s}), %@%r%R:\n%FOLD[ ]{%t %QT{\n+----\n%FOLD[|]{ %S (@%s), %@:\n%FOLD[ ]{%t}}\n+----}}\n "
twittering-status-format "%FACE[font-lock-function-name-face]{ @%s} %FACE[italic]{%@} %FACE[error]{%FIELD-IF-NONZERO[❤ %d]{favorite_count}} %FACE[warning]{%FIELD-IF-NONZERO[↺ %d]{retweet_count}}
%FOLD[ ]{%FILL{%t}%QT{
%FOLD[ ]{%FACE[font-lock-function-name-face]{@%s}\t%FACE[shadow]{%@}
%FOLD[ ]{%FILL{%t}}
}}}
%FACE[twitter-divider]{ }
"
;; twittering-timeline-spec-alias '()
twittering-initial-timeline-spec-string
'(":home" ":mentions" ":direct_messages"))
(set! :popup "^\\*twittering-edit" nil '((transient) (quit) (select . t) (modeline . minimal)))
(defface twitter-divider
`((t (:underline (:color ,(doom-darken 'vertical-bar 0.2)))))
"The vertical divider between tweets."
:group 'twittering-mode)
(add-hook 'doom-real-buffer-functions #'+twitter-buffer-p)
(when (featurep! :feature popup)
(setq twittering-pop-to-buffer-function #'+twitter-display-buffer))
(after! solaire-mode
(add-hook 'twittering-mode-hook #'solaire-mode))
;; Custom modeline for twitter buffers
(def-modeline! twitter
(bar matches " %b " selection-info)
())
(add-hook! twittering-mode
(setq header-line-format (or (doom-modeline 'twitter) mode-line-format)
mode-line-format nil))
@ -24,11 +52,10 @@
[remap twittering-kill-buffer] #'+twitter/quit
"Q" #'+twitter/quit-all
"o" #'ace-link-addr
"j" #'evil-next-visual-line
"k" #'evil-previous-visual-line
"J" #'twittering-goto-next-status
"K" #'twittering-goto-previous-status)
(def-modeline! twitter
(bar matches " %b " selection-info)
()))
"K" #'twittering-goto-previous-status
(:when (featurep! :feature evil)
"j" #'evil-next-visual-line
"k" #'evil-previous-visual-line
"h" #'evil-window-left
"l" #'evil-window-right)))