36 lines
1008 B
EmacsLisp
36 lines
1008 B
EmacsLisp
(defun agw-touch (fname)
|
|
"Touches a file asynchronously."
|
|
(interactive "FFile to touch: ")
|
|
(start-process "agw-touch" nil "touch" (expand-file-name fname)))
|
|
|
|
(defun agw-lisp-mode ()
|
|
"Sets up lisp and other functional language major modes."
|
|
(setq-local indent-tabs-mode nil)
|
|
(setq-local standard-indent 2)
|
|
(setq-local tab-width 2))
|
|
|
|
(defun agw-org-mode ()
|
|
"Sets up `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-dired-mode ()
|
|
"Sets up `dired-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 'dired-mode-hook #'agw-dired-mode)
|
|
|
|
;; EOF
|