Browse Source

Update old defadvice to new advice-add

master
Riyyi 4 years ago
parent
commit
e2535d37eb
  1. 12
      .emacs.d/config.org

12
.emacs.d/config.org

@ -81,7 +81,7 @@ M-x =all-the-icons-install-fonts=
* Global Variables * Global Variables
Variables for directories and leader keys. Variables for directories, leader keys, etc.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defvar dot-emacs-dir (directory-file-name (file-truename user-emacs-directory)) (defvar dot-emacs-dir (directory-file-name (file-truename user-emacs-directory))
@ -104,6 +104,9 @@ Variables for directories and leader keys.
(defvar dot/localleader-alt-key "M-SPC m" (defvar dot/localleader-alt-key "M-SPC m"
"Alternative local leader prefix key, used for Insert and Emacs states.") "Alternative local leader prefix key, used for Insert and Emacs states.")
(defvar dot/shell "/bin/zsh"
"Command interpreter binary path.")
#+END_SRC #+END_SRC
* Customizations * Customizations
@ -1033,10 +1036,9 @@ Functions that use package functionality.
Define default terminal option. Define default terminal option.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defvar terminal-shell "/bin/zsh") (defun dot/ansi-term (program &optional new-buffer-name)
(defadvice ansi-term (before force-bash) (interactive (list dot/shell)))
(interactive (list terminal-shell))) (advice-add 'ansi-term :before #'dot/ansi-term)
(ad-activate 'ansi-term)
#+END_SRC #+END_SRC
** Aliases ** Aliases

Loading…
Cancel
Save