doomemacs/modules/tools/electric-indent/config.el

;;; tools/electric-indent/config.el -*- lexical-binding: t; -*-

;; Smarter, keyword-based electric-indent

(defvar doom-electric-indent-p nil
  "TODO")

(defvar-local doom-electric-indent-words '()
  "TODO")

(def-setting! :electric (modes &rest plist)
  "Declare :words (list of strings) or :chars (lists of chars) in MODES that
trigger electric indentation."
  (declare (indent 1))
  (let ((modes (doom-enlist (doom-unquote modes)))
        (chars (doom-unquote (plist-get plist :chars)))
        (words (doom-unquote (plist-get plist :words))))
    (when (or chars words)
      (let ((fn-name (intern (format "doom--init-electric-%s" (mapconcat #'symbol-name modes "-")))))
        `(progn
           (defun ,fn-name ()
             (electric-indent-local-mode +1)
             ,@(if chars `((setq electric-indent-chars ',chars)))
             ,@(if words `((setq doom-electric-indent-words ',words))))
           (add-hook! ,modes #',fn-name))))))

;;
(after! electric
  (setq-default electric-indent-chars '(?\n ?\^?))

  (defun +electric-indent|char (_c)
    (when (and (eolp) doom-electric-indent-words)
      (save-excursion
        (backward-word)
        (looking-at-p
         (concat "\\<" (regexp-opt doom-electric-indent-words))))))
  (add-to-list 'electric-indent-functions #'+electric-indent|char))
Major optimization refactor, across the board + enable lexical-scope everywhere (lexical-binding = t): ~5-10% faster startup; ~5-20% general boost + reduce consing, function calls & garbage collection by preferring cl-loop & dolist over lambda closures (for mapc[ar], add-hook, and various cl-lib filter/map/reduce functions) -- where possible + prefer functions with dedicated opcodes, like assq (see byte-defop's in bytecomp.el for more) + prefer pcase & cond (faster) over cl-case + general refactor for code readability + ensure naming & style conventions are adhered to + appease byte-compiler by marking unused variables with underscore + defer minor mode activation to after-init, emacs-startup or window-setup hooks; a customization opportunity for users + ensures custom functionality won't interfere with startup. 2017-06-08 11:47:56 +02:00			`;;; tools/electric-indent/config.el -- lexical-binding: t; --`
Add modules/tools/{electric-indent,rotate-text} 2017-02-20 20:42:37 -05:00
			`;; Smarter, keyword-based electric-indent`

			`(defvar doom-electric-indent-p nil`
			`"TODO")`

			`(defvar-local doom-electric-indent-words '()`
			`"TODO")`

Revert macros to ...! name convention (elisp doesn't like @...) 2017-02-23 00:06:12 -05:00			`(def-setting! :electric (modes &rest plist)`
Add modules/tools/{electric-indent,rotate-text} 2017-02-20 20:42:37 -05:00			`"Declare :words (list of strings) or :chars (lists of chars) in MODES that`
			`trigger electric indentation."`
			`(declare (indent 1))`
Make def-setting! behave more like defmacro set! used to aggressively evaluate its arguments (at expansion-time), even if placed inside an after! block. This causes unavoidable errors if those arguments use functions/variables that don't exist yet. Fixes #112 2017-06-19 00:22:04 +02:00			`(let ((modes (doom-enlist (doom-unquote modes)))`
			`(chars (doom-unquote (plist-get plist :chars)))`
			`(words (doom-unquote (plist-get plist :words))))`
Add modules/tools/{electric-indent,rotate-text} 2017-02-20 20:42:37 -05:00			`(when (or chars words)`
Make def-setting! behave more like defmacro set! used to aggressively evaluate its arguments (at expansion-time), even if placed inside an after! block. This causes unavoidable errors if those arguments use functions/variables that don't exist yet. Fixes #112 2017-06-19 00:22:04 +02:00			`(let ((fn-name (intern (format "doom--init-electric-%s" (mapconcat #'symbol-name modes "-")))))`
Add modules/tools/{electric-indent,rotate-text} 2017-02-20 20:42:37 -05:00			`(progn
			`(defun ,fn-name ()`
			`(electric-indent-local-mode +1)`
Make def-setting! behave more like defmacro set! used to aggressively evaluate its arguments (at expansion-time), even if placed inside an after! block. This causes unavoidable errors if those arguments use functions/variables that don't exist yet. Fixes #112 2017-06-19 00:22:04 +02:00			,@(if chars `((setq electric-indent-chars ',chars)))
			,@(if words `((setq doom-electric-indent-words ',words))))
PRAISE BE TO THE BYTE COMPILER FOR THY SHARP QUOTES 2017-04-17 02:17:10 -04:00			`(add-hook! ,modes #',fn-name))))))`
Add modules/tools/{electric-indent,rotate-text} 2017-02-20 20:42:37 -05:00
Major refactor & optimization of how modules load their packages Now that we are loading package autoloads files (as part of the generated doom-package-autoload-file when running make autoloads), many :commands properties are redundant. In fact, many def-package! blocks are redundant. In some cases, we can do without a config.el file entirely, and can move into the autoloads file or rely entirely on package autoloads. Also, many settings have been moved in their module's autoloads files, which makes them available ASAP; their use no longer depends on module load order. This gained me a modest ~10% boost in startup speed. 2018-05-25 00:46:11 +02:00			`;;`
			`(after! electric`
			`(setq-default electric-indent-chars '(?\n ?\^?))`

			`(defun +electric-indent\|char (_c)`
			`(when (and (eolp) doom-electric-indent-words)`
			`(save-excursion`
			`(backward-word)`
			`(looking-at-p`
			`(concat "\\<" (regexp-opt doom-electric-indent-words))))))`
			`(add-to-list 'electric-indent-functions #'+electric-indent\|char))`