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

Appease byte-compiler-sama

Browse source
This commit is contained in:
Henrik Lissner 2018-05-14 20:35:26 +02:00
parent 6e3f500a39
commit e44fd886f2
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
5 changed files with 21 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

13
modules/app/email/+gmail.el
View file

@ -16,12 +16,12 @@
(map-put mu4e-marks 'trash
(list :char '("d" . "▼")
:prompt "dtrash"
:dyn-target (lambda (target msg) (mu4e-get-trash-folder msg))
:dyn-target (lambda (_target msg) (mu4e-get-trash-folder msg))
:action #'+email--mark-seen))
;; Refile will be my "archive" function.
(map-put mu4e-marks 'refile
(list :char '("r" . "▶") :prompt "refile"
:show-target (lambda (target) "archive")
:show-target (lambda (_target) "archive")
:action #'+email--mark-seen))
;; This hook correctly modifies gmail flags on emails when they are marked.
@ -29,8 +29,9 @@
;; won't properly result in the corresponding gmail action, since the marks
;; are ineffectual otherwise.
(defun +email|gmail-fix-flags (mark msg)
(cond ((eq mark 'trash) (mu4e-action-retag-message msg "-\\Inbox,+\\Trash,-\\Draft"))
((eq mark 'refile) (mu4e-action-retag-message msg "-\\Inbox"))
((eq mark 'flag) (mu4e-action-retag-message msg "+\\Starred"))
((eq mark 'unflag) (mu4e-action-retag-message msg "-\\Starred"))))
(pcase mark
(`trash (mu4e-action-retag-message msg "-\\Inbox,+\\Trash,-\\Draft"))
(`refile (mu4e-action-retag-message msg "-\\Inbox"))
(`flag (mu4e-action-retag-message msg "+\\Starred"))
(`unflag (mu4e-action-retag-message msg "-\\Starred"))))
(add-hook 'mu4e-mark-execute-pre-hook #'+email|gmail-fix-flags))

2
modules/app/twitter/autoload.el
View file

@ -62,7 +62,7 @@ that works with the feature/popup module."
(with-current-buffer buf
(twittering-rerender-timeline-all buf)
(setq-local line-spacing 0.2)
(goto-line 0 buf))))
(goto-char (point-min)))))
;;;###autoload
(defun +twitter/ace-link ()

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

@ -30,7 +30,8 @@
'((transient) (quit) (select . t)))
(defface twitter-divider
`((t (:underline (:color ,(doom-darken 'vertical-bar 0.2)))))
'((((background dark)) (:underline (:color "#141519")))
(((background light)) (:underline (:color "#d3d3d3"))))
"The vertical divider between tweets."
:group 'twittering-mode)