exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: exot:263def911f41545b4b949c96fa7f2bd2b866a2a0
Branches Tags
exot:master
...
compare: exot:5360344a92d6a42ddbe7bfc628f51e9a922c595b
Branches Tags
exot:master

4 Commits
263def911f ... 5360344a92

Author SHA1 Message Date
Daniel Borchmann
5360344a92
Close Gnus' server connection on suspend 2022-08-05 19:29:46 +02:00
Daniel Borchmann
95a32fba6b
Group Gnus search configuration in use-package 2022-08-05 19:29:25 +02:00
Daniel Borchmann
40ff1d3004
Update indentation in some elisp files 
According to new elisp default indentation provided by
`common-lisp-indent-function`.
 2022-08-05 09:15:33 +02:00
Daniel Borchmann
f22ef5705c
Update default elisp indentation function to new standard value 2022-08-05 09:14:50 +02:00
2 changed files with 194 additions and 193 deletions
Show Stats Expand all files Collapse all files

23
init.el
View File

@ -980,12 +980,11 @@ If DESCRIPTION, match it in the description. If TARGET, match it
in the target. If both DESCRIPTION and TARGET, match both, in the target. If both DESCRIPTION and TARGET, match both,
respectively." respectively."
(cl-labels (cl-labels
((no-desc ((no-desc (match)
(match) (rx-to-string `(seq (or bol (1+ blank)) (rx-to-string `(seq (or bol (1+ blank))
"[[" (0+ (not (any "]"))) (regexp ,match) (0+ (not (any "]"))) "[[" (0+ (not (any "]"))) (regexp ,match) (0+ (not (any "]")))
"]]"))) "]]")))
(match-both (match-both (description target)
(description target)
(rx-to-string `(seq (or bol (1+ blank)) (rx-to-string `(seq (or bol (1+ blank))
"[[" (0+ (not (any "]"))) (regexp ,target) (0+ (not (any "]"))) "[[" (0+ (not (any "]"))) (regexp ,target) (0+ (not (any "]")))
;; Added .* wildcards ;; Added .* wildcards
@ -993,14 +992,14 @@ respectively."
"]]"))) "]]")))
;; Note that these actually allow empty descriptions ;; Note that these actually allow empty descriptions
;; or targets, depending on what they are matching. ;; or targets, depending on what they are matching.
(match-desc (match-desc (match)
(match) (rx-to-string `(seq (or bol (1+ blank)) (rx-to-string `(seq (or bol (1+ blank))
"[[" (0+ (not (any "]"))) "[[" (0+ (not (any "]")))
;; Added .* wildcards ;; Added .* wildcards
"][" (regexp ".*") (regexp ,match) (regexp ".*") "][" (regexp ".*") (regexp ,match) (regexp ".*")
"]]"))) "]]")))
(match-target (match-target (match)
(match) (rx-to-string `(seq (or bol (1+ blank)) (rx-to-string `(seq (or bol (1+ blank))
"[[" (0+ (not (any "]"))) (regexp ,match) (0+ (not (any "]"))) "[[" (0+ (not (any "]"))) (regexp ,match) (0+ (not (any "]")))
;; Removed pattern for description ;; Removed pattern for description
"][" )))) "][" ))))
@ -1508,6 +1507,7 @@ respectively."
gnus-startup-file (expand-file-name "private/gnus-newsrc" emacs-d) gnus-startup-file (expand-file-name "private/gnus-newsrc" emacs-d)
gnus-cache-directory (expand-file-name "cache/" gnus-directory) gnus-cache-directory (expand-file-name "cache/" gnus-directory)
gnus-verbose 6 gnus-verbose 6
gnus-dbus-close-on-sleep t
message-directory (expand-file-name "mail/" gnus-directory) message-directory (expand-file-name "mail/" gnus-directory)
nnmail-message-id-cache-file (expand-file-name ".nnmail-cache" gnus-directory) nnmail-message-id-cache-file (expand-file-name ".nnmail-cache" gnus-directory)
@ -1768,8 +1768,9 @@ respectively."
;; Searching ;; Searching
(setq gnus-search-default-engines '((nnimap . gnus-search-imap)) (use-package gnus-search
gnus-search-use-parsed-queries t) :init (setq gnus-search-default-engines '((nnimap . gnus-search-imap))
gnus-search-use-parsed-queries t))
;; Agents ;; Agents
@ -2656,7 +2657,7 @@ With given ARG, display files in `db/important-document-path’."
;; General Stuff first ;; General Stuff first
(use-package lisp-mode (use-package lisp-mode
:init (setq lisp-indent-function #'lisp-indent-function)) :init (setq lisp-indent-function #'common-lisp-indent-function))
(use-package lispy (use-package lispy
:ensure t :ensure t