emacs: add C-c t for ranger-mode
parent
7c980c44a8
commit
188299ab74
|
@ -1,3 +1,7 @@
|
||||||
|
(defun agw-touch (fname)
|
||||||
|
(interactive "FFile to touch: ")
|
||||||
|
(start-process "agw-touch" nil "touch" (expand-file-name fname)))
|
||||||
|
|
||||||
(defun agw-lisp-mode ()
|
(defun agw-lisp-mode ()
|
||||||
(setq-local indent-tabs-mode nil)
|
(setq-local indent-tabs-mode nil)
|
||||||
(setq-local standard-indent 2)
|
(setq-local standard-indent 2)
|
||||||
|
@ -9,6 +13,9 @@
|
||||||
(flyspell-mode)
|
(flyspell-mode)
|
||||||
(setq-local indent-tabs-mode nil))
|
(setq-local indent-tabs-mode nil))
|
||||||
|
|
||||||
|
(defun agw-ranger-mode ()
|
||||||
|
(local-set-key (kbd "C-c t") #'agw-touch))
|
||||||
|
|
||||||
(add-hook 'org-mode-hook #'agw-org-mode)
|
(add-hook 'org-mode-hook #'agw-org-mode)
|
||||||
|
|
||||||
(add-hook 'emacs-lisp-mode-hook #'agw-lisp-mode)
|
(add-hook 'emacs-lisp-mode-hook #'agw-lisp-mode)
|
||||||
|
@ -16,5 +23,6 @@
|
||||||
(add-hook 'reb-lisp-mode-hook #'agw-lisp-mode)
|
(add-hook 'reb-lisp-mode-hook #'agw-lisp-mode)
|
||||||
(add-hook 'scheme-mode-hook #'agw-lisp-mode)
|
(add-hook 'scheme-mode-hook #'agw-lisp-mode)
|
||||||
|
|
||||||
|
(add-hook 'ranger-mode-hook #'agw-ranger-mode)
|
||||||
|
|
||||||
;; EOF
|
;; EOF
|
||||||
|
|
Loading…
Reference in New Issue