Revert macros to ...! name convention (elisp doesn't like @...)
This commit is contained in:
parent
b64d5554e3
commit
33c88d4f82
125 changed files with 877 additions and 880 deletions
|
@ -1,6 +1,6 @@
|
|||
;;; emacs/ido/config.el
|
||||
|
||||
(@def-package ido
|
||||
(def-package! ido
|
||||
:init
|
||||
(setq ido-ignore-buffers
|
||||
'("\\` " "^\\*ESS\\*" "^\\*Messages\\*" "^\\*Help\\*" "^\\*Buffer"
|
||||
|
@ -24,12 +24,12 @@
|
|||
(ido-everywhere 1)
|
||||
(require 'ido-ubiquitous)
|
||||
|
||||
(@add-hook ido-setup
|
||||
(add-hook! ido-setup
|
||||
(require 'ido-vertical-mode)
|
||||
(require 'flx-ido)
|
||||
(require 'crm-custom)
|
||||
|
||||
(@map :map (ido-common-completion-map ido-completion-map ido-file-completion-map)
|
||||
(map! :map (ido-common-completion-map ido-completion-map ido-file-completion-map)
|
||||
"C-n" 'ido-next-match
|
||||
"C-p" 'ido-prev-match
|
||||
"C-w" 'ido-delete-backward-word-updir))
|
||||
|
@ -47,21 +47,21 @@
|
|||
(lambda (x) (and (char-equal (string-to-char x) ?.) x))
|
||||
ido-temp-list))))
|
||||
(advice-add 'ido-sort-mtime :override '+ido*sort-mtime)
|
||||
(@add-hook (ido-make-file-list ido-make-dir-list) '+ido*sort-mtime)
|
||||
(add-hook! (ido-make-file-list ido-make-dir-list) '+ido*sort-mtime)
|
||||
|
||||
(defun +ido|setup-home-keybind ()
|
||||
"Go to $HOME with ~"
|
||||
(define-key ido-file-completion-map (kbd "~")
|
||||
(@λ (if (looking-back "/")
|
||||
(λ! (if (looking-back "/")
|
||||
(insert "~/")
|
||||
(call-interactively 'self-insert-command)))))
|
||||
(add-hook 'ido-setup-hook '+ido|setup-home-keybind))
|
||||
|
||||
|
||||
(@def-package ido-ubiquitous :config (ido-ubiquitous-mode 1))
|
||||
(def-package! ido-ubiquitous :config (ido-ubiquitous-mode 1))
|
||||
|
||||
(@def-package ido-vertical-mode :config (ido-vertical-mode 1))
|
||||
(def-package! ido-vertical-mode :config (ido-vertical-mode 1))
|
||||
|
||||
(@def-package flx-ido :config (flx-ido-mode +1))
|
||||
(def-package! flx-ido :config (flx-ido-mode +1))
|
||||
|
||||
(@def-package crm-custom :config (crm-custom-mode +1))
|
||||
(def-package! crm-custom :config (crm-custom-mode +1))
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; emacs/ido/packages.el
|
||||
|
||||
(@package flx-ido)
|
||||
(@package ido-ubiquitous)
|
||||
(@package ido-vertical-mode)
|
||||
(@package crm-custom)
|
||||
(package! flx-ido)
|
||||
(package! ido-ubiquitous)
|
||||
(package! ido-vertical-mode)
|
||||
(package! crm-custom)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue