Refresh browser on M-r in (sass|web)-mode

modules/lib/defuns-web.el

@@ -14,5 +14,10 @@
                   "<a href=\"\\1\">\\1</a>"
                   nil beg end))
 
+;;;###autoload
+(defun narf/web-refresh-browser ()
+  (interactive)
+  (call-process-shell-command "osascript -e 'tell application \"Google Chrome\" to tell the active tab of its first window to reload' &" nil 0))
+
 (provide 'defuns-web)
 ;;; defuns-web.el ends here

modules/module-sass.el

@@ -14,6 +14,7 @@
   (setq scss-compile-at-save nil)
   :config
   (bind! :map scss-mode-map
+         :n "M-r" 'narf/web-refresh-browser
          :n ",;" 'helm-css-scss
          :n ",:" 'helm-css-scss-multi)
 

modules/module-web.el

@@ -50,7 +50,7 @@
          :n  "za" 'web-mode-fold-or-unfold
          :n  ",t" 'web-mode-element-rename
 
-         :n  "M-r" (λ (call-process-shell-command "osascript -e 'tell application \"Google Chrome\" to tell the active tab of its first window to reload' &" nil 0))
+         :n  "M-r" 'narf/web-refresh-browser
 
          :nv "]a" 'web-mode-attribute-next
          :nv "[a" 'web-mode-attribute-previous