64d41ed1d9
Inspired by UI changes by @fuxialexander, mentioned in https://github.com/hlissner/emacs-doom-themes/issues/131
62 lines
2.4 KiB
EmacsLisp
62 lines
2.4 KiB
EmacsLisp
;;; app/twitter/config.el -*- lexical-binding: t; -*-
|
|
|
|
(def-package! twittering-mode
|
|
:commands twit
|
|
:config
|
|
(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 "%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))
|
|
|
|
(map! :map twittering-mode-map
|
|
[remap twittering-kill-buffer] #'+twitter/quit
|
|
"Q" #'+twitter/quit-all
|
|
"o" #'ace-link-addr
|
|
"J" #'twittering-goto-next-status
|
|
"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)))
|