💥 Rename def-package! -> use-package!

Calling this pivotal macro "def-package!" has frequently been a source
of confusion. It is a thin wrapper around use-package, and it should be
obvious that it is so. For this reason, and to match the naming
convention used with other convenience macros/wrappers, it is now
use-package!.

Also changes def-package-hook! -> use-package-hook!

The old macros are now marked obsolete and will be removed when straight
integration is merged.
This commit is contained in:
Henrik Lissner 2019-07-23 12:44:03 +02:00
parent c795a988e6
commit 76cacb5bfe
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
110 changed files with 310 additions and 308 deletions

View file

@ -381,7 +381,7 @@ current file is in, or d) the module associated with the current major mode (see
(split-string (split-string
(shell-command-to-string (shell-command-to-string
(format "git grep --no-break --no-heading --line-number '%s %s\\($\\| \\)'" (format "git grep --no-break --no-heading --line-number '%s %s\\($\\| \\)'"
"\\(^;;;###package\\|(after!\\|(def-package!\\)" "\\(^;;;###package\\|(after!\\|(use-package!\\)"
package)) package))
"\n" t))) "\n" t)))

View file

@ -63,7 +63,7 @@ successfully sets indent_style/indent_size.")
;; ;;
;;; Built-in plugins ;;; Built-in plugins
(def-package! autorevert (use-package! autorevert
;; revert buffers when their files/state have changed ;; revert buffers when their files/state have changed
:hook (focus-in . doom-auto-revert-buffers-h) :hook (focus-in . doom-auto-revert-buffers-h)
:hook (after-save . doom-auto-revert-buffers-h) :hook (after-save . doom-auto-revert-buffers-h)
@ -99,7 +99,7 @@ successfully sets indent_style/indent_size.")
(setq bookmark-save-flag t)) (setq bookmark-save-flag t))
(def-package! recentf (use-package! recentf
;; Keep track of recently opened files ;; Keep track of recently opened files
:defer-incrementally easymenu tree-widget timer :defer-incrementally easymenu tree-widget timer
:after-call after-find-file :after-call after-find-file
@ -141,7 +141,7 @@ successfully sets indent_style/indent_size.")
(quiet! (recentf-mode +1)))) (quiet! (recentf-mode +1))))
(def-package! savehist (use-package! savehist
;; persist variables across sessions ;; persist variables across sessions
:defer-incrementally custom :defer-incrementally custom
:after-call post-command-hook :after-call post-command-hook
@ -161,7 +161,7 @@ successfully sets indent_style/indent_size.")
else if item collect it))))) else if item collect it)))))
(def-package! saveplace (use-package! saveplace
;; persistent point location in buffers ;; persistent point location in buffers
:after-call after-find-file dired-initial-position-hook :after-call after-find-file dired-initial-position-hook
:config :config
@ -175,7 +175,7 @@ successfully sets indent_style/indent_size.")
(save-place-mode +1)) (save-place-mode +1))
(def-package! server (use-package! server
:when (display-graphic-p) :when (display-graphic-p)
:after-call pre-command-hook after-find-file focus-out-hook :after-call pre-command-hook after-find-file focus-out-hook
:init :init
@ -189,7 +189,7 @@ successfully sets indent_style/indent_size.")
;; ;;
;;; Packages ;;; Packages
(def-package! better-jumper (use-package! better-jumper
:after-call pre-command-hook :after-call pre-command-hook
:init :init
(global-set-key [remap evil-jump-forward] #'better-jumper-jump-forward) (global-set-key [remap evil-jump-forward] #'better-jumper-jump-forward)
@ -227,7 +227,7 @@ successfully sets indent_style/indent_size.")
nil)) nil))
(def-package! command-log-mode (use-package! command-log-mode
:commands global-command-log-mode :commands global-command-log-mode
:config :config
(setq command-log-mode-auto-show t (setq command-log-mode-auto-show t
@ -236,7 +236,7 @@ successfully sets indent_style/indent_size.")
command-log-mode-window-size 50)) command-log-mode-window-size 50))
(def-package! dtrt-indent (use-package! dtrt-indent
;; Automatic detection of indent settings ;; Automatic detection of indent settings
:unless noninteractive :unless noninteractive
:defer t :defer t
@ -273,7 +273,7 @@ successfully sets indent_style/indent_size.")
(funcall orig-fn arg))))) (funcall orig-fn arg)))))
(def-package! helpful (use-package! helpful
;; a better *help* buffer ;; a better *help* buffer
:commands helpful--read-symbol :commands helpful--read-symbol
:init :init
@ -308,7 +308,7 @@ successfully sets indent_style/indent_size.")
(add-hook 'imenu-after-jump-hook #'recenter) (add-hook 'imenu-after-jump-hook #'recenter)
(def-package! smartparens (use-package! smartparens
;; Auto-close delimiters and blocks as you type. It's more powerful than that, ;; Auto-close delimiters and blocks as you type. It's more powerful than that,
;; but that is all Doom uses it for. ;; but that is all Doom uses it for.
:after-call doom-switch-buffer-hook after-find-file :after-call doom-switch-buffer-hook after-find-file
@ -363,12 +363,12 @@ successfully sets indent_style/indent_size.")
(smartparens-global-mode +1)) (smartparens-global-mode +1))
(def-package! so-long (use-package! so-long
:after-call after-find-file :after-call after-find-file
:config (global-so-long-mode +1)) :config (global-so-long-mode +1))
(def-package! undo-tree (use-package! undo-tree
;; Branching & persistent undo ;; Branching & persistent undo
:after-call doom-switch-buffer-hook after-find-file :after-call doom-switch-buffer-hook after-find-file
:config :config
@ -395,7 +395,7 @@ successfully sets indent_style/indent_size.")
(global-undo-tree-mode +1)) (global-undo-tree-mode +1))
(def-package! ws-butler (use-package! ws-butler
;; a less intrusive `delete-trailing-whitespaces' on save ;; a less intrusive `delete-trailing-whitespaces' on save
:after-call after-find-file :after-call after-find-file
:config :config

View file

@ -177,7 +177,7 @@ localleader prefix."
;; ;;
;;; Packages ;;; Packages
(def-package! which-key (use-package! which-key
:defer 1 :defer 1
:after-call pre-command-hook :after-call pre-command-hook
:init :init

View file

@ -193,7 +193,7 @@ at the values with which this function was called."
(call-interactively ,command)))) (call-interactively ,command))))
(defalias 'lambda!! 'λ!!) (defalias 'lambda!! 'λ!!)
(define-obsolete-function-alias 'FILE! 'file!) (define-obsolete-function-alias 'FILE! 'file!) ; DEPRECATED
(defun file! () (defun file! ()
"Return the emacs lisp file this macro is called from." "Return the emacs lisp file this macro is called from."
(cond ((bound-and-true-p byte-compile-current-file)) (cond ((bound-and-true-p byte-compile-current-file))
@ -202,7 +202,7 @@ at the values with which this function was called."
(car current-load-list)) (car current-load-list))
(buffer-file-name))) (buffer-file-name)))
(define-obsolete-function-alias 'DIR! 'dir!) (define-obsolete-function-alias 'DIR! 'dir!) ; DEPRECATED
(defun dir! () (defun dir! ()
"Returns the directory of the emacs lisp file this macro is called from." "Returns the directory of the emacs lisp file this macro is called from."
(when-let (path (file!)) (when-let (path (file!))

View file

@ -244,10 +244,10 @@ This value is cached. If REFRESH-P, then don't use the cached value."
use-package-minimum-reported-time (if doom-debug-mode 0 0.1) use-package-minimum-reported-time (if doom-debug-mode 0 0.1)
use-package-expand-minimally (not noninteractive))) use-package-expand-minimally (not noninteractive)))
;; Adds four new keywords to `use-package' (and consequently, `def-package!') to ;; Adds four new keywords to `use-package' (and consequently, `use-package!') to
;; expand its lazy-loading capabilities. They are: ;; expand its lazy-loading capabilities. They are:
;; ;;
;; Check out `def-package!'s documentation for more about these two. ;; Check out `use-package!'s documentation for more about these two.
;; :after-call SYMBOL|LIST ;; :after-call SYMBOL|LIST
;; :defer-incrementally SYMBOL|LIST|t ;; :defer-incrementally SYMBOL|LIST|t
;; ;;
@ -393,7 +393,8 @@ to least)."
`(setq doom-modules ',doom-modules)) `(setq doom-modules ',doom-modules))
(defvar doom-disabled-packages) (defvar doom-disabled-packages)
(defmacro def-package! (name &rest plist) (define-obsolete-function-alias 'def-package! 'use-package!) ; DEPRECATED
(defmacro use-package! (name &rest plist)
"Declares and configures a package. "Declares and configures a package.
This is a thin wrapper around `use-package', and is ignored if the NAME package This is a thin wrapper around `use-package', and is ignored if the NAME package
@ -407,7 +408,7 @@ two extra properties:
The first time any of these functions or hooks are executed, the package is The first time any of these functions or hooks are executed, the package is
loaded. e.g. loaded. e.g.
(def-package! projectile (use-package! projectile
:after-call (pre-command-hook after-find-file dired-before-readin-hook) :after-call (pre-command-hook after-find-file dired-before-readin-hook)
...) ...)
@ -421,7 +422,7 @@ two extra properties:
NAME is implicitly added if this property is present and non-nil. No need to NAME is implicitly added if this property is present and non-nil. No need to
specify it. A value of `t' implies NAME, e.g. specify it. A value of `t' implies NAME, e.g.
(def-package! abc (use-package! abc
;; This is equivalent to :defer-incrementally (abc) ;; This is equivalent to :defer-incrementally (abc)
:defer-incrementally t :defer-incrementally t
...)" ...)"
@ -434,8 +435,9 @@ two extra properties:
(not (locate-library (symbol-name name))))) (not (locate-library (symbol-name name)))))
`(use-package ,name ,@plist))) `(use-package ,name ,@plist)))
(defmacro def-package-hook! (package when &rest body) (define-obsolete-function-alias 'def-package-hook! 'use-package-hook!) ; DEPRECATED
"Reconfigures a package's `def-package!' block. (defmacro use-package-hook! (package when &rest body)
"Reconfigures a package's `use-package!' block.
Only use this macro in a module's init.el file. Only use this macro in a module's init.el file.
@ -446,11 +448,11 @@ WHEN should be one of the following:
:pre-init :post-init :pre-config :post-config :pre-init :post-init :pre-config :post-config
WARNING: If :pre-init or :pre-config hooks return nil, the original WARNING: If :pre-init or :pre-config hooks return nil, the original
`def-package!''s :init/:config block (respectively) is overwritten, so remember `use-package!''s :init/:config block (respectively) is overwritten, so remember
to have them return non-nil (or exploit that to overwrite Doom's config)." to have them return non-nil (or exploit that to overwrite Doom's config)."
(declare (indent defun)) (declare (indent defun))
(unless (memq when '(:pre-init :post-init :pre-config :post-config)) (unless (memq when '(:pre-init :post-init :pre-config :post-config))
(error "'%s' isn't a valid hook for def-package-hook!" when)) (error "'%s' isn't a valid hook for use-package-hook!" when))
`(progn `(progn
(setq use-package-inject-hooks t) (setq use-package-inject-hooks t)
(add-hook! (add-hook!

View file

@ -64,7 +64,7 @@ missing) and shouldn't be deleted.")
"A list of recipes for straight's recipe repos.") "A list of recipes for straight's recipe repos.")
(defvar doom-disabled-packages () (defvar doom-disabled-packages ()
"A list of packages that should be ignored by `def-package!' and `after!'.") "A list of packages that should be ignored by `use-package!' and `after!'.")
;; ;;

View file

@ -21,7 +21,7 @@ Emacs.")
;; ;;
;;; Packages ;;; Packages
(def-package! projectile (use-package! projectile
:after-call after-find-file dired-before-readin-hook minibuffer-setup-hook :after-call after-find-file dired-before-readin-hook minibuffer-setup-hook
:commands (projectile-project-root :commands (projectile-project-root
projectile-project-name projectile-project-name

View file

@ -365,7 +365,7 @@ treat Emacs as a non-application window."
(setq ansi-color-for-comint-mode t) (setq ansi-color-for-comint-mode t)
(def-package! compile (use-package! compile
:defer t :defer t
:config :config
(setq compilation-always-kill t ; kill compilation process before starting another (setq compilation-always-kill t ; kill compilation process before starting another
@ -375,7 +375,7 @@ treat Emacs as a non-application window."
(add-hook 'compilation-filter-hook #'doom-apply-ansi-color-to-compilation-buffer-h)) (add-hook 'compilation-filter-hook #'doom-apply-ansi-color-to-compilation-buffer-h))
(def-package! ediff (use-package! ediff
:defer t :defer t
:init :init
(setq ediff-diff-options "-w" ; turn off whitespace checking (setq ediff-diff-options "-w" ; turn off whitespace checking
@ -394,7 +394,7 @@ treat Emacs as a non-application window."
'append)) 'append))
(def-package! hl-line (use-package! hl-line
;; Highlights the current line ;; Highlights the current line
:hook ((prog-mode text-mode conf-mode) . hl-line-mode) :hook ((prog-mode text-mode conf-mode) . hl-line-mode)
:config :config
@ -418,14 +418,14 @@ treat Emacs as a non-application window."
(hl-line-mode +1)))))) (hl-line-mode +1))))))
(def-package! winner (use-package! winner
;; undo/redo changes to Emacs' window layout ;; undo/redo changes to Emacs' window layout
:after-call after-find-file doom-switch-window-hook :after-call after-find-file doom-switch-window-hook
:preface (defvar winner-dont-bind-my-keys t) :preface (defvar winner-dont-bind-my-keys t)
:config (winner-mode +1)) ; I'll bind keys myself :config (winner-mode +1)) ; I'll bind keys myself
(def-package! paren (use-package! paren
;; highlight matching delimiters ;; highlight matching delimiters
:after-call after-find-file doom-switch-buffer-hook :after-call after-find-file doom-switch-buffer-hook
:config :config
@ -449,7 +449,7 @@ treat Emacs as a non-application window."
;; ;;
;;; Third party packages ;;; Third party packages
(def-package! all-the-icons (use-package! all-the-icons
:commands (all-the-icons-octicon :commands (all-the-icons-octicon
all-the-icons-faicon all-the-icons-faicon
all-the-icons-fileicon all-the-icons-fileicon
@ -471,7 +471,7 @@ treat Emacs as a non-application window."
#'hide-mode-line-mode) #'hide-mode-line-mode)
;; Better fontification of number literals in code ;; Better fontification of number literals in code
(def-package! highlight-numbers (use-package! highlight-numbers
:hook ((prog-mode conf-mode) . highlight-numbers-mode) :hook ((prog-mode conf-mode) . highlight-numbers-mode)
:config (setq highlight-numbers-generic-regexp "\\_<[[:digit:]]+\\(?:\\.[0-9]*\\)?\\_>")) :config (setq highlight-numbers-generic-regexp "\\_<[[:digit:]]+\\(?:\\.[0-9]*\\)?\\_>"))
@ -501,7 +501,7 @@ treat Emacs as a non-application window."
(defun doom-disable-line-numbers-h () (display-line-numbers-mode -1)) (defun doom-disable-line-numbers-h () (display-line-numbers-mode -1))
;; `nlinum' is used for Emacs 25 users, as Emacs 26+ has native line numbers. ;; `nlinum' is used for Emacs 25 users, as Emacs 26+ has native line numbers.
(def-package! nlinum (use-package! nlinum
;; Line number column. A faster (or equivalent, in the worst case) line number ;; Line number column. A faster (or equivalent, in the worst case) line number
;; plugin than `linum-mode'. ;; plugin than `linum-mode'.
:unless EMACS26+ :unless EMACS26+
@ -550,7 +550,7 @@ character that looks like a space that `whitespace-mode' won't affect.")
(length (save-excursion (goto-char (point-max)) (length (save-excursion (goto-char (point-max))
(format-mode-line "%l"))))))) (format-mode-line "%l")))))))
(def-package! nlinum-hl (use-package! nlinum-hl
;; Fixes disappearing line numbers in nlinum and other quirks ;; Fixes disappearing line numbers in nlinum and other quirks
:unless EMACS26+ :unless EMACS26+
:after nlinum :after nlinum
@ -566,7 +566,7 @@ character that looks like a space that `whitespace-mode' won't affect.")
;; forces them to resize. ;; forces them to resize.
(add-hook 'after-setting-font-hook #'nlinum-hl-flush-all-windows)) (add-hook 'after-setting-font-hook #'nlinum-hl-flush-all-windows))
(def-package! nlinum-relative (use-package! nlinum-relative
:unless EMACS26+ :unless EMACS26+
:defer t :defer t
:config :config

View file

@ -7,7 +7,7 @@
;; ;;
;; Packages ;; Packages
(def-package! calfw (use-package! calfw
:commands cfw:open-calendar-buffer :commands cfw:open-calendar-buffer
:config :config
;; better frame for calendar ;; better frame for calendar
@ -30,14 +30,14 @@
(advice-add #'cfw:render-button :override #'+calendar-cfw:render-button-a)) (advice-add #'cfw:render-button :override #'+calendar-cfw:render-button-a))
(def-package! calfw-org (use-package! calfw-org
:commands (cfw:open-org-calendar :commands (cfw:open-org-calendar
cfw:org-create-source cfw:org-create-source
cfw:open-org-calendar-withkevin cfw:open-org-calendar-withkevin
my-open-calendar)) my-open-calendar))
(def-package! org-gcal (use-package! org-gcal
:commands (org-gcal-sync :commands (org-gcal-sync
org-gcal-fetch org-gcal-fetch
org-gcal-post-at-point org-gcal-post-at-point
@ -48,4 +48,4 @@
(message "org-gcal::%s - %s" title mes))) (message "org-gcal::%s - %s" title mes)))
;; (def-package! alert) ;; (use-package! alert)

View file

@ -46,7 +46,7 @@ playback.")
;; ;;
;; Packages ;; Packages
(def-package! circe (use-package! circe
:commands circe circe-server-buffers :commands circe circe-server-buffers
:init (setq circe-network-defaults nil) :init (setq circe-network-defaults nil)
:config :config
@ -152,14 +152,14 @@ playback.")
"n" #'circe-command-NAMES))) "n" #'circe-command-NAMES)))
(def-package! circe-color-nicks (use-package! circe-color-nicks
:hook (circe-channel-mode . enable-circe-color-nicks) :hook (circe-channel-mode . enable-circe-color-nicks)
:config :config
(setq circe-color-nicks-min-constrast-ratio 4.5 (setq circe-color-nicks-min-constrast-ratio 4.5
circe-color-nicks-everywhere t)) circe-color-nicks-everywhere t))
(def-package! circe-new-day-notifier (use-package! circe-new-day-notifier
:after circe :after circe
:config :config
(enable-circe-new-day-notifier) (enable-circe-new-day-notifier)
@ -167,7 +167,7 @@ playback.")
(+irc--pad "Day" "Date changed [{day}]"))) (+irc--pad "Day" "Date changed [{day}]")))
(def-package! circe-notifications (use-package! circe-notifications
:commands enable-circe-notifications :commands enable-circe-notifications
:init :init
(if +irc-defer-notifications (if +irc-defer-notifications
@ -184,7 +184,7 @@ playback.")
(IS-LINUX 'libnotify)))) (IS-LINUX 'libnotify))))
(def-package! lui (use-package! lui
:commands lui-mode :commands lui-mode
:config :config
(define-key lui-mode-map "\C-u" #'lui-kill-to-beginning-of-line) (define-key lui-mode-map "\C-u" #'lui-kill-to-beginning-of-line)
@ -240,10 +240,10 @@ Courtesy of esh-mode.el"
wrap-prefix (make-string (+ +irc-left-padding 3) ? ))))) wrap-prefix (make-string (+ +irc-left-padding 3) ? )))))
(def-package! lui-logging (use-package! lui-logging
:after lui :after lui
:config (enable-lui-logging)) :config (enable-lui-logging))
(def-package! lui-autopaste (use-package! lui-autopaste
:hook (circe-channel-mode . enable-lui-autopaste)) :hook (circe-channel-mode . enable-lui-autopaste))

View file

@ -19,7 +19,7 @@ easier to scroll through.")
;; ;;
;; Packages ;; Packages
(def-package! elfeed (use-package! elfeed
:commands elfeed :commands elfeed
:config :config
(setq elfeed-search-filter "@2-week-ago " (setq elfeed-search-filter "@2-week-ago "
@ -64,7 +64,7 @@ easier to scroll through.")
(kbd "M-RET") #'elfeed-search-browse-url))) (kbd "M-RET") #'elfeed-search-browse-url)))
(def-package! elfeed-org (use-package! elfeed-org
:when (featurep! +org) :when (featurep! +org)
:after elfeed :after elfeed
:config :config

View file

@ -1,6 +1,6 @@
;;; app/twitter/config.el -*- lexical-binding: t; -*- ;;; app/twitter/config.el -*- lexical-binding: t; -*-
(def-package! twittering-mode (use-package! twittering-mode
:commands twit :commands twit
:config :config
(setq twittering-private-info-file (setq twittering-private-info-file

View file

@ -9,7 +9,7 @@
;; ;;
;; Packages ;; Packages
(def-package! langtool (use-package! langtool
:when (featurep! +langtool) :when (featurep! +langtool)
:commands (langtool-check :commands (langtool-check
langtool-check-done langtool-check-done

View file

@ -1,6 +1,6 @@
;;; completion/company/config.el -*- lexical-binding: t; -*- ;;; completion/company/config.el -*- lexical-binding: t; -*-
(def-package! company (use-package! company
:commands company-complete-common company-manual-begin company-grab-line :commands company-complete-common company-manual-begin company-grab-line
:after-call evil-insert-state-entry-hook evil-emacs-state-entry-hook :after-call evil-insert-state-entry-hook evil-emacs-state-entry-hook
:init :init
@ -35,7 +35,7 @@
(global-company-mode +1)) (global-company-mode +1))
(def-package! company-tng (use-package! company-tng
:when (featurep! +tng) :when (featurep! +tng)
:after-call post-self-insert-hook :after-call post-self-insert-hook
:config :config
@ -51,7 +51,7 @@
;; ;;
;; Packages ;; Packages
(def-package! company-prescient (use-package! company-prescient
:hook (company-mode . company-prescient-mode) :hook (company-mode . company-prescient-mode)
:config :config
;; NOTE prescient config duplicated with `ivy' ;; NOTE prescient config duplicated with `ivy'
@ -59,7 +59,7 @@
(prescient-persist-mode +1)) (prescient-persist-mode +1))
(def-package! company-box (use-package! company-box
:when (and EMACS26+ (featurep! +childframe)) :when (and EMACS26+ (featurep! +childframe))
:hook (company-mode . company-box-mode) :hook (company-mode . company-box-mode)
:config :config
@ -119,7 +119,7 @@
((facep sym) 'ElispFace)))))) ((facep sym) 'ElispFace))))))
(def-package! company-dict (use-package! company-dict
:defer t :defer t
:config :config
(setq company-dict-dir (expand-file-name "dicts" doom-private-dir)) (setq company-dict-dir (expand-file-name "dicts" doom-private-dir))

View file

@ -32,7 +32,7 @@ be negative.")
;; ;;
;;; Packages ;;; Packages
(def-package! helm-mode (use-package! helm-mode
:defer t :defer t
:after-call pre-command-hook :after-call pre-command-hook
:init :init
@ -57,7 +57,7 @@ be negative.")
(add-to-list 'helm-completing-read-handlers-alist (cons #'find-file-at-point nil))) (add-to-list 'helm-completing-read-handlers-alist (cons #'find-file-at-point nil)))
(def-package! helm (use-package! helm
:after helm-mode :after helm-mode
:preface :preface
(setq helm-candidate-number-limit 50 (setq helm-candidate-number-limit 50
@ -125,7 +125,7 @@ be negative.")
(advice-add fn :around #'doom-use-helpful-a))) (advice-add fn :around #'doom-use-helpful-a)))
(def-package! helm-flx (use-package! helm-flx
:when (featurep! +fuzzy) :when (featurep! +fuzzy)
:hook (helm-mode . helm-flx-mode) :hook (helm-mode . helm-flx-mode)
:config (helm-flx-mode +1)) :config (helm-flx-mode +1))
@ -159,7 +159,7 @@ be negative.")
;;;###package helm-projectile ;;;###package helm-projectile
(def-package! helm-projectile (use-package! helm-projectile
:commands (helm-projectile-find-file :commands (helm-projectile-find-file
helm-projectile-recentf helm-projectile-recentf
helm-projectile-switch-project helm-projectile-switch-project

View file

@ -43,7 +43,7 @@ immediately runs it on the current candidate (ending the ivy session)."
;; ;;
;;; Packages ;;; Packages
(def-package! ivy (use-package! ivy
:defer 1 :defer 1
:after-call pre-command-hook :after-call pre-command-hook
:init :init
@ -109,7 +109,7 @@ evil-ex-specific constructs, so we disable it solely in evil-ex."
(ivy-mode +1) (ivy-mode +1)
(def-package! ivy-hydra (use-package! ivy-hydra
:commands (ivy-dispatching-done-hydra ivy--matcher-desc ivy-hydra/body) :commands (ivy-dispatching-done-hydra ivy--matcher-desc ivy-hydra/body)
:init :init
(define-key! ivy-minibuffer-map (define-key! ivy-minibuffer-map
@ -120,7 +120,7 @@ evil-ex-specific constructs, so we disable it solely in evil-ex."
(define-key ivy-minibuffer-map (kbd "M-o") #'hydra-ivy/body))) (define-key ivy-minibuffer-map (kbd "M-o") #'hydra-ivy/body)))
(def-package! ivy-rich (use-package! ivy-rich
:after ivy :after ivy
:config :config
(when (featurep! +icons) (when (featurep! +icons)
@ -158,7 +158,7 @@ evil-ex-specific constructs, so we disable it solely in evil-ex."
(ivy-rich-mode +1)) (ivy-rich-mode +1))
(def-package! all-the-icons-ivy (use-package! all-the-icons-ivy
:when (featurep! +icons) :when (featurep! +icons)
:after ivy :after ivy
:config :config
@ -174,7 +174,7 @@ evil-ex-specific constructs, so we disable it solely in evil-ex."
(all-the-icons-ivy-setup)))) (all-the-icons-ivy-setup))))
(def-package! counsel (use-package! counsel
:commands counsel-describe-face :commands counsel-describe-face
:init :init
(map! [remap apropos] #'counsel-apropos (map! [remap apropos] #'counsel-apropos
@ -246,7 +246,7 @@ evil-ex-specific constructs, so we disable it solely in evil-ex."
'(("O" +ivy-git-grep-other-window-action "open in other window")))) '(("O" +ivy-git-grep-other-window-action "open in other window"))))
(def-package! counsel-projectile (use-package! counsel-projectile
:defer t :defer t
:init :init
(map! [remap projectile-find-file] #'+ivy/projectile-find-file (map! [remap projectile-find-file] #'+ivy/projectile-find-file
@ -260,12 +260,12 @@ evil-ex-specific constructs, so we disable it solely in evil-ex."
(ivy-set-display-transformer #'counsel-projectile-find-file nil)) (ivy-set-display-transformer #'counsel-projectile-find-file nil))
(def-package! wgrep (use-package! wgrep
:commands wgrep-change-to-wgrep-mode :commands wgrep-change-to-wgrep-mode
:config (setq wgrep-auto-save-buffer t)) :config (setq wgrep-auto-save-buffer t))
(def-package! ivy-posframe (use-package! ivy-posframe
:when (and EMACS26+ (featurep! +childframe)) :when (and EMACS26+ (featurep! +childframe))
:hook (ivy-mode . ivy-posframe-mode) :hook (ivy-mode . ivy-posframe-mode)
:config :config
@ -285,7 +285,7 @@ evil-ex-specific constructs, so we disable it solely in evil-ex."
#'ivy-display-function-fallback))) #'ivy-display-function-fallback)))
(def-package! flx (use-package! flx
:when (and (featurep! +fuzzy) :when (and (featurep! +fuzzy)
(not (featurep! +prescient))) (not (featurep! +prescient)))
:defer t ; is loaded by ivy :defer t ; is loaded by ivy
@ -295,7 +295,7 @@ evil-ex-specific constructs, so we disable it solely in evil-ex."
ivy-flx-limit 10000)) ivy-flx-limit 10000))
(def-package! ivy-prescient (use-package! ivy-prescient
:hook (ivy-mode . ivy-prescient-mode) :hook (ivy-mode . ivy-prescient-mode)
:when (featurep! +prescient) :when (featurep! +prescient)
:init :init

View file

@ -9,7 +9,7 @@
(setq shift-select-mode t) (setq shift-select-mode t)
(delete-selection-mode +1) (delete-selection-mode +1)
(def-package! expand-region (use-package! expand-region
:commands (er/contract-region er/mark-symbol er/mark-word) :commands (er/contract-region er/mark-symbol er/mark-word)
:config :config
(def-advice! doom--quit-expand-region-a () (def-advice! doom--quit-expand-region-a ()

View file

@ -19,7 +19,7 @@ directives. By default, this only recognizes C directives.")
(defvar evil-want-C-w-scroll t) (defvar evil-want-C-w-scroll t)
(defvar evil-want-Y-yank-to-eol t) (defvar evil-want-Y-yank-to-eol t)
(def-package! evil (use-package! evil
:hook (doom-init-modules . evil-mode) :hook (doom-init-modules . evil-mode)
:demand t :demand t
:preface :preface
@ -175,7 +175,7 @@ directives. By default, this only recognizes C directives.")
;; ;;
;; Packages ;; Packages
(def-package! evil-commentary (use-package! evil-commentary
:commands (evil-commentary :commands (evil-commentary
evil-commentary-yank evil-commentary-yank
evil-commentary-yank-line evil-commentary-yank-line
@ -183,7 +183,7 @@ directives. By default, this only recognizes C directives.")
:config (evil-commentary-mode 1)) :config (evil-commentary-mode 1))
(def-package! evil-easymotion (use-package! evil-easymotion
:commands evilem-create evilem-default-keybindings :commands evilem-create evilem-default-keybindings
:config :config
;; Use evil-search backend, instead of isearch ;; Use evil-search backend, instead of isearch
@ -198,7 +198,7 @@ directives. By default, this only recognizes C directives.")
:bind ((evil-ex-search-highlight-all nil)))) :bind ((evil-ex-search-highlight-all nil))))
(def-package! evil-embrace (use-package! evil-embrace
:commands embrace-add-pair embrace-add-pair-regexp :commands embrace-add-pair embrace-add-pair-regexp
:hook (LaTeX-mode . embrace-LaTeX-mode-hook) :hook (LaTeX-mode . embrace-LaTeX-mode-hook)
:hook (org-mode . embrace-org-mode-hook) :hook (org-mode . embrace-org-mode-hook)
@ -245,7 +245,7 @@ directives. By default, this only recognizes C directives.")
:right-regexp "\\[]})]"))) :right-regexp "\\[]})]")))
(def-package! evil-escape (use-package! evil-escape
:commands evil-escape :commands evil-escape
:after-call evil-normal-state-exit-hook :after-call evil-normal-state-exit-hook
:init :init
@ -261,7 +261,7 @@ directives. By default, this only recognizes C directives.")
(evil-escape-mode +1)) (evil-escape-mode +1))
(def-package! evil-exchange (use-package! evil-exchange
:commands evil-exchange :commands evil-exchange
:config :config
(add-hook 'doom-escape-hook (add-hook 'doom-escape-hook
@ -271,7 +271,7 @@ directives. By default, this only recognizes C directives.")
t)))) t))))
(def-package! evil-snipe (use-package! evil-snipe
:commands (evil-snipe-mode :commands (evil-snipe-mode
evil-snipe-override-mode evil-snipe-override-mode
evil-snipe-local-mode evil-snipe-local-mode
@ -288,7 +288,7 @@ directives. By default, this only recognizes C directives.")
(evil-snipe-override-mode +1)) (evil-snipe-override-mode +1))
(def-package! evil-surround (use-package! evil-surround
:commands (global-evil-surround-mode :commands (global-evil-surround-mode
evil-surround-edit evil-surround-edit
evil-Surround-edit evil-Surround-edit
@ -297,7 +297,7 @@ directives. By default, this only recognizes C directives.")
;; Allows you to use the selection for * and # ;; Allows you to use the selection for * and #
(def-package! evil-visualstar (use-package! evil-visualstar
:commands (evil-visualstar/begin-search :commands (evil-visualstar/begin-search
evil-visualstar/begin-search-forward evil-visualstar/begin-search-forward
evil-visualstar/begin-search-backward) evil-visualstar/begin-search-backward)
@ -310,5 +310,5 @@ directives. By default, this only recognizes C directives.")
;; ;;
;;; Text object plugins ;;; Text object plugins
(def-package! exato (use-package! exato
:commands evil-outer-xml-attr evil-inner-xml-attr) :commands evil-outer-xml-attr evil-inner-xml-attr)

View file

@ -17,7 +17,7 @@
;; ;;
;; Packages ;; Packages
(def-package! hideshow ; built-in (use-package! hideshow ; built-in
:commands (hs-toggle-hiding :commands (hs-toggle-hiding
hs-hide-block hs-hide-block
hs-hide-level hs-hide-level
@ -62,7 +62,7 @@
'((t)))))) '((t))))))
(def-package! evil-vimish-fold (use-package! evil-vimish-fold
:when (featurep! :editor evil) :when (featurep! :editor evil)
:commands (evil-vimish-fold/next-fold evil-vimish-fold/previous-fold :commands (evil-vimish-fold/next-fold evil-vimish-fold/previous-fold
evil-vimish-fold/delete evil-vimish-fold/delete-all evil-vimish-fold/delete evil-vimish-fold/delete-all

View file

@ -1,6 +1,6 @@
;;; editor/lispy/config.el -*- lexical-binding: t; -*- ;;; editor/lispy/config.el -*- lexical-binding: t; -*-
(def-package! lispy (use-package! lispy
:hook ((common-lisp-mode . lispy-mode) :hook ((common-lisp-mode . lispy-mode)
(emacs-lisp-mode . lispy-mode) (emacs-lisp-mode . lispy-mode)
(scheme-mode . lispy-mode) (scheme-mode . lispy-mode)
@ -12,7 +12,7 @@
(setq lispy-close-quotes-at-end-p t) (setq lispy-close-quotes-at-end-p t)
(add-hook 'lispy-mode-hook #'turn-off-smartparens-mode)) (add-hook 'lispy-mode-hook #'turn-off-smartparens-mode))
(def-package! lispyville (use-package! lispyville
:when (featurep! :editor evil) :when (featurep! :editor evil)
:hook (lispy-mode . lispyville-mode) :hook (lispy-mode . lispyville-mode)
:config :config

View file

@ -1,6 +1,6 @@
;;; editor/multiple-cursors/config.el -*- lexical-binding: t; -*- ;;; editor/multiple-cursors/config.el -*- lexical-binding: t; -*-
(def-package! evil-mc (use-package! evil-mc
:when (featurep! :editor evil) :when (featurep! :editor evil)
:commands (evil-mc-make-cursor-here :commands (evil-mc-make-cursor-here
evil-mc-make-all-cursors evil-mc-make-all-cursors

View file

@ -1,6 +1,6 @@
;;; editor/objed/config.el -*- lexical-binding: t; -*- ;;; editor/objed/config.el -*- lexical-binding: t; -*-
(def-package! objed (use-package! objed
:after-call pre-command-hook :after-call pre-command-hook
:config :config
;; Prevent undo actions from exiting edit state ;; Prevent undo actions from exiting edit state

View file

@ -1,6 +1,6 @@
;;; editor/parinfer/config.el -*- lexical-binding: t; -*- ;;; editor/parinfer/config.el -*- lexical-binding: t; -*-
(def-package! parinfer (use-package! parinfer
:hook ((emacs-lisp-mode clojure-mode scheme-mode lisp-mode) . parinfer-mode) :hook ((emacs-lisp-mode clojure-mode scheme-mode lisp-mode) . parinfer-mode)
:init :init
(setq parinfer-extensions (setq parinfer-extensions

View file

@ -7,7 +7,7 @@
;; ;;
;; Packages ;; Packages
(def-package! yasnippet (use-package! yasnippet
:commands (yas-minor-mode-on :commands (yas-minor-mode-on
yas-expand yas-expand
yas-expand-snippet yas-expand-snippet
@ -71,7 +71,7 @@
[remap yas-visit-snippet-file] #'+snippets/edit)) [remap yas-visit-snippet-file] #'+snippets/edit))
(def-package! auto-yasnippet (use-package! auto-yasnippet
:defer t :defer t
:init (setq aya-persist-snippets-dir (concat doom-etc-dir "auto-snippets/")) :init (setq aya-persist-snippets-dir (concat doom-etc-dir "auto-snippets/"))
:config :config

View file

@ -1,6 +1,6 @@
;;; tools/dired/config.el -*- lexical-binding: t; -*- ;;; tools/dired/config.el -*- lexical-binding: t; -*-
(def-package! dired (use-package! dired
:commands dired-jump :commands dired-jump
:init :init
(setq ;; Always copy/delete recursively (setq ;; Always copy/delete recursively
@ -37,15 +37,15 @@
"C-c C-e" #'wdired-change-to-wdired-mode)) "C-c C-e" #'wdired-change-to-wdired-mode))
(def-package! dired-rsync (use-package! dired-rsync
:general (dired-mode-map "C-c C-r" #'dired-rsync)) :general (dired-mode-map "C-c C-r" #'dired-rsync))
(def-package! diredfl (use-package! diredfl
:hook (dired-mode . diredfl-mode)) :hook (dired-mode . diredfl-mode))
(def-package! dired-k (use-package! dired-k
:hook (dired-initial-position . dired-k) :hook (dired-initial-position . dired-k)
:hook (dired-after-readin . dired-k-no-revert) :hook (dired-after-readin . dired-k-no-revert)
:config :config
@ -71,7 +71,7 @@
(apply orig-fn args)))) (apply orig-fn args))))
(def-package! ranger (use-package! ranger
:when (featurep! +ranger) :when (featurep! +ranger)
:after dired :after dired
:init :init
@ -111,12 +111,12 @@ we have to clean it up ourselves."
ranger-hide-cursor nil)) ranger-hide-cursor nil))
(def-package! all-the-icons-dired (use-package! all-the-icons-dired
:when (featurep! +icons) :when (featurep! +icons)
:hook (dired-mode . all-the-icons-dired-mode)) :hook (dired-mode . all-the-icons-dired-mode))
(def-package! dired-x (use-package! dired-x
:hook (dired-mode . dired-omit-mode) :hook (dired-mode . dired-omit-mode)
:config :config
(setq dired-omit-verbose nil) (setq dired-omit-verbose nil)

View file

@ -44,7 +44,7 @@
;;;###package git-commit ;;;###package git-commit
(def-package! git-commit (use-package! git-commit
:after-call after-find-file :after-call after-find-file
:config :config
(global-git-commit-mode +1) (global-git-commit-mode +1)

View file

@ -10,7 +10,7 @@
(add-to-list 'auto-mode-alist '("\\.\\(?:offlineimap\\|mbsync\\)rc\\'" . conf-mode)) (add-to-list 'auto-mode-alist '("\\.\\(?:offlineimap\\|mbsync\\)rc\\'" . conf-mode))
(def-package! mu4e (use-package! mu4e
:commands mu4e mu4e-compose-new :commands mu4e mu4e-compose-new
:init :init
(provide 'html2text) ; disable obsolete package (provide 'html2text) ; disable obsolete package
@ -110,14 +110,14 @@
'normal)) 'normal))
(def-package! mu4e-maildirs-extension (use-package! mu4e-maildirs-extension
:after mu4e :after mu4e
:config :config
(mu4e-maildirs-extension) (mu4e-maildirs-extension)
(setq mu4e-maildirs-extension-title nil)) (setq mu4e-maildirs-extension-title nil))
(def-package! org-mu4e (use-package! org-mu4e
:hook (mu4e-compose-mode . org-mu4e-compose-org-mode) :hook (mu4e-compose-mode . org-mu4e-compose-org-mode)
:config :config
(setq org-mu4e-link-query-in-headers-mode nil (setq org-mu4e-link-query-in-headers-mode nil

View file

@ -51,17 +51,17 @@
#'hide-mode-line-mode)) #'hide-mode-line-mode))
(def-package! org-mime (use-package! org-mime
:after (org notmuch) :after (org notmuch)
:config (setq org-mime-library 'mml)) :config (setq org-mime-library 'mml))
(def-package! counsel-notmuch (use-package! counsel-notmuch
:when (featurep! :completion ivy) :when (featurep! :completion ivy)
:commands counsel-notmuch :commands counsel-notmuch
:after notmuch) :after notmuch)
(def-package! helm-notmuch (use-package! helm-notmuch
:when (featurep! :completion helm) :when (featurep! :completion helm)
:commands helm-notmuch :commands helm-notmuch
:after notmuch) :after notmuch)

View file

@ -1,6 +1,6 @@
;;; app/wanderlust/config.el -*- lexical-binding: t; -*- ;;; app/wanderlust/config.el -*- lexical-binding: t; -*-
(def-package! wl (use-package! wl
:defer t :defer t
:config :config
(setq mail-user-agent 'wl-user-agent (setq mail-user-agent 'wl-user-agent

View file

@ -1,6 +1,6 @@
;;; input/chinese/config.el -*- lexical-binding: t; -*- ;;; input/chinese/config.el -*- lexical-binding: t; -*-
(def-package! pyim (use-package! pyim
:after-call after-find-file pre-command-hook :after-call after-find-file pre-command-hook
:config :config
(setq pyim-dcache-directory (concat doom-cache-dir "pyim/") (setq pyim-dcache-directory (concat doom-cache-dir "pyim/")
@ -8,21 +8,21 @@
default-input-method "pyim")) default-input-method "pyim"))
(def-package! pangu-spacing (use-package! pangu-spacing
:hook (text-mode . pangu-spacing-mode) :hook (text-mode . pangu-spacing-mode)
:config :config
;; Always insert `real' space in org-mode. ;; Always insert `real' space in org-mode.
(setq-hook! 'org-mode-hook pangu-spacing-real-insert-separtor t)) (setq-hook! 'org-mode-hook pangu-spacing-real-insert-separtor t))
(def-package! fcitx (use-package! fcitx
:after evil :after evil
:config :config
(when (executable-find "fcitx-remote") (when (executable-find "fcitx-remote")
(fcitx-evil-turn-on))) (fcitx-evil-turn-on)))
(def-package! ace-pinyin (use-package! ace-pinyin
:after avy :after avy
:init (setq ace-pinyin-use-avy t) :init (setq ace-pinyin-use-avy t)
:config (ace-pinyin-global-mode t)) :config (ace-pinyin-global-mode t))

View file

@ -1,6 +1,6 @@
;;; input/japanese/config.el -*- lexical-binding: t; -*- ;;; input/japanese/config.el -*- lexical-binding: t; -*-
(def-package! migemo (use-package! migemo
:after-call after-find-file pre-command-hook :after-call after-find-file pre-command-hook
:init :init
(setq search-default-regexp-mode nil (setq search-default-regexp-mode nil
@ -14,7 +14,7 @@
(when (executable-find migemo-command) (when (executable-find migemo-command)
(migemo-init) (migemo-init)
(def-package! avy-migemo (use-package! avy-migemo
:after avy :after avy
:config (avy-migemo-mode 1)) :config (avy-migemo-mode 1))
@ -34,7 +34,7 @@
pangu-spacing-real-insert-separtor t)) pangu-spacing-real-insert-separtor t))
(def-package! ddskk (use-package! ddskk
:general ("C-x j" #'skk-mode)) :general ("C-x j" #'skk-mode))

View file

@ -4,11 +4,11 @@
(when (executable-find "agda-mode") (when (executable-find "agda-mode")
(file-name-directory (shell-command-to-string "agda-mode locate")))) (file-name-directory (shell-command-to-string "agda-mode locate"))))
(def-package! agda2 (use-package! agda2
:when +agda-dir :when +agda-dir
:load-path +agda-dir) :load-path +agda-dir)
(def-package! agda2-mode (use-package! agda2-mode
:defer t :defer t
:config :config
(map! :map agda2-mode-map (map! :map agda2-mode-map

View file

@ -32,7 +32,7 @@ This is ignored by ccls.")
;; ;;
;; Packages ;; Packages
(def-package! cc-mode (use-package! cc-mode
:commands (c-mode c++-mode objc-mode java-mode) :commands (c-mode c++-mode objc-mode java-mode)
:mode ("\\.mm\\'" . objc-mode) :mode ("\\.mm\\'" . objc-mode)
:init :init
@ -115,11 +115,11 @@ This is ignored by ccls.")
(label . 0))))) (label . 0)))))
(def-package! modern-cpp-font-lock (use-package! modern-cpp-font-lock
:hook (c++-mode . modern-c++-font-lock-mode)) :hook (c++-mode . modern-c++-font-lock-mode))
(def-package! irony (use-package! irony
:unless (featurep! +lsp) :unless (featurep! +lsp)
:commands (irony-install-server irony-mode) :commands (irony-install-server irony-mode)
:preface :preface
@ -137,14 +137,14 @@ This is ignored by ccls.")
;; `+cc-default-compiler-options'. ;; `+cc-default-compiler-options'.
(add-hook 'irony-mode-hook #'+cc-init-irony-compile-options-h) (add-hook 'irony-mode-hook #'+cc-init-irony-compile-options-h)
(def-package! irony-eldoc (use-package! irony-eldoc
:hook (irony-mode . irony-eldoc)) :hook (irony-mode . irony-eldoc))
(def-package! flycheck-irony (use-package! flycheck-irony
:when (featurep! :tools flycheck) :when (featurep! :tools flycheck)
:config (flycheck-irony-setup)) :config (flycheck-irony-setup))
(def-package! company-irony (use-package! company-irony
:when (featurep! :completion company) :when (featurep! :completion company)
:init :init
(set-company-backend! 'irony-mode (set-company-backend! 'irony-mode
@ -156,17 +156,17 @@ This is ignored by ccls.")
;; ;;
;; Major modes ;; Major modes
(def-package! company-cmake ; for `cmake-mode' (use-package! company-cmake ; for `cmake-mode'
:when (featurep! :completion company) :when (featurep! :completion company)
:after cmake-mode :after cmake-mode
:config (set-company-backend! 'cmake-mode 'company-cmake)) :config (set-company-backend! 'cmake-mode 'company-cmake))
(def-package! demangle-mode (use-package! demangle-mode
:hook llvm-mode) :hook llvm-mode)
(def-package! company-glsl ; for `glsl-mode' (use-package! company-glsl ; for `glsl-mode'
:when (featurep! :completion company) :when (featurep! :completion company)
:after glsl-mode :after glsl-mode
:config (set-company-backend! 'glsl-mode 'company-glsl)) :config (set-company-backend! 'glsl-mode 'company-glsl))
@ -175,7 +175,7 @@ This is ignored by ccls.")
;; ;;
;; Rtags Support ;; Rtags Support
(def-package! rtags (use-package! rtags
:unless (featurep! +lsp) :unless (featurep! +lsp)
:commands rtags-executable-find :commands rtags-executable-find
:preface :preface
@ -222,7 +222,7 @@ This is ignored by ccls.")
;; ;;
;; LSP ;; LSP
(def-package! ccls (use-package! ccls
:when (featurep! +lsp) :when (featurep! +lsp)
:hook ((c-mode-local-vars c++-mode-local-vars objc-mode-local-vars) . +cc|init-ccls) :hook ((c-mode-local-vars c++-mode-local-vars objc-mode-local-vars) . +cc|init-ccls)
:init :init

View file

@ -4,7 +4,7 @@
(add-hook 'clojure-mode-hook #'rainbow-delimiters-mode) (add-hook 'clojure-mode-hook #'rainbow-delimiters-mode)
(def-package! cider (use-package! cider
;; NOTE: if you don't have an org directory set (the dir doesn't exist), ;; NOTE: if you don't have an org directory set (the dir doesn't exist),
;; cider jack in won't work. ;; cider jack in won't work.
:commands (cider-jack-in cider-jack-in-clojurescript) :commands (cider-jack-in cider-jack-in-clojurescript)
@ -118,7 +118,7 @@
:i "U" #'cider-repl-history-undo-other-window))) :i "U" #'cider-repl-history-undo-other-window)))
(def-package! clj-refactor (use-package! clj-refactor
:hook (clojure-mode . clj-refactor-mode) :hook (clojure-mode . clj-refactor-mode)
:init :init
(set-lookup-handlers! 'clj-refactor-mode (set-lookup-handlers! 'clj-refactor-mode
@ -129,6 +129,6 @@
:desc "refactor" "R" #'hydra-cljr-help-menu/body)) :desc "refactor" "R" #'hydra-cljr-help-menu/body))
(def-package! flycheck-joker (use-package! flycheck-joker
:when (featurep! :tools flycheck) :when (featurep! :tools flycheck)
:after flycheck) :after flycheck)

View file

@ -239,7 +239,7 @@ bin/doom while packages at compile-time (not a runtime though)."
"q" 'quit-window "q" 'quit-window
"r" 'sly-xref-retract))) "r" 'sly-xref-retract)))
(def-package! sly-repl-ansi-color (use-package! sly-repl-ansi-color
:defer t :defer t
:init :init
(add-to-list 'sly-contribs 'sly-repl-ansi-color nil #'eq)) (add-to-list 'sly-contribs 'sly-repl-ansi-color nil #'eq))

View file

@ -12,10 +12,10 @@
(add-to-list 'dtrt-indent-hook-mapping-list '(crystal-mode ruby crystal-indent-level)))) (add-to-list 'dtrt-indent-hook-mapping-list '(crystal-mode ruby crystal-indent-level))))
(def-package! flycheck-crystal (use-package! flycheck-crystal
:when (featurep! :tools flycheck) :when (featurep! :tools flycheck)
:after crystal-mode) :after crystal-mode)
(def-package! inf-crystal (use-package! inf-crystal
:commands crystal-switch-to-inf) :commands crystal-switch-to-inf)

View file

@ -12,7 +12,7 @@
:post-handlers '(("| " "SPC")))) :post-handlers '(("| " "SPC"))))
(def-package! omnisharp (use-package! omnisharp
:hook (csharp-mode . omnisharp-mode) :hook (csharp-mode . omnisharp-mode)
:commands omnisharp-install-server :commands omnisharp-install-server
:preface :preface

View file

@ -4,7 +4,7 @@
(add-to-list 'auto-mode-alist '("/sxhkdrc\\'" . conf-mode)) (add-to-list 'auto-mode-alist '("/sxhkdrc\\'" . conf-mode))
(add-to-list 'auto-mode-alist '("\\.\\(?:hex\\|nes\\)\\'" . hexl-mode)) (add-to-list 'auto-mode-alist '("\\.\\(?:hex\\|nes\\)\\'" . hexl-mode))
(def-package! nxml-mode (use-package! nxml-mode
:mode "\\.p\\(?:list\\|om\\)\\'" ; plist, pom :mode "\\.p\\(?:list\\|om\\)\\'" ; plist, pom
:mode "\\.xs\\(?:d\\|lt\\)\\'" ; xslt, xsd :mode "\\.xs\\(?:d\\|lt\\)\\'" ; xslt, xsd
:mode "\\.rss\\'" :mode "\\.rss\\'"
@ -29,10 +29,10 @@
"k" #'csv-kill-fields "k" #'csv-kill-fields
"t" #'csv-transpose) "t" #'csv-transpose)
(def-package! graphql-mode (use-package! graphql-mode
:mode "\\.gql\\'") :mode "\\.gql\\'")
(def-package! json-mode (use-package! json-mode
:mode "\\.js\\(?:on\\|[hl]int\\(?:rc\\)?\\)\\'" :mode "\\.js\\(?:on\\|[hl]int\\(?:rc\\)?\\)\\'"
:config :config
(set-electric! 'json-mode :chars '(?\n ?: ?{ ?}))) (set-electric! 'json-mode :chars '(?\n ?: ?{ ?})))

View file

@ -1,6 +1,6 @@
;;; lang/elixir/config.el -*- lexical-binding: t; -*- ;;; lang/elixir/config.el -*- lexical-binding: t; -*-
(def-package! elixir-mode (use-package! elixir-mode
:defer t :defer t
:init :init
;; Disable default smartparens config. There are too many pairs; we only want ;; Disable default smartparens config. There are too many pairs; we only want
@ -29,7 +29,7 @@
(sp-local-pair "do " " end" :unless '(sp-in-comment-p sp-in-string-p)) (sp-local-pair "do " " end" :unless '(sp-in-comment-p sp-in-string-p))
(sp-local-pair "fn " " end" :unless '(sp-in-comment-p sp-in-string-p))) (sp-local-pair "fn " " end" :unless '(sp-in-comment-p sp-in-string-p)))
(def-package! alchemist-company (use-package! alchemist-company
:when (featurep! :completion company) :when (featurep! :completion company)
:commands alchemist-company :commands alchemist-company
:init :init
@ -41,12 +41,12 @@
(remove-hook 'alchemist-mode-hook fn) (remove-hook 'alchemist-mode-hook fn)
(remove-hook 'alchemist-iex-mode-hook fn))) (remove-hook 'alchemist-iex-mode-hook fn)))
(def-package! flycheck-credo (use-package! flycheck-credo
:when (featurep! :tools flycheck) :when (featurep! :tools flycheck)
:config (flycheck-credo-setup))) :config (flycheck-credo-setup)))
(def-package! alchemist (use-package! alchemist
:hook (elixir-mode . alchemist-mode) :hook (elixir-mode . alchemist-mode)
:config :config
(set-lookup-handlers! 'elixir-mode (set-lookup-handlers! 'elixir-mode

View file

@ -19,7 +19,7 @@
:and "&&" :or "||")) :and "&&" :or "||"))
(def-package! flycheck-elm (use-package! flycheck-elm
:when (featurep! :tools flycheck) :when (featurep! :tools flycheck)
:after elm-mode :after elm-mode
:config (add-to-list 'flycheck-checkers 'elm nil #'eq)) :config (add-to-list 'flycheck-checkers 'elm nil #'eq))

View file

@ -16,7 +16,7 @@ This marks a foldable marker for `outline-minor-mode' in elisp buffers.")
;; ;;
;;; Config ;;; Config
(def-package! elisp-mode (use-package! elisp-mode
:mode ("\\.Cask\\'" . emacs-lisp-mode) :mode ("\\.Cask\\'" . emacs-lisp-mode)
:config :config
(set-repl-handler! 'emacs-lisp-mode #'+emacs-lisp/open-repl) (set-repl-handler! 'emacs-lisp-mode #'+emacs-lisp/open-repl)
@ -100,7 +100,7 @@ This marks a foldable marker for `outline-minor-mode' in elisp buffers.")
(remove-hook 'emacs-lisp-mode-hook 'overseer-enable-mode) (remove-hook 'emacs-lisp-mode-hook 'overseer-enable-mode)
(def-package! flycheck-cask (use-package! flycheck-cask
:when (featurep! :tools flycheck) :when (featurep! :tools flycheck)
:defer t :defer t
:init :init
@ -108,7 +108,7 @@ This marks a foldable marker for `outline-minor-mode' in elisp buffers.")
(add-hook 'flycheck-mode-hook #'flycheck-cask-setup nil t))) (add-hook 'flycheck-mode-hook #'flycheck-cask-setup nil t)))
(def-package! elisp-demos (use-package! elisp-demos
:defer t :defer t
:init :init
(advice-add 'describe-function-1 :after #'elisp-demos-advice-describe-function-1) (advice-add 'describe-function-1 :after #'elisp-demos-advice-describe-function-1)
@ -122,7 +122,7 @@ This marks a foldable marker for `outline-minor-mode' in elisp buffers.")
(funcall orig-fn symbol))))) (funcall orig-fn symbol)))))
(def-package! buttercup (use-package! buttercup
:defer t :defer t
:minor ("/test[/-].+\\.el$" . buttercup-minor-mode) :minor ("/test[/-].+\\.el$" . buttercup-minor-mode)
:config (set-yas-minor-mode! 'buttercup-minor-mode)) :config (set-yas-minor-mode! 'buttercup-minor-mode))

View file

@ -1,18 +1,18 @@
;;; lang/erlang/config.el -*- lexical-binding: t; -*- ;;; lang/erlang/config.el -*- lexical-binding: t; -*-
(def-package! erlang (use-package! erlang
:mode ("\\.erlang$" . erlang-mode) :mode ("\\.erlang$" . erlang-mode)
:mode ("/rebar\\.config\\(?:\\.script\\)?$" . erlang-mode) :mode ("/rebar\\.config\\(?:\\.script\\)?$" . erlang-mode)
:mode ("/\\(?:app\\|sys\\)\\.config$" . erlang-mode)) :mode ("/\\(?:app\\|sys\\)\\.config$" . erlang-mode))
(def-package! flycheck-rebar3 (use-package! flycheck-rebar3
:when (featurep! :tools flycheck) :when (featurep! :tools flycheck)
:after flycheck :after flycheck
:config (flycheck-rebar3-setup)) :config (flycheck-rebar3-setup))
(def-package! ivy-erlang-complete (use-package! ivy-erlang-complete
:when (featurep! :completion ivy) :when (featurep! :completion ivy)
:hook (erlang-mode . ivy-erlang-complete-init) :hook (erlang-mode . ivy-erlang-complete-init)
:config :config
@ -20,6 +20,6 @@
(add-hook 'after-save-hook #'ivy-erlang-complete-reparse nil t))) (add-hook 'after-save-hook #'ivy-erlang-complete-reparse nil t)))
(def-package! company-erlang (use-package! company-erlang
:when (featurep! :completion company) :when (featurep! :completion company)
:hook (erlang-mode . company-erlang-init)) :hook (erlang-mode . company-erlang-init))

View file

@ -1,6 +1,6 @@
;;; lang/ess/config.el -*- lexical-binding: t; -*- ;;; lang/ess/config.el -*- lexical-binding: t; -*-
(def-package! ess (use-package! ess
:commands (stata SAS) :commands (stata SAS)
:init :init
(setq ess-smart-S-assign-key nil) (setq ess-smart-S-assign-key nil)

View file

@ -53,11 +53,11 @@
"n" #'+go/test-nested))) "n" #'+go/test-nested)))
(def-package! gorepl-mode (use-package! gorepl-mode
:commands gorepl-run-load-current-file) :commands gorepl-run-load-current-file)
(def-package! company-go (use-package! company-go
:when (and (featurep! :completion company) :when (and (featurep! :completion company)
(not (featurep! +lsp))) (not (featurep! +lsp)))
:after go-mode :after go-mode

View file

@ -1,7 +1,7 @@
;;; lang/haskell/+dante.el -*- lexical-binding: t; -*- ;;; lang/haskell/+dante.el -*- lexical-binding: t; -*-
;;;###if (featurep! +dante) ;;;###if (featurep! +dante)
(def-package! dante (use-package! dante
:hook (haskell-mode-local-vars . dante-mode) :hook (haskell-mode-local-vars . dante-mode)
:init :init
(setq dante-load-flags '(;; defaults: (setq dante-load-flags '(;; defaults:

View file

@ -1,7 +1,7 @@
;;; lang/haskell/+intero.el -*- lexical-binding: t; -*- ;;; lang/haskell/+intero.el -*- lexical-binding: t; -*-
;;;###if (featurep! +intero) ;;;###if (featurep! +intero)
(def-package! intero (use-package! intero
:commands intero-mode :commands intero-mode
:init :init
(defun +haskell|init-intero () (defun +haskell|init-intero ()

View file

@ -1,6 +1,6 @@
;;; lang/haskell/+lsp.el -*- lexical-binding: t; -*- ;;; lang/haskell/+lsp.el -*- lexical-binding: t; -*-
(def-package! lsp-haskell (use-package! lsp-haskell
:after haskell-mode :after haskell-mode
:init (add-hook 'haskell-mode-hook #'lsp!) :init (add-hook 'haskell-mode-hook #'lsp!)
:config :config

View file

@ -1,6 +1,6 @@
;;; lang/hy/config.el -*- lexical-binding: t; -*- ;;; lang/hy/config.el -*- lexical-binding: t; -*-
(def-package! hy-mode (use-package! hy-mode
:mode "\\.hy\\'" :mode "\\.hy\\'"
:interpreter "hy" :interpreter "hy"
:config :config

View file

@ -3,7 +3,7 @@
;; NOTE This submodule is incomplete ;; NOTE This submodule is incomplete
(def-package! eclim (use-package! eclim
:hook (java-mode . eclim-mode) :hook (java-mode . eclim-mode)
:config :config
(set-lookup-handlers! 'java-mode (set-lookup-handlers! 'java-mode
@ -43,7 +43,7 @@
"u" #'eclim-project-update))) "u" #'eclim-project-update)))
(def-package! company-emacs-eclim (use-package! company-emacs-eclim
:when (featurep! :completion company) :when (featurep! :completion company)
:after java-mode :after java-mode
:config :config

View file

@ -1,7 +1,7 @@
;;; lang/java/+lsp.el -*- lexical-binding: t; -*- ;;; lang/java/+lsp.el -*- lexical-binding: t; -*-
;;;###if (featurep! +lsp) ;;;###if (featurep! +lsp)
(def-package! lsp-java (use-package! lsp-java
:after-call java-mode :after-call java-mode
:init (add-hook 'java-mode-local-vars-hook #'lsp!) :init (add-hook 'java-mode-local-vars-hook #'lsp!)
:config :config

View file

@ -1,7 +1,7 @@
;;; lang/java/+meghanada.el -*- lexical-binding: t; -*- ;;; lang/java/+meghanada.el -*- lexical-binding: t; -*-
;;;###if (featurep! +meghanada) ;;;###if (featurep! +meghanada)
(def-package! meghanada (use-package! meghanada
:hook (java-mode . meghanada-mode) :hook (java-mode . meghanada-mode)
:init :init
(setq meghanada-server-install-dir (concat doom-etc-dir "meghanada-server/") (setq meghanada-server-install-dir (concat doom-etc-dir "meghanada-server/")

View file

@ -30,7 +30,7 @@ If the depth is 2, the first two directories are removed: net.lissner.game.")
;; ;;
;; Common packages ;; Common packages
(def-package! android-mode (use-package! android-mode
:commands android-mode :commands android-mode
:init :init
(add-hook! (java-mode groovy-mode nxml-mode) #'+java|android-mode-maybe) (add-hook! (java-mode groovy-mode nxml-mode) #'+java|android-mode-maybe)
@ -38,7 +38,7 @@ If the depth is 2, the first two directories are removed: net.lissner.game.")
(set-yas-minor-mode! 'android-mode)) (set-yas-minor-mode! 'android-mode))
(def-package! groovy-mode (use-package! groovy-mode
:mode "\\.g\\(?:radle\\|roovy\\)$" :mode "\\.g\\(?:radle\\|roovy\\)$"
:config :config
(set-eval-handler! 'groovy-mode "groovy")) (set-eval-handler! 'groovy-mode "groovy"))

View file

@ -31,7 +31,7 @@
;; ;;
;; Major modes ;; Major modes
(def-package! js2-mode (use-package! js2-mode
:mode "\\.m?js\\'" :mode "\\.m?js\\'"
:interpreter "node" :interpreter "node"
:commands js2-line-break :commands js2-line-break
@ -64,7 +64,7 @@
"S" #'+javascript/skewer-this-buffer)) "S" #'+javascript/skewer-this-buffer))
(def-package! rjsx-mode (use-package! rjsx-mode
:mode "components/.+\\.js$" :mode "components/.+\\.js$"
:init :init
(defun +javascript-jsx-file-p () (defun +javascript-jsx-file-p ()
@ -156,7 +156,7 @@ to tide."
(add-hook! (js-mode typescript-mode web-mode) #'+javascript|init-lsp-or-tide-maybe) (add-hook! (js-mode typescript-mode web-mode) #'+javascript|init-lsp-or-tide-maybe)
(def-package! tide (use-package! tide
:defer t :defer t
:config :config
(setq tide-completion-detailed t (setq tide-completion-detailed t
@ -187,7 +187,7 @@ to tide."
"roi" #'tide-organize-imports)) "roi" #'tide-organize-imports))
(def-package! xref-js2 (use-package! xref-js2
:when (featurep! :tools lookup) :when (featurep! :tools lookup)
:after (:or js2-mode rjsx-mode) :after (:or js2-mode rjsx-mode)
:config :config
@ -195,7 +195,7 @@ to tide."
:xref-backend #'xref-js2-xref-backend)) :xref-backend #'xref-js2-xref-backend))
(def-package! js2-refactor (use-package! js2-refactor
:hook ((js2-mode rjsx-mode) . js2-refactor-mode) :hook ((js2-mode rjsx-mode) . js2-refactor-mode)
:config :config
(when (featurep! :editor evil +everywhere) (when (featurep! :editor evil +everywhere)
@ -203,7 +203,7 @@ to tide."
(js2r-add-keybindings-with-prefix (format "%s r" doom-localleader-key))))) (js2r-add-keybindings-with-prefix (format "%s r" doom-localleader-key)))))
(def-package! eslintd-fix (use-package! eslintd-fix
:commands eslintd-fix :commands eslintd-fix
:config :config
(defun +javascript|set-flycheck-executable-to-eslint () (defun +javascript|set-flycheck-executable-to-eslint ()

View file

@ -10,7 +10,7 @@
:desc "gradlew build" "b" (λ! (+kotlin/run-gradlew "build")) :desc "gradlew build" "b" (λ! (+kotlin/run-gradlew "build"))
:desc "gradlew test" "t" (λ! (+kotlin/run-gradlew "test")))) :desc "gradlew test" "t" (λ! (+kotlin/run-gradlew "test"))))
(def-package! flycheck-kotlin (use-package! flycheck-kotlin
:when (featurep! :tools flycheck) :when (featurep! :tools flycheck)
:after kotlin-mode :after kotlin-mode
:config (add-hook 'kotlin-mode-hook #'flycheck-kotlin-setup)) :config (add-hook 'kotlin-mode-hook #'flycheck-kotlin-setup))

View file

@ -5,7 +5,7 @@
reftex-default-bibliography bibtex-completion-bibliography)) reftex-default-bibliography bibtex-completion-bibliography))
(def-package! reftex (use-package! reftex
:hook (LaTeX-mode . reftex-mode) :hook (LaTeX-mode . reftex-mode)
:config :config
;; set up completion for citations and references ;; set up completion for citations and references

View file

@ -96,7 +96,7 @@ If no viewers are found, `latex-preview-pane' is used.")
(add-to-list 'LaTeX-indent-environment-list `(,env +latex/LaTeX-indent-item)))) (add-to-list 'LaTeX-indent-environment-list `(,env +latex/LaTeX-indent-item))))
(def-package! preview (use-package! preview
:hook (LaTeX-mode . LaTeX-preview-setup) :hook (LaTeX-mode . LaTeX-preview-setup)
:config :config
(setq-default preview-scale 1.4 (setq-default preview-scale 1.4
@ -105,12 +105,12 @@ If no viewers are found, `latex-preview-pane' is used.")
;; Nicely indent lines that have wrapped when visual line mode is activated ;; Nicely indent lines that have wrapped when visual line mode is activated
(def-package! adaptive-wrap (use-package! adaptive-wrap
:hook (LaTeX-mode . adaptive-wrap-prefix-mode) :hook (LaTeX-mode . adaptive-wrap-prefix-mode)
:init (setq-default adaptive-wrap-extra-indent 0)) :init (setq-default adaptive-wrap-extra-indent 0))
(def-package! auctex-latexmk (use-package! auctex-latexmk
:when (featurep! +latexmk) :when (featurep! +latexmk)
:after latex :after latex
:init :init
@ -123,14 +123,14 @@ If no viewers are found, `latex-preview-pane' is used.")
(auctex-latexmk-setup)) (auctex-latexmk-setup))
(def-package! company-auctex (use-package! company-auctex
:when (featurep! :completion company) :when (featurep! :completion company)
:defer t :defer t
:init :init
(add-to-list '+latex--company-backends #'company-auctex-environments nil #'eq) (add-to-list '+latex--company-backends #'company-auctex-environments nil #'eq)
(add-to-list '+latex--company-backends #'company-auctex-macros nil #'eq)) (add-to-list '+latex--company-backends #'company-auctex-macros nil #'eq))
(def-package! company-math (use-package! company-math
:when (featurep! :completion company) :when (featurep! :completion company)
:defer t :defer t
:init :init

View file

@ -20,12 +20,12 @@
[tab] #'ledger-reconcile-toggle) [tab] #'ledger-reconcile-toggle)
(def-package! flycheck-ledger (use-package! flycheck-ledger
:when (featurep! :tools flycheck) :when (featurep! :tools flycheck)
:after ledger-mode) :after ledger-mode)
(def-package! evil-ledger (use-package! evil-ledger
:when (featurep! :editor evil +everywhere) :when (featurep! :editor evil +everywhere)
:hook (ledger-mode . evil-ledger-mode) :hook (ledger-mode . evil-ledger-mode)
:config :config

View file

@ -7,7 +7,7 @@
;; ;;
;; Major modes ;; Major modes
(def-package! lua-mode (use-package! lua-mode
:defer t :defer t
:init :init
;; lua-indent-level defaults to 3 otherwise. Madness. ;; lua-indent-level defaults to 3 otherwise. Madness.
@ -19,7 +19,7 @@
(set-company-backend! 'lua-mode '(company-lua company-yasnippet))) (set-company-backend! 'lua-mode '(company-lua company-yasnippet)))
(def-package! moonscript (use-package! moonscript
:when (featurep! +moonscript) :when (featurep! +moonscript)
:defer t :defer t
:config :config

View file

@ -15,7 +15,7 @@ capture, the end position, and the output buffer.")
;; ;;
;;; Packages ;;; Packages
(def-package! markdown-mode (use-package! markdown-mode
:mode ("/README\\(?:\\.\\(?:markdown\\|md\\)\\)?\\'" . gfm-mode) :mode ("/README\\(?:\\.\\(?:markdown\\|md\\)\\)?\\'" . gfm-mode)
:init :init
(setq markdown-enable-wiki-links t (setq markdown-enable-wiki-links t

View file

@ -36,7 +36,7 @@ windows."
"b" #'nim-compile)) "b" #'nim-compile))
(def-package! flycheck-nim (use-package! flycheck-nim
:when (featurep! :tools flycheck) :when (featurep! :tools flycheck)
:after nim-mode) :after nim-mode)

View file

@ -1,6 +1,6 @@
;;; lang/nix/config.el -*- lexical-binding: t; -*- ;;; lang/nix/config.el -*- lexical-binding: t; -*-
(def-package! nix-mode (use-package! nix-mode
:mode "\\.nix\\'" :mode "\\.nix\\'"
:config :config
(set-company-backend! 'nix-mode 'company-nixos-options) (set-company-backend! 'nix-mode 'company-nixos-options)
@ -16,11 +16,11 @@
(:when (featurep! :completion helm) (:when (featurep! :completion helm)
"o" #'helm-nixos-options))) "o" #'helm-nixos-options)))
(def-package! nix-drv-mode (use-package! nix-drv-mode
:mode "\\.drv\\'") :mode "\\.drv\\'")
(def-package! nix-update (use-package! nix-update
:commands nix-update-fetch) :commands nix-update-fetch)
(def-package! nix-repl (use-package! nix-repl
:commands nix-repl-show) :commands nix-repl-show)

View file

@ -26,7 +26,7 @@
comment-line-break-function #'+ocaml/comment-indent-new-line) comment-line-break-function #'+ocaml/comment-indent-new-line)
(def-package! utop (use-package! utop
:when (featurep! :tools eval) :when (featurep! :tools eval)
:hook (tuareg-mode . +ocaml|init-utop) :hook (tuareg-mode . +ocaml|init-utop)
:init :init
@ -37,7 +37,7 @@
(utop-minor-mode))))) (utop-minor-mode)))))
(def-package! merlin (use-package! merlin
:unless (featurep! +lsp) :unless (featurep! +lsp)
:hook (tuareg-mode . +ocaml|init-merlin) :hook (tuareg-mode . +ocaml|init-merlin)
:init :init
@ -60,7 +60,7 @@
"t" #'merlin-type-enclosing "t" #'merlin-type-enclosing
"a" #'tuareg-find-alternate-file) "a" #'tuareg-find-alternate-file)
(def-package! flycheck-ocaml (use-package! flycheck-ocaml
:when (featurep! :tools flycheck) :when (featurep! :tools flycheck)
:hook (merlin-mode . +ocaml|init-flycheck) :hook (merlin-mode . +ocaml|init-flycheck)
:config :config
@ -72,22 +72,22 @@
;; Enable Flycheck checker ;; Enable Flycheck checker
(flycheck-ocaml-setup)))) (flycheck-ocaml-setup))))
(def-package! merlin-eldoc (use-package! merlin-eldoc
:hook (merlin-mode . merlin-eldoc-setup)) :hook (merlin-mode . merlin-eldoc-setup))
(def-package! merlin-iedit (use-package! merlin-iedit
:when (featurep! :editor multiple-cursors) :when (featurep! :editor multiple-cursors)
:defer t :defer t
:init :init
(map! :map tuareg-mode-map (map! :map tuareg-mode-map
:v "R" #'merlin-iedit-occurrences)) :v "R" #'merlin-iedit-occurrences))
(def-package! merlin-imenu (use-package! merlin-imenu
:when (featurep! :emacs imenu) :when (featurep! :emacs imenu)
:hook (merlin-mode . merlin-use-merlin-imenu))) :hook (merlin-mode . merlin-use-merlin-imenu)))
(def-package! ocp-indent (use-package! ocp-indent
;; must be careful to always defer this, it has autoloads that adds hooks ;; must be careful to always defer this, it has autoloads that adds hooks
;; which we do not want if the executable can't be found ;; which we do not want if the executable can't be found
:hook (tuareg-mode . +ocaml|init-ocp-indent) :hook (tuareg-mode . +ocaml|init-ocp-indent)
@ -98,7 +98,7 @@
(ocp-setup-indent)))) (ocp-setup-indent))))
(def-package! ocamlformat (use-package! ocamlformat
:when (featurep! :editor format) :when (featurep! :editor format)
:commands ocamlformat :commands ocamlformat
:hook (tuareg-mode . +ocaml|init-ocamlformat) :hook (tuareg-mode . +ocaml|init-ocamlformat)

View file

@ -377,14 +377,14 @@ file isn't in `org-directory'."
(org-link-set-parameters "img" :image-data-fun #'+org-inline-data-image) (org-link-set-parameters "img" :image-data-fun #'+org-inline-data-image)
;; Add support for youtube links + previews ;; Add support for youtube links + previews
(def-package! org-yt)) (use-package! org-yt))
(defun +org-init-export-h () (defun +org-init-export-h ()
(when (featurep! :lang markdown) (when (featurep! :lang markdown)
(add-to-list 'org-export-backends 'md)) (add-to-list 'org-export-backends 'md))
(def-package! ox-pandoc (use-package! ox-pandoc
:when (and (featurep! +pandoc) :when (and (featurep! +pandoc)
(executable-find "pandoc")) (executable-find "pandoc"))
:after ox :after ox
@ -598,7 +598,7 @@ between the two."
(defun +org-init-keybinds-for-evil-h (&rest args) (defun +org-init-keybinds-for-evil-h (&rest args)
"TODO" "TODO"
(when (featurep! :editor evil +everywhere) (when (featurep! :editor evil +everywhere)
(def-package! evil-org (use-package! evil-org
:hook (org-mode . evil-org-mode) :hook (org-mode . evil-org-mode)
:init :init
(defvar evil-org-key-theme '(navigation insert textobjects)) (defvar evil-org-key-theme '(navigation insert textobjects))
@ -609,7 +609,7 @@ between the two."
;; change `evil-org-key-theme' instead ;; change `evil-org-key-theme' instead
(advice-add #'evil-org-set-key-theme :override #'ignore)) (advice-add #'evil-org-set-key-theme :override #'ignore))
(def-package! evil-org-agenda (use-package! evil-org-agenda
:after org-agenda :after org-agenda
:config (evil-org-agenda-set-keys)) :config (evil-org-agenda-set-keys))
@ -777,7 +777,7 @@ compelling reason, so..."
;; ;;
;;; Bootstrap ;;; Bootstrap
(def-package! org (use-package! org
:defer-incrementally :defer-incrementally
calendar find-func format-spec org-macs org-compat org-faces org-entities calendar find-func format-spec org-macs org-compat org-faces org-entities
org-list org-pcomplete org-src org-footnote org-macro ob org org-agenda org-list org-pcomplete org-src org-footnote org-macro ob org org-agenda
@ -859,7 +859,7 @@ compelling reason, so..."
(when (re-search-forward toc-org-toc-org-regexp (point-max) t) (when (re-search-forward toc-org-toc-org-regexp (point-max) t)
(+org/open-fold))))) (+org/open-fold)))))
(def-package! org-pdfview (use-package! org-pdfview
:when (featurep! :tools pdf) :when (featurep! :tools pdf)
:commands (org-pdfview-open) :commands (org-pdfview-open)
:init :init
@ -869,7 +869,7 @@ compelling reason, so..."
;; support for links to specific pages ;; support for links to specific pages
(add-to-list 'org-file-apps '("\\.pdf::\\([[:digit:]]+\\)\\'" . (lambda (_file link) (org-pdfview-open link))))) (add-to-list 'org-file-apps '("\\.pdf::\\([[:digit:]]+\\)\\'" . (lambda (_file link) (org-pdfview-open link)))))
(def-package! org-crypt ; built-in (use-package! org-crypt ; built-in
:commands org-encrypt-entries :commands org-encrypt-entries
:hook (org-reveal-start . org-decrypt-entry) :hook (org-reveal-start . org-decrypt-entry)
:init :init
@ -878,7 +878,7 @@ compelling reason, so..."
(add-to-list 'org-tags-exclude-from-inheritance "crypt") (add-to-list 'org-tags-exclude-from-inheritance "crypt")
(setq org-crypt-key user-mail-address)) (setq org-crypt-key user-mail-address))
(def-package! org-clock ; built-in (use-package! org-clock ; built-in
:commands org-clock-save :commands org-clock-save
:init :init
(setq org-clock-persist t) (setq org-clock-persist t)

View file

@ -1,7 +1,7 @@
;;; lang/org/contrib/dragndrop.el -*- lexical-binding: t; -*- ;;; lang/org/contrib/dragndrop.el -*- lexical-binding: t; -*-
;;;###if (featurep! +dragndrop) ;;;###if (featurep! +dragndrop)
(def-package! org-download (use-package! org-download
:commands (org-download-dnd org-download-dnd-base64) :commands (org-download-dnd org-download-dnd-base64)
:init :init
;; HACK We add these manually so that org-download is truly lazy-loaded ;; HACK We add these manually so that org-download is truly lazy-loaded

View file

@ -1,7 +1,7 @@
;;; lang/org/contrib/babel.el -*- lexical-binding: t; -*- ;;; lang/org/contrib/babel.el -*- lexical-binding: t; -*-
;;;###if (featurep! +ipython) ;;;###if (featurep! +ipython)
(def-package! ob-ipython (use-package! ob-ipython
:defer t :defer t
:init :init
(defvar +ob-ipython-local-runtime-dir nil) (defvar +ob-ipython-local-runtime-dir nil)

View file

@ -11,7 +11,7 @@
;; ;;
;;; Packages ;;; Packages
(def-package! ox-reveal (use-package! ox-reveal
:after ox :after ox
:init :init
;; Fix #1127, where ox-reveal adds an errant entry to ;; Fix #1127, where ox-reveal adds an errant entry to
@ -22,7 +22,7 @@
org-reveal-mathjax t)) org-reveal-mathjax t))
(def-package! org-tree-slide (use-package! org-tree-slide
:commands org-tree-slide-mode :commands org-tree-slide-mode
:config :config
(org-tree-slide-simple-profile) (org-tree-slide-simple-profile)

View file

@ -2,9 +2,9 @@
;; There's also `perl-mode' for perl < 6, which is already set up. ;; There's also `perl-mode' for perl < 6, which is already set up.
(def-package! perl6-detect) (use-package! perl6-detect)
(def-package! flycheck-perl6 (use-package! flycheck-perl6
:when (featurep! :tools flycheck) :when (featurep! :tools flycheck)
:after perl6-mode) :after perl6-mode)

View file

@ -1,6 +1,6 @@
;;; lang/php/config.el -*- lexical-binding: t; -*- ;;; lang/php/config.el -*- lexical-binding: t; -*-
(def-package! php-mode (use-package! php-mode
:mode "\\.inc\\'" :mode "\\.inc\\'"
:config :config
;; Disable HTML compatibility in php-mode. `web-mode' has superior support for ;; Disable HTML compatibility in php-mode. `web-mode' has superior support for
@ -33,7 +33,7 @@
"s" #'phpunit-current-test)) "s" #'phpunit-current-test))
(def-package! phpactor (use-package! phpactor
:unless (featurep! +lsp) :unless (featurep! +lsp)
:after php-mode :after php-mode
:config :config
@ -50,7 +50,7 @@
"ic" #'phpactor-import-class)) "ic" #'phpactor-import-class))
(def-package! php-refactor-mode (use-package! php-refactor-mode
:hook php-mode :hook php-mode
:config :config
(map! :localleader (map! :localleader
@ -62,7 +62,7 @@
"rv" #'php-refactor--rename-local-variable)) "rv" #'php-refactor--rename-local-variable))
(def-package! php-extras (use-package! php-extras
:after php-mode :after php-mode
:preface :preface
;; We'll set up company support ourselves ;; We'll set up company support ourselves
@ -87,7 +87,7 @@
(message "PHP eldoc updated!"))))) (message "PHP eldoc updated!")))))
(def-package! hack-mode (use-package! hack-mode
:when (featurep! +hack) :when (featurep! +hack)
:mode "\\.hh$") :mode "\\.hh$")

View file

@ -1,6 +1,6 @@
;;; lang/plantuml/config.el -*- lexical-binding: t; -*- ;;; lang/plantuml/config.el -*- lexical-binding: t; -*-
(def-package! plantuml-mode (use-package! plantuml-mode
:defer t :defer t
:init :init
(setq plantuml-jar-path (concat doom-etc-dir "plantuml.jar") (setq plantuml-jar-path (concat doom-etc-dir "plantuml.jar")
@ -9,7 +9,7 @@
(set-popup-rule! "^\\*PLANTUML" :size 0.4 :select nil :ttl 0)) (set-popup-rule! "^\\*PLANTUML" :size 0.4 :select nil :ttl 0))
(def-package! flycheck-plantuml (use-package! flycheck-plantuml
:when (featurep! :tools flycheck) :when (featurep! :tools flycheck)
:after plantuml-mode :after plantuml-mode
:config (flycheck-plantuml-setup)) :config (flycheck-plantuml-setup))

View file

@ -9,13 +9,13 @@
:documentation #'purescript-pursuit)) :documentation #'purescript-pursuit))
;; (def-package! flycheck-purescript ;; (use-package! flycheck-purescript
;; :after purescript-mode ;; :after purescript-mode
;; :config ;; :config
;; (add-hook 'flycheck-mode-hook #'flycheck-purescript-setup)) ;; (add-hook 'flycheck-mode-hook #'flycheck-purescript-setup))
(def-package! psc-ide (use-package! psc-ide
:hook (purescript-mode . psc-ide-mode) :hook (purescript-mode . psc-ide-mode)
:config :config
(remove-hook 'company-backends 'company-psc-ide-backend) (remove-hook 'company-backends 'company-psc-ide-backend)

View file

@ -12,7 +12,7 @@ called.")
;; ;;
;; Packages ;; Packages
(def-package! python (use-package! python
:defer t :defer t
:init :init
(setq python-environment-directory doom-cache-dir (setq python-environment-directory doom-cache-dir
@ -83,7 +83,7 @@ called.")
(setq-hook! 'python-mode-hook tab-width python-indent-offset)) (setq-hook! 'python-mode-hook tab-width python-indent-offset))
(def-package! anaconda-mode (use-package! anaconda-mode
:hook (python-mode-local-vars . +python|init-anaconda-mode-maybe) :hook (python-mode-local-vars . +python|init-anaconda-mode-maybe)
:init :init
(setq anaconda-mode-installation-directory (concat doom-etc-dir "anaconda/") (setq anaconda-mode-installation-directory (concat doom-etc-dir "anaconda/")
@ -122,7 +122,7 @@ called.")
"u" #'anaconda-mode-find-references)) "u" #'anaconda-mode-find-references))
(def-package! pyimport (use-package! pyimport
:after python :after python
:config :config
(map! :map python-mode-map (map! :map python-mode-map
@ -133,7 +133,7 @@ called.")
:desc "Unused imports" "r" #'pyimport-remove-unused))) :desc "Unused imports" "r" #'pyimport-remove-unused)))
(def-package! nose (use-package! nose
:commands nose-mode :commands nose-mode
:preface (defvar nose-mode-map (make-sparse-keymap)) :preface (defvar nose-mode-map (make-sparse-keymap))
:minor ("/test_.+\\.py$" . nose-mode) :minor ("/test_.+\\.py$" . nose-mode)
@ -155,7 +155,7 @@ called.")
"V" #'nosetests-pdb-module)) "V" #'nosetests-pdb-module))
(def-package! python-pytest (use-package! python-pytest
:defer t :defer t
:init :init
(map! :after python (map! :after python
@ -173,7 +173,7 @@ called.")
;; ;;
;; Environment management ;; Environment management
(def-package! pipenv (use-package! pipenv
:commands pipenv-project-p :commands pipenv-project-p
:hook (python-mode . pipenv-mode) :hook (python-mode . pipenv-mode)
:init (setq pipenv-with-projectile nil) :init (setq pipenv-with-projectile nil)
@ -188,7 +188,7 @@ called.")
(:description . "Run Python script")))) (:description . "Run Python script"))))
(def-package! pyvenv (use-package! pyvenv
:after python :after python
:init :init
(when (featurep! :ui modeline) (when (featurep! :ui modeline)
@ -201,7 +201,7 @@ called.")
'append)) 'append))
(def-package! pyenv-mode (use-package! pyenv-mode
:when (featurep! +pyenv) :when (featurep! +pyenv)
:after python :after python
:config :config
@ -210,7 +210,7 @@ called.")
(add-to-list 'exec-path (expand-file-name "shims" (or (getenv "PYENV_ROOT") "~/.pyenv"))))) (add-to-list 'exec-path (expand-file-name "shims" (or (getenv "PYENV_ROOT") "~/.pyenv")))))
(def-package! conda (use-package! conda
:when (featurep! +conda) :when (featurep! +conda)
:after python :after python
:config :config

View file

@ -1,6 +1,6 @@
;;; lang/racket/config.el -*- lexical-binding: t; -*- ;;; lang/racket/config.el -*- lexical-binding: t; -*-
(def-package! racket-mode (use-package! racket-mode
:hook (racket-repl-mode . racket-unicode-input-method-enable) :hook (racket-repl-mode . racket-unicode-input-method-enable)
:config :config
(set-popup-rule! "^\\*Racket REPL" :size 10 :select t) (set-popup-rule! "^\\*Racket REPL" :size 10 :select t)

View file

@ -1,6 +1,6 @@
;;; lang/rest/config.el -*- lexical-binding: t; -*- ;;; lang/rest/config.el -*- lexical-binding: t; -*-
(def-package! restclient (use-package! restclient
:mode ("\\.http\\'" . restclient-mode) :mode ("\\.http\\'" . restclient-mode)
:config :config
(set-popup-rule! "^\\*HTTP Response" :size 0.4 :quit 'other) (set-popup-rule! "^\\*HTTP Response" :size 0.4 :quit 'other)
@ -30,7 +30,7 @@
"c" #'restclient-copy-curl-command)) "c" #'restclient-copy-curl-command))
(def-package! company-restclient (use-package! company-restclient
:when (featurep! :completion company) :when (featurep! :completion company)
:after restclient :after restclient
:config (set-company-backend! 'restclient-mode 'company-restclient)) :config (set-company-backend! 'restclient-mode 'company-restclient))

View file

@ -3,7 +3,7 @@
;; ;;
;; Packages ;; Packages
(def-package! enh-ruby-mode (use-package! enh-ruby-mode
:mode ("\\.\\(?:pry\\|irb\\)rc\\'" . +ruby|init) :mode ("\\.\\(?:pry\\|irb\\)rc\\'" . +ruby|init)
:mode ("\\.\\(?:rb\\|rake\\|rabl\\|ru\\|builder\\|gemspec\\|jbuilder\\|thor\\)\\'" . +ruby|init) :mode ("\\.\\(?:rb\\|rake\\|rabl\\|ru\\|builder\\|gemspec\\|jbuilder\\|thor\\)\\'" . +ruby|init)
:mode ("/\\(?:Berks\\|Cap\\|Gem\\|Guard\\|Pod\\|Puppet\\|Rake\\|Thor\\|Vagrant\\)file\\'" . +ruby|init) :mode ("/\\(?:Berks\\|Cap\\|Gem\\|Guard\\|Pod\\|Puppet\\|Rake\\|Thor\\|Vagrant\\)file\\'" . +ruby|init)
@ -30,7 +30,7 @@
(setq-hook! (ruby-mode enh-ruby-mode) sp-max-pair-length 6)) (setq-hook! (ruby-mode enh-ruby-mode) sp-max-pair-length 6))
(def-package! robe (use-package! robe
:defer t :defer t
:init :init
(defun +ruby|init-robe-mode-maybe () (defun +ruby|init-robe-mode-maybe ()
@ -60,11 +60,11 @@
;; NOTE Must be loaded before `robe-mode' ;; NOTE Must be loaded before `robe-mode'
(def-package! yard-mode (use-package! yard-mode
:hook (ruby-mode enh-ruby-mode)) :hook (ruby-mode enh-ruby-mode))
(def-package! rubocop (use-package! rubocop
:hook (enh-ruby-mode . rubocop-mode) :hook (enh-ruby-mode . rubocop-mode)
:config :config
(map! :localleader (map! :localleader
@ -78,7 +78,7 @@
;; ;;
;; Package & Ruby version management ;; Package & Ruby version management
(def-package! rake (use-package! rake
:defer t :defer t
:init :init
(setq rake-cache-file (concat doom-cache-dir "rake.cache")) (setq rake-cache-file (concat doom-cache-dir "rake.cache"))
@ -91,7 +91,7 @@
"R" #'rake-regenerate-cache "R" #'rake-regenerate-cache
"f" #'rake-find-task)) "f" #'rake-find-task))
(def-package! bundler (use-package! bundler
:defer t :defer t
:init :init
(map! :after enh-ruby-mode (map! :after enh-ruby-mode
@ -113,7 +113,7 @@
;; ;;
;; Testing frameworks ;; Testing frameworks
(def-package! rspec-mode (use-package! rspec-mode
:mode ("/\\.rspec\\'" . text-mode) :mode ("/\\.rspec\\'" . text-mode)
:init :init
(when (featurep! :editor evil) (when (featurep! :editor evil)
@ -142,7 +142,7 @@
"s" #'rspec-dired-verify-single)) "s" #'rspec-dired-verify-single))
(def-package! minitest (use-package! minitest
:defer t :defer t
:config :config
(when (featurep! :editor evil) (when (featurep! :editor evil)

View file

@ -1,6 +1,6 @@
;;; lang/rust/config.el -*- lexical-binding: t; -*- ;;; lang/rust/config.el -*- lexical-binding: t; -*-
(def-package! rust-mode (use-package! rust-mode
:defer t :defer t
:config :config
(setq rust-indent-method-chain t) (setq rust-indent-method-chain t)
@ -32,7 +32,7 @@
'(rustic-mode rustic-indent-offset))))) '(rustic-mode rustic-indent-offset)))))
(def-package! racer (use-package! racer
:unless (featurep! +lsp) :unless (featurep! +lsp)
:hook ((rust-mode rustic-mode) . racer-mode) :hook ((rust-mode rustic-mode) . racer-mode)
:config :config
@ -41,7 +41,7 @@
:documentation '+rust-racer-lookup-documentation)) :documentation '+rust-racer-lookup-documentation))
(def-package! rustic (use-package! rustic
:when EMACS26+ :when EMACS26+
:after rust-mode :after rust-mode
:preface :preface
@ -64,7 +64,7 @@
;; ;;
;;; Tools ;;; Tools
(def-package! cargo (use-package! cargo
:after rust-mode :after rust-mode
:config :config
(defvar +rust-keymap (defvar +rust-keymap

View file

@ -14,7 +14,7 @@
(add-hook 'scala-mode-local-vars-hook #'lsp!))) (add-hook 'scala-mode-local-vars-hook #'lsp!)))
(def-package! ensime (use-package! ensime
:unless (featurep! +lsp) :unless (featurep! +lsp)
:defer t :defer t
:config :config
@ -31,6 +31,6 @@
(require 'imenu)) (require 'imenu))
(def-package! sbt-mode (use-package! sbt-mode
:after scala-mode :after scala-mode
:config (set-repl-handler! 'scala-mode #'+scala/open-repl)) :config (set-repl-handler! 'scala-mode #'+scala/open-repl))

View file

@ -10,7 +10,7 @@
;; ;;
;; Packages ;; Packages
(def-package! sh-script ; built-in (use-package! sh-script ; built-in
:mode ("\\.zunit\\'" . sh-mode) :mode ("\\.zunit\\'" . sh-mode)
:mode ("/bspwmrc\\'" . sh-mode) :mode ("/bspwmrc\\'" . sh-mode)
:mode ("/bin/[^/]+\\'" . sh-mode) :mode ("/bin/[^/]+\\'" . sh-mode)
@ -61,7 +61,7 @@
(add-hook 'sh-mode-hook #'+sh|detect-zsh)) (add-hook 'sh-mode-hook #'+sh|detect-zsh))
(def-package! company-shell (use-package! company-shell
:when (featurep! :completion company) :when (featurep! :completion company)
:after sh-script :after sh-script
:config :config
@ -69,7 +69,7 @@
(setq company-shell-delete-duplicates t)) (setq company-shell-delete-duplicates t))
(def-package! fish-mode (use-package! fish-mode
:when (featurep! +fish) :when (featurep! +fish)
:defer t :defer t
:config (set-formatter! 'fish-mode #'fish_indent)) :config (set-formatter! 'fish-mode #'fish_indent))

View file

@ -7,7 +7,7 @@
(setq solidity-comment-style 'slash) (setq solidity-comment-style 'slash)
(def-package! solidity-flycheck ; included with solidity-mode (use-package! solidity-flycheck ; included with solidity-mode
:when (featurep! :tools flycheck) :when (featurep! :tools flycheck)
:after solidity-mode :after solidity-mode
:config :config
@ -18,7 +18,7 @@
(add-to-list 'flycheck-checkers 'solium-checker nil #'eq))) (add-to-list 'flycheck-checkers 'solium-checker nil #'eq)))
(def-package! company-solidity (use-package! company-solidity
:when (featurep! :completion company) :when (featurep! :completion company)
:after solidity-mode :after solidity-mode
:config :config

View file

@ -4,14 +4,14 @@
(set-repl-handler! 'swift-mode #'run-swift)) (set-repl-handler! 'swift-mode #'run-swift))
(def-package! flycheck-swift (use-package! flycheck-swift
:when (and (featurep! :tools flycheck) :when (and (featurep! :tools flycheck)
(not (featurep! +lsp))) (not (featurep! +lsp)))
:after swift-mode :after swift-mode
:config (flycheck-swift-setup)) :config (flycheck-swift-setup))
(def-package! company-sourcekit (use-package! company-sourcekit
:when (and (featurep! :completion company) :when (and (featurep! :completion company)
(not (featurep! +lsp))) (not (featurep! +lsp)))
:after swift-mode :after swift-mode
@ -19,7 +19,7 @@
(set-company-backend! 'swift-mode '(company-sourcekit company-yasnippet))) (set-company-backend! 'swift-mode '(company-sourcekit company-yasnippet)))
(def-package! lsp-sourcekit (use-package! lsp-sourcekit
:when (featurep! +lsp) :when (featurep! +lsp)
:after swift-mode :after swift-mode
:init (add-hook 'swift-mode-hook #'lsp!)) :init (add-hook 'swift-mode-hook #'lsp!))

View file

@ -3,7 +3,7 @@
;; ;;
;; Major modes ;; Major modes
(def-package! terra-mode (use-package! terra-mode
:defer t :defer t
:config :config
(set-lookup-handlers! 'terra-mode :documentation 'terra-search-documentation) (set-lookup-handlers! 'terra-mode :documentation 'terra-search-documentation)

View file

@ -50,7 +50,7 @@
(add-hook! (css-mode sass-mode less-css-mode) #'lsp!)) (add-hook! (css-mode sass-mode less-css-mode) #'lsp!))
(def-package! counsel-css (use-package! counsel-css
:when (featurep! :completion ivy) :when (featurep! :completion ivy)
:commands counsel-css :commands counsel-css
:hook (css-mode . counsel-css-imenu-setup) :hook (css-mode . counsel-css-imenu-setup)
@ -59,7 +59,7 @@
:localleader ";" #'counsel-css)) :localleader ";" #'counsel-css))
(def-package! helm-css-scss (use-package! helm-css-scss
:when (featurep! :completion helm) :when (featurep! :completion helm)
:defer t :defer t
:init :init

View file

@ -1,6 +1,6 @@
;;; lang/web/+html.el -*- lexical-binding: t; -*- ;;; lang/web/+html.el -*- lexical-binding: t; -*-
(def-package! web-mode (use-package! web-mode
:mode "\\.p?html?$" :mode "\\.p?html?$"
:mode "\\.\\(?:tpl\\|blade\\)\\(\\.php\\)?$" :mode "\\.\\(?:tpl\\|blade\\)\\(\\.php\\)?$"
:mode "\\.erb$" :mode "\\.erb$"

View file

@ -4,7 +4,7 @@
(load! "+css") (load! "+css")
(def-package! emmet-mode (use-package! emmet-mode
:preface (defvar emmet-mode-keymap (make-sparse-keymap)) :preface (defvar emmet-mode-keymap (make-sparse-keymap))
:hook (css-mode web-mode html-mode haml-mode nxml-mode rjsx-mode reason-mode) :hook (css-mode web-mode html-mode haml-mode nxml-mode rjsx-mode reason-mode)
:config :config

View file

@ -152,15 +152,15 @@ You should use `set-eshell-alias!' to change this.")
[remap evil-window-vsplit] #'+eshell/split-right)))) [remap evil-window-vsplit] #'+eshell/split-right))))
(def-package! eshell-up (use-package! eshell-up
:commands eshell-up eshell-up-peek) :commands eshell-up eshell-up-peek)
(def-package! shrink-path (use-package! shrink-path
:commands shrink-path-file) :commands shrink-path-file)
(def-package! eshell-z (use-package! eshell-z
:after eshell :after eshell
:config :config
;; Use zsh's db if it exists, otherwise, store it in `doom-cache-dir' ;; Use zsh's db if it exists, otherwise, store it in `doom-cache-dir'

View file

@ -1,6 +1,6 @@
;;; term/vterm/config.el -*- lexical-binding: t; -*- ;;; term/vterm/config.el -*- lexical-binding: t; -*-
(def-package! vterm (use-package! vterm
:when (fboundp 'module-load) :when (fboundp 'module-load)
:defer t :defer t
:preface (setq vterm-install t) :preface (setq vterm-install t)

View file

@ -1,6 +1,6 @@
;;; tools/ansible/config.el -*- lexical-binding: t; -*- ;;; tools/ansible/config.el -*- lexical-binding: t; -*-
(def-package! ansible (use-package! ansible
:commands ansible-auto-decrypt-encrypt :commands ansible-auto-decrypt-encrypt
:init :init
(put 'ansible-vault-password-file 'safe-local-variable #'stringp) (put 'ansible-vault-password-file 'safe-local-variable #'stringp)
@ -16,7 +16,7 @@
(after! ansible-doc (after! ansible-doc
(set-evil-initial-state! '(ansible-doc-module-mode) 'emacs)) (set-evil-initial-state! '(ansible-doc-module-mode) 'emacs))
(def-package! jinja2-mode (use-package! jinja2-mode
:mode "\\.j2$") :mode "\\.j2$")
(def-project-mode! +ansible-yaml-mode (def-project-mode! +ansible-yaml-mode

View file

@ -20,7 +20,7 @@
;; ;;
;;; Packages ;;; Packages
(def-package! dap-mode (use-package! dap-mode
:when (featurep! :tools lsp) :when (featurep! :tools lsp)
:hook (dap-mode . dap-ui-mode) :hook (dap-mode . dap-ui-mode)
:after lsp-mode :after lsp-mode
@ -48,10 +48,10 @@
(require 'dap-edge))))) (require 'dap-edge)))))
(def-package! realgud (use-package! realgud
:defer t :defer t
:init :init
(def-package! realgud-trepan-ni (use-package! realgud-trepan-ni
:defer t :defer t
:init (add-to-list '+debugger--realgud-alist :init (add-to-list '+debugger--realgud-alist
'(realgud:trepan-ni :modes (javascript-mode js2-mode js3-mode) '(realgud:trepan-ni :modes (javascript-mode js2-mode js3-mode)

View file

@ -7,7 +7,7 @@
"use" "rvm" "use_nix" "use_guix") "use" "rvm" "use_nix" "use_guix")
"TODO") "TODO")
(def-package! direnv (use-package! direnv
:after-call (after-find-file dired-initial-position-hook) :after-call (after-find-file dired-initial-position-hook)
:config :config
(add-hook 'direnv-mode-hook (add-hook 'direnv-mode-hook

View file

@ -17,7 +17,7 @@
;; Handles whitespace (tabs/spaces) settings externally. This way projects can ;; Handles whitespace (tabs/spaces) settings externally. This way projects can
;; specify their own formatting rules. ;; specify their own formatting rules.
(def-package! editorconfig (use-package! editorconfig
:after-call (doom-switch-buffer-hook after-find-file) :after-call (doom-switch-buffer-hook after-find-file)
:config :config
(def-advice! +editorconfig-smart-detection-a (orig-fn) (def-advice! +editorconfig-smart-detection-a (orig-fn)

View file

@ -8,7 +8,7 @@ errors.")
;; ;;
;;; Packages ;;; Packages
(def-package! flycheck (use-package! flycheck
:commands flycheck-list-errors flycheck-buffer :commands flycheck-list-errors flycheck-buffer
:after-call doom-switch-buffer-hook after-find-file :after-call doom-switch-buffer-hook after-find-file
:config :config
@ -34,7 +34,7 @@ Done to reduce the load flycheck imposes on the current buffer."
(global-flycheck-mode +1)) (global-flycheck-mode +1))
(def-package! flycheck-popup-tip (use-package! flycheck-popup-tip
:commands flycheck-popup-tip-show-popup flycheck-popup-tip-delete-popup :commands flycheck-popup-tip-show-popup flycheck-popup-tip-delete-popup
:init (add-hook 'flycheck-mode-hook #'+flycheck-init-popups-h) :init (add-hook 'flycheck-mode-hook #'+flycheck-init-popups-h)
:config :config
@ -45,7 +45,7 @@ Done to reduce the load flycheck imposes on the current buffer."
(add-hook 'flycheck-posframe-inhibit-functions #'evil-insert-state-p))) (add-hook 'flycheck-posframe-inhibit-functions #'evil-insert-state-p)))
(def-package! flycheck-posframe (use-package! flycheck-posframe
:when EMACS26+ :when EMACS26+
:when (featurep! +childframe) :when (featurep! +childframe)
:defer t :defer t

View file

@ -71,7 +71,7 @@ e.g. proselint and langtool."
(add-hook 'flyspell-mode-hook #'+flyspell-init-predicate-h)) (add-hook 'flyspell-mode-hook #'+flyspell-init-predicate-h))
(def-package! flyspell-correct (use-package! flyspell-correct
:commands flyspell-correct-word-generic flyspell-correct-previous-word-generic :commands flyspell-correct-word-generic flyspell-correct-previous-word-generic
:config :config
(cond ((and (featurep! :completion helm) (cond ((and (featurep! :completion helm)

View file

@ -83,7 +83,7 @@ this list.")
;; ;;
;;; dumb-jump ;;; dumb-jump
(def-package! dumb-jump (use-package! dumb-jump
:commands dumb-jump-result-follow :commands dumb-jump-result-follow
:config :config
(setq dumb-jump-default-project doom-emacs-dir (setq dumb-jump-default-project doom-emacs-dir
@ -116,13 +116,13 @@ this list.")
;; Use `better-jumper' instead of xref's marker stack ;; Use `better-jumper' instead of xref's marker stack
(advice-add #'xref-push-marker-stack :around #'doom-set-jump-a) (advice-add #'xref-push-marker-stack :around #'doom-set-jump-a)
(def-package! ivy-xref (use-package! ivy-xref
:when (featurep! :completion ivy) :when (featurep! :completion ivy)
:config :config
(setq xref-show-xrefs-function #'ivy-xref-show-xrefs) (setq xref-show-xrefs-function #'ivy-xref-show-xrefs)
(set-popup-rule! "^\\*xref\\*$" :ignore t)) (set-popup-rule! "^\\*xref\\*$" :ignore t))
(def-package! helm-xref (use-package! helm-xref
:when (featurep! :completion helm) :when (featurep! :completion helm)
:config (setq xref-show-xrefs-function #'helm-xref-show-xrefs))) :config (setq xref-show-xrefs-function #'helm-xref-show-xrefs)))
@ -130,7 +130,7 @@ this list.")
;; ;;
;;; Dash docset integration ;;; Dash docset integration
(def-package! dash-docs (use-package! dash-docs
:when (featurep! +docsets) :when (featurep! +docsets)
:init :init
(add-hook '+lookup-documentation-functions #'+lookup-dash-docsets-backend-fn) (add-hook '+lookup-documentation-functions #'+lookup-dash-docsets-backend-fn)
@ -154,8 +154,8 @@ See https://github.com/magit/ghub/issues/81"
(let ((gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")) (let ((gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3"))
(funcall orig-fn url))) (funcall orig-fn url)))
(def-package! helm-dash (use-package! helm-dash
:when (featurep! :completion helm)) :when (featurep! :completion helm))
(def-package! counsel-dash (use-package! counsel-dash
:when (featurep! :completion ivy))) :when (featurep! :completion ivy)))

View file

@ -21,7 +21,7 @@
(add-hook! 'kill-emacs-hook (setq lsp-restart 'ignore))) (add-hook! 'kill-emacs-hook (setq lsp-restart 'ignore)))
(def-package! lsp-ui (use-package! lsp-ui
:hook (lsp-mode . lsp-ui-mode) :hook (lsp-mode . lsp-ui-mode)
:init :init
(add-hook 'lsp-ui-mode-hook (add-hook 'lsp-ui-mode-hook
@ -54,7 +54,7 @@
:references 'lsp-ui-peek-find-references)) :references 'lsp-ui-peek-find-references))
(def-package! company-lsp (use-package! company-lsp
:when (featurep! :completion company) :when (featurep! :completion company)
:defer t :defer t
:init :init

View file

@ -8,7 +8,7 @@ It is passed a user and repository name.")
;; ;;
;; Packages ;; Packages
(def-package! magit (use-package! magit
:commands magit-file-delete :commands magit-file-delete
:defer-incrementally (dash f s with-editor git-commit package eieio lv transient) :defer-incrementally (dash f s with-editor git-commit package eieio lv transient)
:init :init
@ -74,7 +74,7 @@ It is passed a user and repository name.")
(define-key transient-map [escape] #'transient-quit-one)) (define-key transient-map [escape] #'transient-quit-one))
(def-package! forge (use-package! forge
;; We defer loading even further because forge's dependencies will try to ;; We defer loading even further because forge's dependencies will try to
;; compile emacsql, which is a slow and blocking operation. ;; compile emacsql, which is a slow and blocking operation.
:after-call magit-status :after-call magit-status
@ -103,7 +103,7 @@ ensure it is built when we actually use Forge."
(emacsql-sqlite-compile 2)))) (emacsql-sqlite-compile 2))))
(def-package! magit-todos (use-package! magit-todos
:after magit :after magit
:config :config
(setq magit-todos-keyword-suffix "\\(?:([^)]+)\\)?:?") ; make colon optional (setq magit-todos-keyword-suffix "\\(?:([^)]+)\\)?:?") ; make colon optional
@ -114,11 +114,11 @@ ensure it is built when we actually use Forge."
(magit-todos-mode +1)) (magit-todos-mode +1))
(def-package! magit-gitflow (use-package! magit-gitflow
:hook (magit-mode . turn-on-magit-gitflow)) :hook (magit-mode . turn-on-magit-gitflow))
(def-package! evil-magit (use-package! evil-magit
:when (featurep! :editor evil +everywhere) :when (featurep! :editor evil +everywhere)
:after magit :after magit
:init :init

View file

@ -1,6 +1,6 @@
;;; tools/pdf/config.el -*- lexical-binding: t; -*- ;;; tools/pdf/config.el -*- lexical-binding: t; -*-
(def-package! pdf-tools (use-package! pdf-tools
:mode ("\\.pdf\\'" . pdf-view-mode) :mode ("\\.pdf\\'" . pdf-view-mode)
:config :config
(unless noninteractive (unless noninteractive

View file

@ -8,7 +8,7 @@
:desc "terraform plan" "p" (λ! (compile "terraform plan"))) :desc "terraform plan" "p" (λ! (compile "terraform plan")))
(def-package! company-terraform (use-package! company-terraform
:when (featurep! :completion company) :when (featurep! :completion company)
:after terraform-mode :after terraform-mode
:config :config

View file

@ -12,7 +12,7 @@
;; Note: `ssh-deploy-root-local' is optional, and will resort to ;; Note: `ssh-deploy-root-local' is optional, and will resort to
;; `doom-project-root' if unspecified. ;; `doom-project-root' if unspecified.
(def-package! ssh-deploy (use-package! ssh-deploy
:commands (ssh-deploy-upload-handler :commands (ssh-deploy-upload-handler
ssh-deploy-upload-handler-forced ssh-deploy-upload-handler-forced
ssh-deploy-diff-handler ssh-deploy-diff-handler

View file

@ -1,6 +1,6 @@
;;; ui/deft/config.el -*- lexical-binding: t; -*- ;;; ui/deft/config.el -*- lexical-binding: t; -*-
(def-package! deft (use-package! deft
:commands deft :commands deft
:init :init
(setq deft-extensions '("org" "md" "tex" "txt") (setq deft-extensions '("org" "md" "tex" "txt")

View file

@ -22,7 +22,7 @@
;; Packages ;; Packages
;; <https://github.com/hlissner/emacs-doom-theme> ;; <https://github.com/hlissner/emacs-doom-theme>
(def-package! doom-themes (use-package! doom-themes
:defer t :defer t
:init :init
(unless doom-theme (unless doom-theme
@ -40,7 +40,7 @@
(add-hook 'doom-load-theme-hook #'doom-themes-treemacs-config))) (add-hook 'doom-load-theme-hook #'doom-themes-treemacs-config)))
(def-package! solaire-mode (use-package! solaire-mode
:defer t :defer t
:init :init
(add-hook 'doom-load-theme-hook (add-hook 'doom-load-theme-hook

View file

@ -1,6 +1,6 @@
;;; ui/hl-todo/packages.el -*- lexical-binding: t; -*- ;;; ui/hl-todo/packages.el -*- lexical-binding: t; -*-
(def-package! hl-todo (use-package! hl-todo
:hook (prog-mode . hl-todo-mode) :hook (prog-mode . hl-todo-mode)
:config :config
(setq hl-todo-highlight-punctuation ":" (setq hl-todo-highlight-punctuation ":"

Some files were not shown because too many files have changed in this diff Show more