mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-29 14:33:34 -05:00
43 lines
1.5 KiB
EmacsLisp
43 lines
1.5 KiB
EmacsLisp
(set-register ?. "~/.dotfiles/")
|
|
(set-register ?d "~/Dropbox/Projects/")
|
|
(set-register ?@ "~/.emacs.d/init.el")
|
|
|
|
;;;; Keymap Fixes ;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Implements some helpful keymappings for emacs sub-modes
|
|
(add-hook! 'ido-setup-hook
|
|
(bind ido-completion-map
|
|
(kbd "<backspace>") 'ido-delete-backward-updir
|
|
"\C-w" 'ido-delete-backward-word-updir))
|
|
|
|
(bind 'emacs [escape] 'my--minibuffer-quit)
|
|
(bind 'normal evil-command-window-mode-map [escape] 'kill-buffer-and-window)
|
|
;; (bind evil-ex-map [escape] 'my--minibuffer-quit)
|
|
|
|
(dolist (map (list evil-ex-search-keymap minibuffer-local-map))
|
|
(bind map "\C-w" 'evil-delete-backward-word))
|
|
|
|
(bind minibuffer-local-map "\C-u" 'evil-delete-whole-line)
|
|
|
|
;; Redefine to get rid of that silly delete-other-windows nonsense
|
|
;; (defun keyboard-escape-quit ()
|
|
;; (interactive)
|
|
;; (cond ((eq last-command 'mode-exited) nil)
|
|
;; ((region-active-p)
|
|
;; (deactivate-mark))
|
|
;; ((> (minibuffer-depth) 0)
|
|
;; (abort-recursive-edit))
|
|
;; (current-prefix-arg
|
|
;; nil)
|
|
;; ((> (recursion-depth) 0)
|
|
;; (exit-recursive-edit))
|
|
;; (buffer-quit-function
|
|
;; (funcall buffer-quit-function))
|
|
;; ((string-match "^ \\*" (buffer-name (current-buffer)))
|
|
;; (bury-buffer))))
|
|
|
|
(if is-mac (global-set-key (kbd "M-q") (λ (message "Gee, I dunno Brain..."))))
|
|
|
|
|
|
(provide 'my-settings)
|
|
;;; my-settings.el ends here
|