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

PRAISE BE TO THE BYTE COMPILER FOR THY SHARP QUOTES

Browse source
This commit is contained in:
Henrik Lissner 2017-04-17 02:17:10 -04:00
parent ef88d30b73
commit 5ae94b765c
79 changed files with 798 additions and 795 deletions
Download patch file Download diff file Expand all files Collapse all files

50
modules/app/email/config.el
View file

@ -69,16 +69,16 @@
;; for offlineimap
;; mu4e-get-mail-command "offlineimap -o -q"
;; configuration for sending mail
message-send-mail-function 'smtpmail-send-it
message-send-mail-function #'smtpmail-send-it
smtpmail-stream-type 'starttls
;; start with the first (default) context;
mu4e-context-policy 'pick-first
;; compose with the current context, or ask
mu4e-compose-context-policy 'ask-if-none
;; use helm/ivy
mu4e-completing-read-function (cond ((featurep! :completion ivy) 'ivy-completing-read)
((featurep! :completion helm) 'completing-read)
(t 'ido-completing-read))
mu4e-completing-read-function (cond ((featurep! :completion ivy) #'ivy-completing-read)
((featurep! :completion helm) #'completing-read)
(t #'ido-completing-read))
;; close message after sending it
message-kill-buffer-on-exit t
;; no need to ask
@ -92,7 +92,7 @@
(:subject)))
(setq mu4e-bookmarks `((,(mapconcat (lambda (arg) (format " maildir:/%s/Inbox " arg))
(mapcar 'car +email--accounts) " OR ")
(mapcar #'car +email--accounts) " OR ")
"Inbox" ?i)
("flag:unread" "Unread messages" ?u)
("flag:flagged" "Starred messages" ?s)
@ -141,15 +141,15 @@
(cond ((memq mark '(trash 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"))))
(add-hook 'mu4e-mark-execute-pre-hook '+email|gmail-fix-flags)
(add-hook 'mu4e-mark-execute-pre-hook #'+email|gmail-fix-flags)
(when (featurep! :feature spellcheck)
(add-hook 'mu4e-compose-mode-hook 'flyspell-mode))
(add-hook 'mu4e-compose-mode-hook #'flyspell-mode))
;; Brighter + no mode-line in message windows
(after! doom-themes
(add-hook! 'mu4e-view-mode-hook
'(doom-buffer-mode doom-hide-modeline-mode)))
#'(doom-buffer-mode doom-hide-modeline-mode)))
;; Wrap text in messages
(add-hook! 'mu4e-view-mode-hook
@ -165,27 +165,27 @@
:init (defvar evil-mu4e-state 'normal)
:config
(defun +email|headers-keybinds ()
(map! :Ln "-" 'mu4e-headers-mark-for-unflag
:Ln "+" 'mu4e-headers-mark-for-flag
:Ln "v" 'evil-visual-line
:Ln "q" 'mu4e~headers-quit-buffer
(map! :Ln "-" #'mu4e-headers-mark-for-unflag
:Ln "+" #'mu4e-headers-mark-for-flag
:Ln "v" #'evil-visual-line
:Ln "q" #'mu4e~headers-quit-buffer
;; Enable multiple markings via visual mode
:Lv "d" '+email/mark-multiple
:Lv "-" '+email/mark-multiple
:Lv "+" '+email/mark-multiple
:Lv "!" '+email/mark-multiple
:Lv "?" '+email/mark-multiple
:Lv "r" '+email/mark-multiple))
(add-hook 'mu4e-headers-mode-hook '+email|headers-keybinds)
:Lv "d" #'+email/mark-multiple
:Lv "-" #'+email/mark-multiple
:Lv "+" #'+email/mark-multiple
:Lv "!" #'+email/mark-multiple
:Lv "?" #'+email/mark-multiple
:Lv "r" #'+email/mark-multiple))
(add-hook 'mu4e-headers-mode-hook #'+email|headers-keybinds)
;; (defun +email|view-keybinds ())
;; (add-hook 'mu4e-view-mode-hook '+email|view-keybinds)
;; (add-hook 'mu4e-view-mode-hook #'+email|view-keybinds)
(defun +email|main-keybinds ()
(map! :Ln "q" 'mu4e-quit
:Ln "u" 'mu4e-update-index
:Ln "U" 'mu4e-update-mail-and-index))
(add-hook 'mu4e-main-mode-hook '+email|main-keybinds))
(map! :Ln "q" #'mu4e-quit
:Ln "u" #'mu4e-update-index
:Ln "U" #'mu4e-update-mail-and-index))
(add-hook 'mu4e-main-mode-hook #'+email|main-keybinds))
(def-package! mu4e-maildirs-extension
@ -195,7 +195,7 @@
(def-package! org-mu4e
:commands org-mu4e-compose-org-mode
:init (add-hook 'mu4e-compose-mode-hook 'org-mu4e-compose-org-mode)
:init (add-hook 'mu4e-compose-mode-hook #'org-mu4e-compose-org-mode)
:config
(setq org-mu4e-link-query-in-headers-mode nil
org-mu4e-convert-to-html t)

4
modules/app/present/autoload.el
View file

@ -49,7 +49,7 @@
;;;###autoload
(defun +present|remove-overlays ()
(mapc 'delete-overlay +present--overlays-list)
(mapc #'delete-overlay +present--overlays-list)
(remove-from-invisibility-spec '(+present)))
;;;###autoload
@ -63,7 +63,7 @@
(unless (cl-remove-if-not (lambda (buf) (buffer-local-value 'org-tree-slide-mode buf))
(doom-buffers-in-mode 'org-mode))
(org-tree-slide-mode -1)
(remove-hook 'kill-buffer-hook '+present--cleanup-org-tree-slides-mode)))
(remove-hook 'kill-buffer-hook #'+present--cleanup-org-tree-slides-mode)))
(defun +present--make-invisible (beg end)
(let ((overlay (make-overlay beg end)))

15
modules/app/present/config.el
View file

@ -52,8 +52,8 @@
:init
(after! org
(map! :map org-mode-map
"<f8>" '+present/org-tree-slides
"<f7>" '+present/next))
"<f8>" #'+present/org-tree-slides
"<f7>" #'+present/next))
:config
(setq org-tree-slide-skip-outline-level 2
org-tree-slide-activate-message " "
@ -62,11 +62,11 @@
(org-tree-slide-simple-profile)
(map! :map org-tree-slide-mode-map
[right] 'org-tree-slide-move-next-tree
[left] 'org-tree-slide-move-previous-tree)
[right] #'org-tree-slide-move-next-tree
[left] #'org-tree-slide-move-previous-tree)
(add-hook! 'org-tree-slide-mode-after-narrow-hook
'(+present|detect-slide +present|add-overlays org-display-inline-images))
#'(+present|detect-slide +present|add-overlays org-display-inline-images))
(add-hook! 'org-tree-slide-mode-hook
(doom/window-zoom)
@ -102,7 +102,6 @@
(when (and (org-at-heading-p) (not (eobp))) (backward-char 1))
(point)))))))))
(apply orig-fn args)))
(advice-add 'org-tree-slide--display-tree-with-narrow
:around '+present*org-tree-slide-narrow-exclude-header)))
(advice-add #'org-tree-slide--display-tree-with-narrow
:around #'+present*org-tree-slide-narrow-exclude-header)))

30
modules/app/rss/config.el
View file

@ -24,8 +24,8 @@
(setq-default elfeed-search-filter "@2-week-ago ")
(setq elfeed-db-directory (concat doom-local-dir "elfeed/db/")
elfeed-enclosure-default-dir (concat doom-local-dir "elfeed/enclosures/")
elfeed-show-entry-switch '+rss-popup-pane
elfeed-show-entry-delete '+rss/delete-pane
elfeed-show-entry-switch #'+rss-popup-pane
elfeed-show-entry-delete #'+rss/delete-pane
shr-max-image-proportion 0.6)
(make-directory elfeed-db-directory t)
@ -35,24 +35,24 @@
doom-real-buffer-functions)
(add-hook! 'elfeed-show-mode-hook
'(doom-hide-modeline-mode +rss|elfeed-wrap))
#'(doom-hide-modeline-mode +rss|elfeed-wrap))
(after! doom-themes
(add-hook 'elfeed-show-mode-hook 'doom-buffer-mode))
(add-hook 'elfeed-show-mode-hook #'doom-buffer-mode))
(map! :map elfeed-search-mode-map
:n "r" 'elfeed-update
:n "s" 'elfeed-search-live-filter
:n "RET" 'elfeed-search-show-entry
:n "q" '+rss/quit
:n "r" #'elfeed-update
:n "s" #'elfeed-search-live-filter
:n "RET" #'elfeed-search-show-entry
:n "q" #'+rss/quit
:map elfeed-show-mode-map
[remap doom/kill-this-buffer] 'elfeed-kill-buffer
:n "q" 'elfeed-kill-buffer
:m "j" 'evil-next-visual-line
:m "k" 'evil-previous-visual-line
:n "]b" '+rss/next
:n "[b" '+rss/previous))
[remap doom/kill-this-buffer] #'elfeed-kill-buffer
:n "q" #'elfeed-kill-buffer
:m "j" #'evil-next-visual-line
:m "k" #'evil-previous-visual-line
:n "]b" #'+rss/next
:n "[b" #'+rss/previous))
(def-package! elfeed-org
@ -60,5 +60,5 @@
:config
(setq rmh-elfeed-org-files
(let ((default-directory +rss-org-dir))
(mapcar 'expand-file-name +rss-elfeed-files)))
(mapcar #'expand-file-name +rss-elfeed-files)))
(elfeed-org))

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

@ -18,22 +18,22 @@
(set! :popup "*twittering-edit*" :size 12 :select t :modeline nil)
(add-hook 'twittering-edit-mode-hook 'doom-hide-modeline-mode)
(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-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)
[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)