diff options
author | jao <jao@gnu.org> | 2021-01-11 20:57:56 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2021-01-11 20:57:56 +0000 |
commit | 566935a0e14bf5538467fd8ec69788e558c96278 (patch) | |
tree | c7ca75e7d39e8e44c7b258c032ae7ad6ef3994d2 /eos/sys/jao-osd.el | |
parent | c9218804220c496d0c841eecaa0c8b6a92146880 (diff) | |
download | elibs-566935a0e14bf5538467fd8ec69788e558c96278.tar.gz elibs-566935a0e14bf5538467fd8ec69788e558c96278.tar.bz2 |
oops
Diffstat (limited to 'eos/sys/jao-osd.el')
-rw-r--r-- | eos/sys/jao-osd.el | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/eos/sys/jao-osd.el b/eos/sys/jao-osd.el deleted file mode 100644 index acdc629..0000000 --- a/eos/sys/jao-osd.el +++ /dev/null @@ -1,55 +0,0 @@ -;; candy -(defvar jao-osd-cat-color-fg "black") -(defvar jao-osd-cat-color-bg "white") -(defvar jao-osd-cat-font "Andika Basic 16") -;; (setq jao-osd-cat-font "Inconsolata 20") -(defun jao-osd-cat-font (&optional font) - (or font jao-osd-cat-font)) - -(defun jao-osd-process-args (&optional font fg bg) - `("-n" ,(jao-osd-cat-font font) - "-R" ,(or bg jao-osd-cat-color-fg) "-B" ,(or fg jao-osd-cat-color-bg) - "-b" "200" "-r" "255" - "-e" "0" "-t" "2" "-d" "10" "-p" "0" "-x" "10" "-y" "10" "-u" "5000")) - -(setq jao-osd-processes (make-hash-table)) - -(defsubst jao-osd--delete-process (name) - (remhash name jao-osd-processes)) - -(defun jao-osd-process (name &optional font color) - (let ((proc (gethash name jao-osd-processes))) - (or (and proc (eq (process-status proc) 'run) proc) - (puthash name - (apply 'start-process - `("notifications" - ,(format "*notifications/%s*" name) - "aosd_cat" - ,@(jao-osd-process-args))) - jao-osd-processes)))) - -(defun jao-osd-cat (name lines) - (let* ((proc (jao-osd-process name)) - (lines (if (listp lines) lines (list lines))) - (trail (- 5 (length lines)))) - (when proc - (dolist (line lines) - (send-string proc (format "%s\n" line)))))) - ; (when (> trail 0) (send-string proc (make-string trail ?\n)))))) - -(defun jao-osd--names () - (let (names) - (maphash (lambda (n k) (push n names)) jao-osd-processes) - (reverse names))) - -(defun jao-osd-kill (name) - (let ((proc (gethash name jao-osd-processes))) - (when (processp proc) - (kill-process proc)))) - -(defun jao-osd-kill-notifiers () - (interactive) - (maphash (lambda (n p) (ignore-errors (kill-process p))) jao-osd-processes) - (clrhash jao-osd-processes)) - -(provide 'jao-osd) |