hiro/emacs-jupyter
1
0
Fork 0
mirror of https://github.com/vale981/emacs-jupyter synced 2025-03-06 16:01:37 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove jupyter-io-lambda, jupyter-subscriber

Browse source
This commit is contained in:
Nathaniel Nicandro 2020-05-12 07:04:41 -05:00
parent 3af33b7736
commit 9800626d8e
1 changed files with 0 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
jupyter-monads.el
View file

@ -150,29 +150,6 @@ context."
;; when called, takes you into the event monad. The lambda being ;; when called, takes you into the event monad. The lambda being
;; returned represents the lifting of an IO value into the event ;; returned represents the lifting of an IO value into the event
;; monad. ;; monad.
;;
;; TODO: Ensure that spec has the right form
;; Sendable and subscribable
(defmacro jupyter-subscriber (spec &rest cases)
(declare (indent 1))
;; Since a subscriber cannot be subscribed to, it is just a function
;; that handles events other than 'subscribe.
;;
;; NOTE: A subscriber ignores events it cannot handle.
`(lambda (&rest ,args)
(cl-destructuring-bind ,spec (cdr ,args)
(pcase (car ,args)
('subscribe (error "Cannot subscribe to a subscriber"))
,@cases))))
(defmacro jupyter-io-lambda (spec &rest cases)
(declare (indent 1))
`(lambda (&rest ,args)
(cl-destructuring-bind ,spec (cdr ,args)
(pcase (car ,args)
,@cases
(_ (error "Unhandled I/O: %s" args))))))
(defun jupyter-publish-to-subscribers (subs args) (defun jupyter-publish-to-subscribers (subs args)
(delq nil (delq nil
(mapcar (mapcar