2020-01-21 23:49:05 -08:00
|
|
|
(defun agw-touch (fname)
|
|
|
|
|
(interactive "FFile to touch: ")
|
|
|
|
|
(start-process "agw-touch" nil "touch" (expand-file-name fname)))
|
|
|
|
|
|
2020-01-16 01:34:14 -08:00
|
|
|
(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)
|
2020-01-26 07:15:01 -08:00
|
|
|
(setq-local indent-tabs-mode nil)
|
|
|
|
|
(setq-local standard-indent 2)
|
|
|
|
|
(setq-local tab-width 2))
|
2020-01-16 01:34:14 -08:00
|
|
|
|
2020-01-21 23:49:05 -08:00
|
|
|
(defun agw-ranger-mode ()
|
|
|
|
|
(local-set-key (kbd "C-c t") #'agw-touch))
|
|
|
|
|
|
2020-01-21 23:48:27 -08:00
|
|
|
(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)
|
2020-01-26 07:15:17 -08:00
|
|
|
(add-hook 'haskell-mode-hook #'agw-lisp-mode)
|
2020-01-16 01:34:14 -08:00
|
|
|
|
2020-01-21 23:49:05 -08:00
|
|
|
(add-hook 'ranger-mode-hook #'agw-ranger-mode)
|
2020-01-16 01:34:14 -08:00
|
|
|
|
|
|
|
|
;; EOF
|
