77e4cc4d58
:feature was a "catch-all" category. Many of its modules fit better in other categories, so they've been moved: - feature/debugger -> tools/debugger - feature/evil -> editor/evil - feature/eval -> tools/eval - feature/lookup -> tools/lookup - feature/snippets -> editor/snippets - feature/file-templates -> editor/file-templates - feature/workspaces -> ui/workspaces More potential changes in the future: - A new :term category for terminal emulation modules (eshell, term and vterm). - A new :os category for modules dedicated to os-specific functionality. The :tools macos module would fit here, but so would modules for nixos and arch. - A new :services category for web-service integration, like wakatime, twitter, elfeed, gist and pastebin services.
86 lines
3.5 KiB
EmacsLisp
86 lines
3.5 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-rule! "^\\*twittering-edit" :size 15 :ttl nil :quit nil :select t)
|
|
|
|
(defface twitter-divider
|
|
'((((background dark)) (:underline (:color "#141519")))
|
|
(((background light)) (:underline (:color "#d3d3d3"))))
|
|
"The vertical divider between tweets."
|
|
:group 'twittering-mode)
|
|
|
|
(add-hook 'doom-real-buffer-functions #'+twitter-buffer-p)
|
|
(when (featurep! :ui popup)
|
|
(setq twittering-pop-to-buffer-function #'+twitter-display-buffer))
|
|
|
|
(after! solaire-mode
|
|
(add-hook 'twittering-mode-hook #'solaire-mode))
|
|
|
|
;; Custom header-line for twitter buffers
|
|
(defun +twitter|switch-mode-and-header-line ()
|
|
(setq header-line-format mode-line-format
|
|
mode-line-format nil))
|
|
(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))))
|
|
|
|
;; `epa--decode-coding-string' isn't defined in later versions of Emacs 27
|
|
(unless (fboundp 'epa--decode-coding-string)
|
|
(defalias 'epa--decode-coding-string #'decode-coding-string))
|
|
|
|
(define-key! twittering-mode-map
|
|
"q" #'+twitter/quit
|
|
"Q" #'+twitter/quit-all
|
|
[remap twittering-kill-buffer] #'+twitter/quit
|
|
[remap delete-window] #'+twitter/quit
|
|
[remap +workspace/close-window-or-workspace] #'+twitter/quit)
|
|
(when (featurep! :editor evil +everywhere)
|
|
(define-key! twittering-mode-map
|
|
[remap evil-window-delete] #'+twitter/quit
|
|
"f" #'twittering-favorite
|
|
"F" #'twittering-unfavorite
|
|
"\C-f" #'twittering-follow
|
|
"\C-F" #'twittering-unfollow
|
|
"d" #'twittering-delete-status
|
|
"r" #'twittering-retweet
|
|
"R" #'twittering-toggle-or-retrieve-replied-statuses
|
|
"o" #'twittering-update-status-interactive
|
|
"O" #'+twitter/ace-link
|
|
"/" #'twittering-search
|
|
"J" #'twittering-goto-next-status
|
|
"K" #'twittering-goto-previous-status
|
|
"g" nil
|
|
"gg" #'twittering-goto-first-status
|
|
"G" #'twittering-goto-last-status
|
|
"gj" #'twittering-goto-next-status-of-user
|
|
"gk" #'twittering-goto-previous-status-of-user)))
|