33 lines
1 KiB
EmacsLisp
33 lines
1 KiB
EmacsLisp
;; Post extensions are loaded *after* the packages
|
|
(defvar windows-scripts-post-extensions '(dos))
|
|
|
|
;; Initialize the extensions
|
|
|
|
(defun windows-scripts/init-dos ()
|
|
(use-package dos
|
|
:commands dos-mode
|
|
:mode ("\\.bat$" . dos-mode)
|
|
:init
|
|
(progn
|
|
(defun windows-scripts/dos-outline-hook ()
|
|
(defun outline-mouse-select ()
|
|
"Select position and return to `dos-mode'."
|
|
(interactive)
|
|
(dos-mode)
|
|
(beginning-of-line)))
|
|
(defun windows-scripts/dos-outline ()
|
|
"Set a local binding to be able to return easily in dos-mode."
|
|
(interactive)
|
|
(dos-outline)
|
|
(define-key evil-normal-state-local-map (kbd "SPC m z") 'dos-mode))
|
|
(add-hook 'outline-mode-hook 'windows-scripts/dos-outline-hook))
|
|
:config
|
|
(evil-leader/set-key-for-mode 'dos-mode
|
|
"mhD" 'dos-help-cmd
|
|
"meb" 'dos-run
|
|
"meB" 'dos-run-args
|
|
"ms" 'dos-sep
|
|
"mt" 'dos-template-mini
|
|
"mT" 'dos-template
|
|
"mz" 'windows-scripts/dos-outline)))
|