diff options
Diffstat (limited to '.config/emacs')
| -rw-r--r-- | .config/emacs/init.el | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/.config/emacs/init.el b/.config/emacs/init.el index d12ef69..7857df0 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -121,7 +121,7 @@ it convenient to use in ‘thread-last’." (x-set custom-file (expand-file-name (format "emacs-custom-%s.el" (user-uid)) temporary-file-directory)) -(load custom-file 'noerror) +(load custom-file :noerror) (define-key global-map [remap backward-delete-char-untabify] #'backward-delete-char) @@ -186,7 +186,7 @@ it convenient to use in ‘thread-last’." (evil-define-text-object ,inner-name (count &optional beg end type) (evil-select-paren ,start-regexp ,end-regexp beg end type count nil)) (evil-define-text-object ,outer-name (count &optional beg end type) - (evil-select-paren ,start-regexp ,end-regexp beg end type count 'inclusive)) + (evil-select-paren ,start-regexp ,end-regexp beg end type count :inclusive)) (define-key evil-inner-text-objects-map ,key #',inner-name) (define-key evil-outer-text-objects-map ,key #',outer-name)))) @@ -201,7 +201,7 @@ the selection. This is nearly identical to ‘evil-surround-function’ except it provides a useful prompt, and is language-aware." (let ((list-name (or (evil-surround-read-from-minibuffer "Function name: ") ""))) - (if (derived-mode-p 'lisp-mode 'lisp-data-mode 'emacs-lisp-mode) + (if (derived-mode-p #'lisp-mode #'lisp-data-mode #'emacs-lisp-mode) (cons (format "(%s " list-name) ")") (cons (format "%s(" (or list-name "")) ")")))) @@ -295,7 +295,7 @@ preserved." (when (eq (char-before (point)) ?-) (goto-char (1- (point)))) (save-match-data - (when (re-search-forward "-?\\([0-9]+\\)" nil 'noerror) + (when (re-search-forward "-?\\([0-9]+\\)" nil :noerror) (let ((answer (+ (string-to-number (match-string 0) 10) (or arg 1))) (width (length (match-string 1)))) @@ -476,7 +476,7 @@ directories if they kill the buffer without saving it." (directory-file-name current-dir)))) (unless (file-exists-p dir-to-create) - (make-directory dir-to-create 'parents))) + (make-directory dir-to-create :parents))) ;; Use ‘prog1’ so that we maintain the original return value (prog1 (apply original-function filename arguments) @@ -597,8 +597,8 @@ SPEC can be either a symbol, or a list of symbols. These symbols should correspond to modes for which the associated ligatures should be enabled. A mode may also be specified in multiple entries. To configure -‘go-ts-mode’ to have it’s set of ligatures be a super-set of the -ligatures for ‘c-ts-mode’, the following two entries could be added: +`go-ts-mode' to have it’s set of ligatures be a super-set of the +ligatures for `c-ts-mode', the following two entries could be added: '((c-ts-mode go-ts-mode) . (\">=\" \"<=\" \"!=\" \"==\")) '(go-ts-mode . (\":=\"))") @@ -617,12 +617,12 @@ ligatures for ‘c-ts-mode’, the following two entries could be added: (interactive) (when-let ((no-dotfiles "\\`[^.]") (repo-directory (getenv "REPODIR")) - (level-1 (directory-files repo-directory 'full-name no-dotfiles))) - (setq project--list (cl-loop for directory in level-1 - append (mapcar #'list (directory-files - directory - 'full-name - no-dotfiles)))) + (level-1 (directory-files repo-directory :full no-dotfiles))) + (setq + project--list + (cl-loop for directory in level-1 + append (mapcar #'list (directory-files + directory :full no-dotfiles)))) (project--write-project-list))) (with-eval-after-load 'project @@ -647,7 +647,7 @@ a semicolon following a return statement." (save-excursion (goto-char (line-beginning-position)) (save-match-data - (while (re-search-forward "\\<return\\>" end-position 'noerror) + (while (re-search-forward "\\<return\\>" end-position :noerror) (when (eq (get-text-property (1- (point)) 'face) 'font-lock-keyword-face) (throw 'return 'stop)))))))) @@ -748,7 +748,7 @@ a semicolon following a return statement." ;; <Leader> and <LocalLeader> (evil-set-leader nil (kbd "SPC")) -(evil-set-leader nil (kbd ",") 'localleader) +(evil-set-leader nil (kbd ",") :localleader) ;; Evil bindings that aren’t namespaced under ‘<leader>’ (evil-define-key |