Find file
Fetching contributors…
Cannot retrieve contributors at this time
164 lines (146 sloc) 5.62 KB
;;; elnode-lists.el - management tools for elnode
(require 'elnode)
(require 'tabulated-list)
(require 'noflet)
(require 'dash)
;;; Deferred queue list
(defun elnode-deferred-queue (arg)
"Message the length of the deferred queue."
(interactive "P")
(if (not arg)
"elnode deferred queue: %d %s"
(length elnode--deferred)
(setq elnode--deferred (list))
(message "elnode deferred queue reset!")))
(defun elnode--list-deferreds ()
"List the deferred servers."
;; TODO have the defer stuff put a better reference to the actual
;; handler onto the process?
;; we could have the mapper add the mapped function to the process as well?
;; into a list of mapped functions on this process?
(loop for (proc . deferred-closure) in elnode--deferred
(let ((pl (process-plist proc)))
(vector (apply 'format "%s:%S" (process-contact proc))
'format "%s.%s.%s.%s.:%s"
(mapcar 'identity (process-contact proc :local)))
(symbol-name (plist-get pl :elnode-http-handler))
(plist-get pl :elnode-http-resource))))))
elnode-deferred-list-mode tabulated-list-mode "Elnode defered queue list"
"Major mode for listing the currently deferred Elnode handlers."
(setq tabulated-list-entries 'elnode--list-deferreds)
(setq tabulated-list-format
[("Address" 15 nil)
("Local server" 15 nil)
("Handler function" 20 nil)
("Resource" 30 nil)])
(defun elnode-deferred-list (&optional prefix)
"List the currently deferred Elnode handlers."
(interactive "P")
(with-current-buffer (get-buffer-create "*elnode deferreds*")
(if prefix
(switch-to-buffer-other-window (current-buffer))
(switch-to-buffer (current-buffer)))))
(defalias 'list-elnode-deferreds 'elnode-deferred-list)
;;; Server list
(defun elnode--list-servers ()
"List the current Elnode servers for `elnode-list-mode'."
(noflet ((closurep (v)
(and (functionp v) (listp v) (eq (car v) 'closure))))
(lambda (pair)
(let ((port (car pair)) (socket-proc (cdr pair)))
(if (process-live-p socket-proc)
(let* ((fn (elnode/con-lookup socket-proc :elnode-http-handler))
(doc (when (functionp fn)
(documentation fn))))
(format "%s" port)
(if (rassoc fn elnode--make-webserver-store)
"elnode webserver"
;; Else it's not in the webserver list
((closurep fn) (format "%S" fn))
((byte-code-function-p fn) (format "byte-code"))
((and (listp fn)(eq (car fn) 'lambda)) (format "lambda"))
(t (symbol-name fn))))
(or (if (and doc (string-match "^\\([^\n]+\\)" doc))
(match-string 1 doc)
(if (rassoc fn elnode--make-webserver-store)
(car (rassoc fn elnode--make-webserver-store))
"no documentation."))))))
;; If the socket isn't live then take it out
(setq elnode-server-socket (delete pair elnode-server-socket))
(defun elnode-lists-server-find-handler ()
"Find the handler mentioned in the handler list."
(let ((line
(when (string-match "^[0-9]+ +\\([^ ]+\\) .*" line)
(let ((handler-name (intern (match-string 1 line))))
(or (symbol-file handler-name)
(error "no such file")))
(find-function handler-name))))))
(defun elnode-lists-kill-server ()
(goto-char (line-beginning-position))
(re-search-forward "^\\([^ ]+\\)" (line-end-position) t)
(let ((port (cond
((> (string-to-int (match-string 1)) 0)
(string-to-int (match-string 1)))
((file-exists-p (concat "/tmp/" (match-string 1)))
(match-string 1)))))
(when port
(elnode-stop port)
(let ((buffer-read-only nil))
elnode-list-mode tabulated-list-mode "Elnode server list"
"Major mode for listing Elnode servers currently running."
(setq tabulated-list-entries 'elnode--list-servers)
(define-key elnode-list-mode-map (kbd "\r")
(define-key elnode-list-mode-map (kbd "k")
(setq tabulated-list-format
[("Port" 10 nil)
("Handler function" 20 nil)
("Documentation" 80 nil)])
(defun elnode-server-list (&optional prefix)
"List the currently running Elnode servers."
(interactive "P")
(with-current-buffer (get-buffer-create "*elnode servers*")
(if prefix
(switch-to-buffer-other-window (current-buffer))
(switch-to-buffer (current-buffer)))))
(defalias 'list-elnode-servers 'elnode-server-list)
(provide 'elnode-list)
;;; enlode-list.el ends here