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

cl-pushnew => push

Browse source 
Now that doom//byte-compile and doom//reload-autoloads always run in an
isolated Emacs session, there is little need to ensure idempotency of
the current session's state.
This commit is contained in:
Henrik Lissner 2017-11-10 00:19:04 +01:00
parent 79cf78d1c6
commit a24e22cf57
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
5 changed files with 12 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -28,7 +28,7 @@
(make-directory elfeed-db-directory t) (make-directory elfeed-db-directory t)
;; Ensure elfeed buffers are treated as real ;; Ensure elfeed buffers are treated as real
(cl-pushnew (lambda (buf) (string-match-p "^\\*elfeed" (buffer-name buf))) (push (lambda (buf) (string-match-p "^\\*elfeed" (buffer-name buf)))
doom-real-buffer-functions) doom-real-buffer-functions)
;; Enhance readability of a post ;; Enhance readability of a post

7
modules/feature/evil/config.el
View file

@ -209,13 +209,12 @@ across windows."
(cons (format "(%s " (or (read-string "(") "")) ")")) (cons (format "(%s " (or (read-string "(") "")) ")"))
;; Add escaped-sequence support to embrace ;; Add escaped-sequence support to embrace
(cl-pushnew (cons ?\\ (make-embrace-pair-struct (push (cons ?\\ (make-embrace-pair-struct
:key ?\\ :key ?\\
:read-function #'+evil--embrace-escaped :read-function #'+evil--embrace-escaped
:left-regexp "\\[[{(]" :left-regexp "\\[[{(]"
:right-regexp "\\[]})]")) :right-regexp "\\[]})]"))
(default-value 'embrace--pairs-list) (default-value 'embrace--pairs-list))
:key #'car)
;; Add extra pairs ;; Add extra pairs
(add-hook 'LaTeX-mode-hook #'embrace-LaTeX-mode-hook) (add-hook 'LaTeX-mode-hook #'embrace-LaTeX-mode-hook)
@ -238,7 +237,7 @@ across windows."
(add-hook 'doom-post-init-hook #'evil-escape-mode) (add-hook 'doom-post-init-hook #'evil-escape-mode)
:config :config
;; no `evil-escape' in minibuffer ;; no `evil-escape' in minibuffer
(cl-pushnew #'minibufferp evil-escape-inhibit-functions :test #'eq) (push #'minibufferp evil-escape-inhibit-functions)
(map! :irvo "C-g" #'evil-escape)) (map! :irvo "C-g" #'evil-escape))

2
modules/lang/swift/config.el
View file

@ -8,7 +8,7 @@
(add-hook 'swift-mode-hook #'flycheck-mode) (add-hook 'swift-mode-hook #'flycheck-mode)
:config :config
(set! :repl 'swift-mode #'swift-mode-run-repl) ; TODO test this (set! :repl 'swift-mode #'swift-mode-run-repl) ; TODO test this
(cl-pushnew 'swift flycheck-checkers)) (push 'swift flycheck-checkers))
(def-package! company-sourcekit (def-package! company-sourcekit

2
modules/org/org/config.el
View file

@ -216,7 +216,7 @@ between the two."
(defun +org-hacks () (defun +org-hacks ()
"Getting org to behave." "Getting org to behave."
;; Don't open separate windows ;; Don't open separate windows
(cl-pushnew '(file . find-file) org-link-frame-setup) (push '(file . find-file) org-link-frame-setup)
;; Let OS decide what to do with files when opened ;; Let OS decide what to do with files when opened
(setq org-file-apps (setq org-file-apps

2
modules/tools/electric-indent/config.el
View file

@ -16,7 +16,7 @@
(backward-word) (backward-word)
(looking-at-p (looking-at-p
(concat "\\<" (regexp-opt doom-electric-indent-words)))))) (concat "\\<" (regexp-opt doom-electric-indent-words))))))
(cl-pushnew #'+electric-indent|char electric-indent-functions :test #'eq) (push #'+electric-indent|char electric-indent-functions)
(def-setting! :electric (modes &rest plist) (def-setting! :electric (modes &rest plist)
"Declare :words (list of strings) or :chars (lists of chars) in MODES that "Declare :words (list of strings) or :chars (lists of chars) in MODES that