Update local modules

lib/amd-mode

@@ -1 +1 @@
-Subproject commit 11e27444692bbf0eb38ec28af6bd041618c5c091
+Subproject commit 01fd19e0d635ccaf8e812364d8720733f2e84126

lib/pass

@@ -1 +1 @@
-Subproject commit 0f4ff034fb31b18f387e67f1de4029826db6cd0b
+Subproject commit 855e89446676f03065ed01e4a5c8dfba5eca3610

local/geoip.el

@@ -26,6 +26,7 @@
 
 (require 'json)
 
+;;;###autoload
 (defun geoip (ip)
   "Lookup the location of IP.
 If IP is an empty string, lookup the location of the public IP of
@@ -40,6 +41,7 @@ the host."
     (json-pretty-print-buffer)
     (read-only-mode)))
 
+;;;###autoload
 (defun myip ()
   (interactive)
   (let ((ip (shell-command-to-string "dig +short myip.opendns.com @resolver1.opendns.com")))

local/workflow.el

@@ -152,11 +152,11 @@ Use CHANNEL if non-nil of the general channel if nil."
 
 (defun mount-backup-disk ()
   (interactive)
-  (shell-command-to-string "mount-backup.sh"))
+  (start-process-shell-command "mount-backup.sh" nil "mount-backup.sh"))
 
 (defun umount-backup-disk ()
   (interactive)
-  (shell-command-to-string "umount-backup.sh"))
+  (start-process-shell-command "umount-backup.sh" nil "umount-backup.sh"))
 
 ;;; Send emails as recurring tasks