Emacsで個人サイト制作

(define (factorial n)
  (if (<= n 0)
      1
      (* n (factorial (- n 1)))))

(global-set-key (kbd "C-c c") 'org-capture)

(setq org-capture-templates
      `(("w" "新しい記事" entry (file "~/www/posts.org")
         "* %^{TITLE}
:PROPERTIES:
:FILENAME: %^{ID}
:PUBDATE: %^T
:DESCRIPTION: %^{DESCRIPTION}
:END:

%?"
         :prepend t
         :jump-to-captured t)))

;; 簡単に html-escape する
(defun html-escape (str)
  (let* ((str (string-replace "&" "&" str))
         (str (string-replace "<" "&lt;" str))
         (str (string-replace ">" "&gt;" str))
         (str (string-replace "\"" "&quot;" str)))
    str))

(defun find-index-file ()
  (let ((description "私の Web サイト &&& デモ &&&"))
    (cond ((not (file-exists-p *path*))
           ;; 初回は index.org の最初の部分を作成する
           (find-file *path*)
           (insert "#+TITLE: 私のWebサイト!\n"
                   "#+HTML_HEAD: <meta name=\"viewport\" content=\"width=device-width, initial-scale=1\"/>\n"
                   "#+HTML_HEAD: <link rel=\"stylesheet\" href=\"/static/css/base.css\"/>\n"
                   "#+OPTIONS: email:nil num:nil toc:nil\n")
           (insert (format "#+DESCRIPTION: %s\n" (html-escape description))))
          (t (find-file *path*)))))

;; 時刻から日付を取り出す
(defun strip-time (pubdate)
  (concat (substring pubdate 0 -7)">"))

(defvar *path* "./index.org")

;; posts.org を開く
(find-file "posts.org")

(let ((pt nil))         ; pt はカーソルの位置を記録しておくための変数
  ;; ファイルの最小の heading までカーソルを移動
  (org-next-visible-heading 1)
  ;; pt とカーソルの位置が同じになるまで繰り返す
  ;; 等しい場合は最後まで進んだということで処理終了
  (while (not (equal pt (point)))
    ;; いまのカーソルの位置を覚えておく
    (setq pt (point))
    (let ((link ; posts 下のファイルへのリンク
           (concat "./posts/"
                   (org-element-property :FILENAME (org-element-at-point))
                   ".org"))

          (title (org-get-heading t)) ; h1 をタイトルとする
          (pubdate (org-element-property :PUBDATE (org-element-at-point))) ; 公開日を取得
          (description (org-element-property :DESCRIPTION (org-element-at-point))) ; 詳細を取得
          )

      ;; index.org ファイルを開く
      (find-index-file)

      ;; index.org に書き込む
      (insert (format "* [[%s][%s]]\n" link title))
      (insert "#+HTML: <div class=\"info\">\n")
      (insert (format "#+HTML: <div><span class=\"date\">%s</span></div>\n"
                      (html-escape (strip-time pubdate))))
      (insert "#+HTML: </div>\n")
      (insert "\n")
      (insert description)
      (insert "\n")
      (save-buffer)

      ;; 元の場所に戻る
      (find-file "posts.org")
      (goto-char pt))
    ;; 次の h1 に移動する
    ;; 最後の場合は移動できないので動かない
    (org-forward-heading-same-level 1)))

emacs --batch -l generate-index.el 

(find-file "posts.org")

;; html-escape する
(defun html-escape (str)
  (let* ((str (string-replace "&" "&" str))
         (str (string-replace "<" "&lt;" str))
         (str (string-replace ">" "&gt;" str))
         (str (string-replace "\"" "&quot;" str)))
    str))

;; posts ディレクトリを作成
(make-directory "./posts")

;; posts.org を開く
(let ((pt nil))          ; pt はカーソルの位置を記録しておくための変数
  ;; ファイルの最小の heading までカーソルを移動
  (org-next-visible-heading 1)
  ;; pt とカーソルの位置が同じになるまで繰り返す
  ;; 等しい場合は最後まで進んだということで処理終了
  (while (not (equal pt (point)))
    ;; いまのカーソルの位置を覚えておく
    (setq pt (point))
    (let ((title (org-get-heading t))
          (link ; posts 下のファイルへのリンク
           (concat "./posts/"
                   (org-element-property :FILENAME (org-element-at-point))
                   ".org"))
          (pubdate (org-element-property :PUBDATE (org-element-at-point)))
          (description (org-element-property :DESCRIPTION (org-element-at-point))))
      (when (file-exists-p link)
        (princ "エラー: 同じパスの記事が存在します")
        (exit 1))

      ;; 現在位置の記事全体をコピー
      (org-copy-subtree)

      ;; 記事ファイルを開く
      (find-file link)
      ;; タイルトルを挿入
      (insert (format "#+TITLE: %s\n" title))
      ;; 記事の公開日を設定
      (insert (format "#+DATE: %s\n" pubdate))
      ;; ある場合は DESCRIPTION を設定
      (when description
        (insert (format "#+DESCRIPTION: %s\n" description)))

      ;; ここで記事全体をペースト
      (yank)

      ;; ファイルの一番上に戻る
      (goto-char (point-min))
      ;; 最初の h1 に移動する
      (org-next-visible-heading 1)
      ;; プロパティ部分を削除する
      (let ((begin (car (org-get-property-block)))
            (end (cdr (org-get-property-block))))
        (kill-region begin end))
      ;; またファイルの最初に戻る
      (goto-char (point-min))
      ;; 最初のヘッダーに移動する
      (org-next-visible-heading 1)
      ;; タイトルのヘッダは不要なので削除する
      ;; :PROPETY: と :END の行も消すから3行消す必要あり
      (kill-line 3)

      ;; 投稿日を挿入
      (insert (format "#+HTML: <div class=\"publish-date-wrap\"><div class=\"publish-date\">投稿日: %s</div></div>\n"
                      (html-escape
                       (substring pubdate
                                  1
                                  (- (length pubdate) (length pubdate) 7)))))

      ;; 1段階無駄に深くなっているので、
      ;; 1段階だけ浅くする
      (goto-char (point-min))
      (let ((pt2 (point)))
        (while (not (org-next-visible-heading 1))
          (org-promote)))

      ;; 保存
      (save-buffer)

      ;; 元の位置に戻る
      (find-file "../posts.org")
      (goto-char pt))
    (org-forward-heading-same-level 1)))

emacs --batch -l generate-posts.el 

#+TITLE: 記事1
#+DATE: <2024-12-21 Fri 00:00>
#+DESCRIPTION: ひとつめの記事です
#+HTML: <div class="publish-date-wrap"><div class="publish-date">投稿日: 2024-12-21 Fri</div></div>

* はじめに

この記事は1つめです

* おわりに

1つめの記事でした

emacs --batch -l generate-index.el 
emacs --batch -l generate-posts.el 
emacs --batch -l publish.el -f publish-www