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