Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

cl-org-mode #48

Open
utterances-bot opened this issue Jun 18, 2024 · 8 comments
Open

cl-org-mode #48

utterances-bot opened this issue Jun 18, 2024 · 8 comments

Comments

@utterances-bot
Copy link

cl-org-mode

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

Copy link

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.

@svetlyak40wt
Copy link
Member

@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.

Copy link

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!

@svetlyak40wt
Copy link
Member

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.

@lispstudent
Copy link

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!

@OzarSariya
Copy link

OzarSariya commented Jul 20, 2024

@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

@svetlyak40wt
Copy link
Member

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

@OzarSariya
Copy link

@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

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

4 participants