TeMPOraL

(defvar my/file-server nil "Is the file server running? Holds an instance if so.")

(defalias 'my/send-directory-list 'ws-send-directory-list)

(defun my/ws-start (handlers port &optional log-buffer &rest network-args)
  "Like `ws-start', but unbroken for Emacs 25+."
  (let ((server (make-instance 'ws-server :handlers handlers :port port))
        (log (when log-buffer (get-buffer-create log-buffer))))
    (setf (process server)
          (apply

TeMPOraL

(defparameter *org-clock-current-task* "[N/A]")
(defparameter *dropbox-current-status* "[Dropbox current status here]")
;;; (...)
(defun current-dropbox ()
  ;; TODO colors
  (first-line-only (run-external-program "dropbox" '("status"))))

;;; mode line
(setf *mode-line-timeout* 1)