eriedaberrie/.emacs.d
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Demand f, dash, and cl-lib

Browse source
This commit is contained in:
eriedaberrie 2023-03-21 10:07:26 -07:00
parent 819c8a41fa
commit 196bbbf14c
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
init.el
View file

@ -7,6 +7,8 @@
(when my-is-nixos (when my-is-nixos
(setq auth-sources '("/run/agenix/authinfo"))) (setq auth-sources '("/run/agenix/authinfo")))
(require 'cl-lib)
(with-eval-after-load 'package (with-eval-after-load 'package
(add-to-list 'package-archives (add-to-list 'package-archives
'("melpa" . "https://melpa.org/packages/")) '("melpa" . "https://melpa.org/packages/"))
@ -29,9 +31,11 @@
inhibit-splash-screen t inhibit-splash-screen t
custom-file (expand-file-name "custom.el" temporary-file-directory)) custom-file (expand-file-name "custom.el" temporary-file-directory))
(use-package f) (use-package f
:demand t)
(use-package dash (use-package dash
:demand t
:hook (emacs-lisp-mode . dash-fontify-mode) :hook (emacs-lisp-mode . dash-fontify-mode)
:init :init
(with-eval-after-load 'info-look (with-eval-after-load 'info-look
@ -212,7 +216,6 @@
(aw-dispatch-always t) (aw-dispatch-always t)
(aw-scope 'frame) (aw-scope 'frame)
:config :config
(require 'cl-lib)
(dolist (c aw-dispatch-alist) (dolist (c aw-dispatch-alist)
(cl-case (car c) (cl-case (car c)
(?j (setcar c ?J)) (?j (setcar c ?J))
@ -519,7 +522,6 @@
(spell-fu--time-ensure t)) (spell-fu--time-ensure t))
(defun my-magit-spell-fu-check-range (pos-beg pos-end) (defun my-magit-spell-fu-check-range (pos-beg pos-end)
(require 'dash)
(spell-fu--overlays-remove pos-beg pos-end) (spell-fu--overlays-remove pos-beg pos-end)
(with-syntax-table spell-fu-syntax-table (with-syntax-table spell-fu-syntax-table
(save-match-data (save-match-data
@ -711,8 +713,6 @@
user-full-name name)))) user-full-name name))))
:config :config
(when (boundp 'my--agenix-email-json-data) (when (boundp 'my--agenix-email-json-data)
(require 'dash)
(require 'cl-lib)
(setq mu4e-contexts (setq mu4e-contexts
(--map (pcase-let ((`(,type (address . ,address) (name . ,name) ,_) it)) (--map (pcase-let ((`(,type (address . ,address) (name . ,name) ,_) it))
(make-mu4e-context (make-mu4e-context