Browse Source

Update local modules

master
Nicolas Petton 3 years ago
parent
commit
638f4aac33
No known key found for this signature in database GPG Key ID: E8BCD7866AFCF978
4 changed files with 6 additions and 4 deletions
  1. +1
    -1
      lib/amd-mode
  2. +1
    -1
      lib/pass
  3. +2
    -0
      local/geoip.el
  4. +2
    -2
      local/workflow.el

+ 1
- 1
lib/amd-mode

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

+ 1
- 1
lib/pass

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

+ 2
- 0
local/geoip.el View File

@ -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")))


+ 2
- 2
local/workflow.el View File

@ -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


Loading…
Cancel
Save