testing a new system

This commit is contained in:
jjanzen 2025-04-01 12:42:12 -05:00
parent 3472ce77b7
commit 288ac4b17a

View file

@ -12,8 +12,6 @@
(use-package org
:ensure org-plus-contrib)
(use-package ox-rss
:after org)
(use-package htmlize
:after org)
(use-package yaml-mode)
@ -21,7 +19,6 @@
(use-package plz)
(require 'org)
(require 'ox-html)
(require 'plz)
(defun my/org-publish-org-sitemap-format (entry style project)
@ -44,28 +41,23 @@
(defun format-posts-rss-feed-entry (entry _style project)
(let* (
(title (org-publish-find-title entry project))
(link (concat (file-name-sans-extension entry) ".html"))
(file (org-publish--expand-file-name entry project))
(pubdate (format-time-string (car org-time-stamp-formats)
(org-publish-find-date entry project))))
(message pubdate)
(format "%s
:properties:
:rss_permalink: blog/%s
:pubdate: %s
:author: jjanzen
:end:\n%s"
title
link
:PROPERTIES:
:RSS: t
:DATE: %s
:AUTHOR: jjanzen
:LINK: %s
:END:\n%s"
pubdate
link
(get-file-contents file))))
(defun publish-posts-rss-feed (plist filename dir)
(if (equal "rss.org" (file-name-nondirectory filename))
(progn
(message "publishing %s with plist %s and dir %s" filename plist dir)
(org-rss-publish-to-rss plist filename dir))))
(defun publish-posts-rss-feed (plist filename dir))
(defvar jj/html-head "\
<link rel='stylesheet' href='/css/stylesheet.css' type='text/css'/>\