40 lines
1.4 KiB
EmacsLisp
40 lines
1.4 KiB
EmacsLisp
;;; app/twitter/config.el
|
|
|
|
(def-package! twittering-mode
|
|
:commands twit
|
|
:config
|
|
(setq twittering-use-master-password t
|
|
twittering-icon-mode nil
|
|
;; 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-initial-timeline-spec-string
|
|
'(":home" ":mentions" ":direct_messages"))
|
|
|
|
(set! :popup "*twittering-edit*" :size 12 :select t :modeline nil)
|
|
|
|
(add-hook 'twittering-edit-mode-hook #'doom-hide-modeline-mode)
|
|
(after! doom-themes
|
|
(add-hook 'twittering-mode-hook #'doom-buffer-mode))
|
|
|
|
(add-hook! twittering-mode
|
|
(setq header-line-format (doom-modeline 'twitter)
|
|
mode-line-format nil))
|
|
|
|
(map! :map twittering-mode-map
|
|
[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)
|
|
()))
|