32 lines
866 B
EmacsLisp
32 lines
866 B
EmacsLisp
(defun agw-touch (fname)
|
|
(interactive "FFile to touch: ")
|
|
(start-process "agw-touch" nil "touch" (expand-file-name fname)))
|
|
|
|
(defun agw-lisp-mode ()
|
|
(setq-local indent-tabs-mode nil)
|
|
(setq-local standard-indent 2)
|
|
(setq-local tab-width 2))
|
|
|
|
(defun agw-org-mode ()
|
|
(variable-pitch-mode)
|
|
(org-bullets-mode)
|
|
(flyspell-mode)
|
|
(setq-local indent-tabs-mode nil)
|
|
(setq-local standard-indent 2)
|
|
(setq-local tab-width 2))
|
|
|
|
(defun agw-ranger-mode ()
|
|
(local-set-key (kbd "C-c t") #'agw-touch))
|
|
|
|
(add-hook 'org-mode-hook #'agw-org-mode)
|
|
|
|
(add-hook 'emacs-lisp-mode-hook #'agw-lisp-mode)
|
|
(add-hook '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 'haskell-mode-hook #'agw-lisp-mode)
|
|
|
|
(add-hook 'ranger-mode-hook #'agw-ranger-mode)
|
|
|
|
;; EOF
|