screwlisp on Nostr: npub17rwq9…92p8j last week I tried something a bit crazy to get a "cell editor" for ...
npub17rwq9g7ptr4wj3r5cl3v4ys8629gw4pele8fn53a7hd679j3w0mqm92p8j (npub17rw…2p8j) last week I tried something a bit crazy to get a "cell editor" for lisp code instead of a generic text editor, but I can't really call it a success:
#+name: tableout
#+begin_src lisp :var input=hello-world :var check='() :results output
(let* ((string (format nil "~{(~{~a~^ ~})~%~}" input)))
(with-input-from-string (*standard-input* string)
(let ((read (read)))
(if check
(princ read)
(princ (eval read))))))
#+end_src
draw your own conclusions
Published at
2023-12-09 21:57:51Event JSON
{
"id": "de32fe9f008cd0b949cb6002deabd9b77e6b3fa68c4a9fe4ba7290bd1b2f8808",
"pubkey": "9e9c58006890e3e31e306e20518f236965f1d8ee97640175d74afb88769a7c4d",
"created_at": 1702159071,
"kind": 1,
"tags": [
[
"p",
"f0dc02a3c158eae94474c7e2ca9207d28a875439fe4e99d23df5dbaf165173f6",
"wss://relay.mostr.pub"
],
[
"p",
"b9f04778bc95b876e5294ebd94550ebcc30870a880e2f36cd1625fc36939cee1",
"wss://relay.mostr.pub"
],
[
"e",
"8bc4e97d0249ed5267dddc20e1c66bc32ff302ce78f4a80d94417cc209fd84cc",
"wss://relay.mostr.pub",
"reply"
],
[
"proxy",
"https://mastodon.sdf.org/users/screwtape/statuses/111552696914557008",
"activitypub"
]
],
"content": "nostr:npub17rwq9g7ptr4wj3r5cl3v4ys8629gw4pele8fn53a7hd679j3w0mqm92p8j last week I tried something a bit crazy to get a \"cell editor\" for lisp code instead of a generic text editor, but I can't really call it a success:\n#+name: tableout\n#+begin_src lisp :var input=hello-world :var check='() :results output\n (let* ((string (format nil \"~{(~{~a~^ ~})~%~}\" input)))\n (with-input-from-string (*standard-input* string)\n (let ((read (read)))\n\t(if check\n\t (princ read)\n\t (princ (eval read))))))\n#+end_src\ndraw your own conclusions",
"sig": "41b7b78c79d3a012483613b94a063f6125d4b23fe91c3ec6956036e9c5ee65475f68d559d4612327ab3f4d82913dc1816f362af6939dce91438ae64b9e6da0ee"
}