zzkt/quiet
1
0
Fork 0
Code Issues Pull requests Projects Releases Activity

autoloads

Browse source
This commit is contained in:
nik gaffney 2016-05-08 14:56:16 +02:00
parent 54d4a9c9ca
commit 6f20309f99
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
quiet.el
View file

@ -45,7 +45,6 @@
;; ;;
;;; Code: ;;; Code:
(provide 'quiet)
(defcustom quiet-disconnect "networksetup -setairportpower airport off" (defcustom quiet-disconnect "networksetup -setairportpower airport off"
"Shell command to turn off network connection(s)" "Shell command to turn off network connection(s)"
@ -64,7 +63,7 @@
:type 'integer :type 'integer
:group 'quiet) :group 'quiet)
;; M-x quiet ;;;###autoload
(defun quiet () (defun quiet ()
"quieten network distractions for a while..." "quieten network distractions for a while..."
(interactive) (interactive)
@ -75,10 +74,13 @@
(progn (progn
(run-at-time (* quiet-timer 60) nil 'quiet-reconnect)))) (run-at-time (* quiet-timer 60) nil 'quiet-reconnect))))
;;;###autoload
(defun quiet-reconnect () (defun quiet-reconnect ()
(interactive) (interactive)
(save-window-excursion (save-window-excursion
(message "reconnecting after ~%d %s" quiet-timer (if (= quiet-timer 1) "minute" "minutes")) (message "reconnecting after ~%d %s" quiet-timer (if (= quiet-timer 1) "minute" "minutes"))
(async-shell-command quiet-connect))) (async-shell-command quiet-connect)))
(provide 'quiet)
;;; quiet.el ends here ;;; quiet.el ends here