emacs: add C-c t for ranger-mode

emacs/auto/-keys.el

@@ -9,23 +9,23 @@
 (defun agw-set-key (key def)
   (define-key agw-mode-map (kbd (concat "C-<tab> " key)) def))
 
-(agw-set-key "b d" 'kill-this-buffer)
-(agw-set-key "b e" 'ibuffer)
+(agw-set-key "b d" #'kill-this-buffer)
+(agw-set-key "b e" #'ibuffer)
 
-(agw-set-key "f" 'dired)
+(agw-set-key "f" #'dired)
 
-(agw-set-key "w" 'deadgrep)
+(agw-set-key "w" #'deadgrep)
 
-(agw-set-key "h" 'windmove-left)
-(agw-set-key "j" 'windmove-down)
-(agw-set-key "k" 'windmove-up)
-(agw-set-key "l" 'windmove-right)
+(agw-set-key "h" #'windmove-left)
+(agw-set-key "j" #'windmove-down)
+(agw-set-key "k" #'windmove-up)
+(agw-set-key "l" #'windmove-right)
 
-(agw-set-key "s" 'sort-lines)
+(agw-set-key "s" #'sort-lines)
 
 (agw-key-map)
 
 ; just in case - bind for disabling key map mode
-(global-set-key (kbd "C-x C-<tab>") 'agw-key-map)
+(global-set-key (kbd "C-x C-<tab>") #'agw-key-map)
 
 ;; EOF

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,11 +13,16 @@
   (flyspell-mode)
   (setq-local indent-tabs-mode nil))
 
-(add-hook 'org-mode-hook 'agw-org-mode)
+(defun agw-ranger-mode ()
+  (local-set-key (kbd "C-c t") #'agw-touch))
 
-(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 '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 'ranger-mode-hook #'agw-ranger-mode)
 
 ;; EOF

emacs/auto/-packages.el

@@ -30,6 +30,5 @@
  'rust)
 
 (require 'ranger)
-(ranger-override-dired-mode t)
 
 ;; EOF

emacs/custom.el

@@ -61,6 +61,7 @@
    (quote
     (flyspell-prog-mode prettify-symbols-mode subword-mode rainbow-delimiters-mode whitespace-mode)))
  '(rainbow-delimiters-max-face-count 8)
+ '(ranger-override-dired t)
  '(repeat-too-dangerous nil)
  '(require-final-newline t)
  '(ruby-insert-encoding-magic-comment nil)