TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Remove bad stuff pushed from a previous commit

Browse source
This commit is contained in:
syl20bnr 2014-09-02 00:30:02 -04:00
parent 6be05d4465
commit a4521c6e3c
1 changed files with 0 additions and 113 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

113
extensions/rcirc-reconnect/rcirc-reconnect.el
View file

@ -1,113 +0,0 @@
;;;; Auto reconnect
;;;; Taken from http://www.emacswiki.org/emacs/rcircReconnect
(defun-rcirc-command reconnect (arg)
"Reconnect the server process."
(interactive "i")
(if (buffer-live-p rcirc-server-buffer)
(with-current-buffer rcirc-server-buffer
(let ((reconnect-buffer (current-buffer))
(server (or rcirc-server rcirc-default-server))
(port (if (boundp 'rcirc-port) rcirc-port rcirc-default-port))
(nick (or rcirc-nick rcirc-default-nick))
channels)
(dolist (buf (buffer-list))
(with-current-buffer buf
(when (equal reconnect-buffer rcirc-server-buffer)
(remove-hook 'change-major-mode-hook
'rcirc-change-major-mode-hook)
(let ((server-plist (cdr (assoc-string server rcirc-server-alist))))
(when server-plist
(setq channels (plist-get server-plist :channels))))
)))
(if process (delete-process process))
(rcirc-connect server port nick
nil
nil
channels)))))
;; the following minor mode does not work
;; ;;; Attempt reconnection at increasing intervals when a connection is
;; ;;; lost.
;; (defvar rcirc-reconnect-attempts 0)
;; ;;;###autoload
;; (define-minor-mode rcirc-reconnect-mode
;; nil
;; nil
;; " Auto-Reconnect"
;; nil
;; (if rcirc-reconnect-mode
;; (progn
;; (make-local-variable 'rcirc-reconnect-attempts)
;; (add-hook 'rcirc-sentinel-functions
;; 'rcirc-reconnect-schedule nil t))
;; (remove-hook 'rcirc-sentinel-functions
;; 'rcirc-reconnect-schedule t)))
;; ;; (if rcirc-reconnect-mode
;; ;; (add-hook 'rcirc-sentinel-functions 'sds-rcirc-sentinel)
;; ;; (remove-hook 'rcirc-sentinel-functions 'sds-rcirc-sentinel)))
;; (defun rcirc-reconnect-schedule (process &optional sentinel seconds)
;; (condition-case err
;; (when (and (eq 'closed (process-status process))
;; (buffer-live-p (process-buffer process)))
;; (with-rcirc-process-buffer process
;; (unless seconds
;; (setq seconds (exp (1+ rcirc-reconnect-attempts))))
;; (rcirc-print
;; process "my-rcirc.el" "ERROR" rcirc-target
;; (format "scheduling reconnection attempt in %s second(s)." seconds) t)
;; (run-with-timer
;; seconds
;; nil
;; 'rcirc-reconnect-perform-reconnect
;; process)))
;; (error
;; (rcirc-print process "RCIRC" "ERROR" nil
;; (format "%S" err) t))))
;; (defun rcirc-reconnect-perform-reconnect (process)
;; (when (and (eq 'closed (process-status process))
;; (buffer-live-p (process-buffer process))
;; )
;; (with-rcirc-process-buffer process
;; (when rcirc-reconnect-mode
;; (if (get-buffer-process (process-buffer process))
;; ;; user reconnected manually
;; (setq rcirc-reconnect-attempts 0)
;; (let ((msg (format "attempting reconnect to %s..."
;; (process-name process)
;; )))
;; (rcirc-print process "my-rcirc.el" "ERROR" rcirc-target
;; msg t))
;; ;; remove the prompt from buffers
;; (condition-case err
;; (progn
;; (save-window-excursion
;; (save-excursion
;; (rcirc-cmd-reconnect nil)))
;; (setq rcirc-reconnect-attempts 0))
;; ((quit error)
;; (incf rcirc-reconnect-attempts)
;; (rcirc-print process "my-rcirc.el" "ERROR" rcirc-target
;; (format "reconnection attempt failed: %s" err) t)
;; (rcirc-reconnect-schedule process))))))))
;; (defvar sds-rcirc-sentinel-last (current-time) "last reconnect attempt time")
;; (defun sds-rcirc-sentinel (process sentinel)
;; (let* ((now (current-time))
;; (delay (float-time (time-subtract (current-time)
;; sds-rcirc-sentinel-last))))
;; (message "%s sds-rcirc-sentinel: %s %s %s (last: %s, %s ago)"
;; (format-time-string "%F %R") process
;; (process-status process) sentinel
;; (format-time-string "%F %R" sds-rcirc-sentinel-last)
;; (sds-difftime-to-string delay))
;; (when (and (string= sentinel "deleted")
;; (< 60 delay)) ; do not try to reconnect more than once a minute
;; (setq sds-rcirc-sentinel-last now)
;; (rcirc-cmd-reconnect nil))))
(provide 'rcirc-reconnect)