From 52aaea092b90b5f6ad336cedbd442d5d30b86338 Mon Sep 17 00:00:00 2001 From: John Doe Date: Thu, 12 Oct 2017 12:45:35 +0530 Subject: [PATCH] tali's proc-queue --- contrapunctus/proc-queue.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 contrapunctus/proc-queue.el diff --git a/contrapunctus/proc-queue.el b/contrapunctus/proc-queue.el new file mode 100644 index 0000000..27e5985 --- /dev/null +++ b/contrapunctus/proc-queue.el @@ -0,0 +1,19 @@ +(defvar fake-processes nil) +(defvar fake-queue nil) +(setq fake-processor + (run-with-timer 5 5 (lambda () + (when fake-processes + (message "Fake-Processes: %S, Fake-Queue: %S" fake-processes fake-queue) + (setf fake-processes (cdr fake-processes)))))) + +(defun fake-process-queue () + (when fake-queue + (when (< (length fake-processes) 3) + (setf fake-processes (cons (car fake-queue) + fake-processes)) + (setf fake-queue (cdr fake-queue))) + (run-with-timer 3 nil 'fake-process-queue))) + +(setq fake-queue (number-sequence 1 10)) + +(fake-process-queue)