lisp-project-of-the-day icon indicating copy to clipboard operation
lisp-project-of-the-day copied to clipboard

cl-org-mode

Open utterances-bot opened this issue 1 year ago • 8 comments

cl-org-mode

https://40ants.com/lisp-project-of-the-day/2020/03/0017-cl-org-mode.html

utterances-bot avatar Jun 18 '24 19:06 utterances-bot

Hai 40 ants :3

Did you ever end up finishing the spinneret HTML output from org-mode?? I know that there is an emacs web server https://github.com/Gopiandcode/emacs-viewer that can output org mode. But, the Code Pirate Queen https://muupi.com and Wooty the Whale are anticipating such a common lisp tool as one anticipates the solitary rick roll of web app hope while floundering in the depths of the digital ocean. Our users would LOVE to be able to weave from their web-app their work with org-mode to their Muupi stamp template.

OzarSariya avatar Jun 18 '24 19:06 OzarSariya

@OzarSariya not sure if I understand your correctly, but Lisp Project of the Day builds it's own site from Org Mode files.

But it uses cl-who instead of Spinneret:

(defmacro app-page ((stream &key title index-uri (site-title "Lisp Project of the Day")) &body body)
  `(let ((*index-uri* ,index-uri))
     (cl-who:with-html-output (*standard-output* ,stream :prologue t :indent t)
       (:html :lang "en"
         (:head
          (:meta :charset "utf-8")
          ,@(when title
              `((:title (cl-who:esc ,title))))
          (:link :rel "alternate"
                 :href "https://40ants.com/lisp-project-of-the-day/rss.xml"
                 :type "application/rss+xml")
          (:meta :name "viewport"
                 :content "width=device-width, initial-scale=1")
          *google-code*
          *yandex-metrika-code*
          (:link
           :type "text/css"
           :rel "stylesheet"
           :href  ,cl-bootstrap:*bootstrap-css-url*)
          (:script :src ,cl-bootstrap:*jquery-url*)
          (:script :src ,cl-bootstrap:*bootstrap-js-url*)
          (:link :rel "stylesheet"
                 :href "../../highlight/styles/tomorrow-night.css")
          (:script :src "../../highlight/highlight.pack.js")
          (:script "hljs.initHighlightingOnLoad() ;")
          (:style "

You will find the full code in the https://github.com/40ants/lisp-project-of-the-day/blob/master/readme.org which is written in literate programming style.

svetlyak40wt avatar Jun 18 '24 21:06 svetlyak40wt

Thank you Alexander, all your posts are inspiring and instructive.

I am a big fan of 40ants' projects. It will be interesting to compare a static site generator using spinneret vs cl-who.

PS: Thank you also for your videos. Kudos!

lispstudent avatar Jun 19 '24 03:06 lispstudent

Talking about site generators, take a look at my recent project (if you didn't see it yet): https://40ants.com/staticl/ it is an alternative to Coleslaw. Right now it uses the same templating engine as Coleslaw, but StatiCL is pluggable and I'm planning to add a Spinneret based themes.

svetlyak40wt avatar Jun 19 '24 09:06 svetlyak40wt

Talking about site generators, take a look at my recent project (if you didn't see it yet): https://40ants.com/staticl/

I didn't know, thank you!

lispstudent avatar Jun 19 '24 09:06 lispstudent

@OzarSariya not sure if I understand your correctly, but Lisp Project of the Day builds it's own site from Org Mode files.

But it uses cl-who instead of Spinneret:

(defmacro app-page ((stream &key title index-uri (site-title "Lisp Project of the Day")) &body body)
  `(let ((*index-uri* ,index-uri))
     (cl-who:with-html-output (*standard-output* ,stream :prologue t :indent t)
       (:html :lang "en"
         (:head
          (:meta :charset "utf-8")
          ,@(when title
              `((:title (cl-who:esc ,title))))
          (:link :rel "alternate"
                 :href "https://40ants.com/lisp-project-of-the-day/rss.xml"
                 :type "application/rss+xml")
          (:meta :name "viewport"
                 :content "width=device-width, initial-scale=1")
          *google-code*
          *yandex-metrika-code*
          (:link
           :type "text/css"
           :rel "stylesheet"
           :href  ,cl-bootstrap:*bootstrap-css-url*)
          (:script :src ,cl-bootstrap:*jquery-url*)
          (:script :src ,cl-bootstrap:*bootstrap-js-url*)
          (:link :rel "stylesheet"
                 :href "../../highlight/styles/tomorrow-night.css")
          (:script :src "../../highlight/highlight.pack.js")
          (:script "hljs.initHighlightingOnLoad() ;")
          (:style "

You will find the full code in the https://github.com/40ants/lisp-project-of-the-day/blob/master/readme.org which is written in literate programming style.

Startup desperately needs more hands on deck than just me to roll out all these features. Can you please give me your contact? Do you already have a full time job? If anyone else is interested reply to me also, I don't use linkedin facebook etc probably need to lmao. Need to move quick please like 24 hours tell me your requirements and we will try to make it happen ASAP. Protestlaus would be awesome too need to contact him. Could message me on IRC but I Haven't even had time to reconfigure my circe

OzarSariya avatar Jul 20 '24 12:07 OzarSariya

@OzarSariya I have a full-time job and my opensource projects don't leave any spare time to work on other side-projects.

svetlyak40wt avatar Jul 20 '24 19:07 svetlyak40wt

@OzarSariya I have a full-time job and my opensource projects don't leave any spare time to work on other side-projects.

Okay but I need to get some people for this ASAP do you have some suggestion I will try on liberachat

OzarSariya avatar Jul 21 '24 01:07 OzarSariya