d8b1e469bc
+ :popup -> set-popup-rule! + :popups -> set-popup-rules! + :company-backend -> set-company-backend! + :evil-state -> set-evil-initial-state! I am slowly phasing out the setting system (def-setting! and set!), starting with these. What are autodefs? These are functions that are always defined, whether or not their respective modules are enabled. However, when their modules are disabled, they are replaced with macros that no-op and don't waste time evaluating their arguments. The old set! function will still work, for a while.
80 lines
3.1 KiB
EmacsLisp
80 lines
3.1 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))
|
|
'((transient) (quit) (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 modeline for twitter buffers
|
|
(def-modeline! twitter
|
|
(bar matches " %b " selection-info)
|
|
())
|
|
|
|
(defun +twitter|switch-mode-and-header-line ()
|
|
(setq header-line-format (or (doom-modeline 'twitter) mode-line-format)
|
|
mode-line-format nil))
|
|
(add-hook 'twittering-mode-hook #'+twitter|switch-mode-and-header-line)
|
|
|
|
(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! :feature 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)))
|