diff --git a/emacs/auto/-macro.el b/emacs/auto/-macro.el
index 60cf195..17effb8 100644
--- a/emacs/auto/-macro.el
+++ b/emacs/auto/-macro.el
@@ -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 ()
   (setq-local indent-tabs-mode nil)
   (setq-local standard-indent  2)
@@ -9,6 +13,9 @@
   (flyspell-mode)
   (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 'emacs-lisp-mode-hook #'agw-lisp-mode)
@@ -16,5 +23,6 @@
 (add-hook 'reb-lisp-mode-hook   #'agw-lisp-mode)
 (add-hook 'scheme-mode-hook     #'agw-lisp-mode)
 
+(add-hook 'ranger-mode-hook #'agw-ranger-mode)
 
 ;; EOF