mirror of
https://github.com/SqrtMinusOne/sqrtminusone.github.io.git
synced 2025-12-10 15:53:03 +03:00
131 lines
4.4 KiB
EmacsLisp
131 lines
4.4 KiB
EmacsLisp
;; -*- lexical-binding: t; -*-
|
|
(require 'package)
|
|
(require 'vc)
|
|
(require 'files)
|
|
|
|
(setq package-user-dir (expand-file-name "./.packages"))
|
|
|
|
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
|
|
("elpa" . "https://elpa.gnu.org/packages/")))
|
|
|
|
;; Initialize the package system
|
|
(package-initialize)
|
|
(unless package-archive-contents
|
|
(package-refresh-contents))
|
|
|
|
(unless (package-installed-p 'use-package)
|
|
(package-install 'use-package))
|
|
(require 'use-package)
|
|
|
|
;; Org Hugo
|
|
|
|
(defvar-local my/org-hugo-heading-slugs nil)
|
|
|
|
(defun my/increase-slug (string)
|
|
(if (string-match (rx "-" (1+ num) eos) string)
|
|
(replace-match
|
|
(concat
|
|
"-"
|
|
(thread-first
|
|
(match-string 0 string)
|
|
(substring 1)
|
|
(string-to-number)
|
|
(+ 1)
|
|
(number-to-string)))
|
|
t t string)
|
|
(concat string "-" "1")))
|
|
|
|
(defun my/org-hugo-get-heading-slug (element info)
|
|
(let* ((title (org-export-data-with-backend
|
|
(org-element-property :title element) 'md info))
|
|
(slug (org-string-nw-p (org-hugo-slug title :allow-double-hyphens))))
|
|
(unless my/org-hugo-heading-slugs
|
|
(setq my/org-hugo-heading-slugs (make-hash-table :test 'equal)))
|
|
(unless (or (null slug) (string-empty-p slug))
|
|
(while (gethash slug my/org-hugo-heading-slugs)
|
|
(setq slug (my/increase-slug slug)))
|
|
(puthash slug t my/org-hugo-heading-slugs))
|
|
slug))
|
|
|
|
(use-package ox-hugo
|
|
:ensure t
|
|
:config
|
|
(setq org-hugo-anchor-functions '(org-hugo-get-page-or-bundle-name
|
|
org-hugo-get-custom-id
|
|
my/org-hugo-get-heading-slug
|
|
org-hugo-get-md5))
|
|
(setq org-hugo-base-dir (vc-find-root default-directory ".git")))
|
|
|
|
;; Org Make TOC
|
|
|
|
(use-package org-make-toc
|
|
:ensure t
|
|
:config
|
|
(setq org-make-toc-link-type-fn #'org-make-toc--link-entry-org))
|
|
|
|
|
|
;; Export dotfiles
|
|
|
|
(setq my/config-files
|
|
'("README.org" "Emacs.org" "Desktop.org" "Console.org" "Mail.org" "Guix.org"))
|
|
|
|
(defun my/export-dotfiles ()
|
|
(cd (concat (vc-find-root default-directory ".git") "org/configs"))
|
|
(dolist (file my/config-files)
|
|
(copy-file (expand-file-name
|
|
(format "%s/repos/dotfiles/%s"
|
|
(vc-find-root default-directory ".git")
|
|
file))
|
|
file 'overwrite))
|
|
(copy-directory
|
|
(expand-file-name
|
|
(format "%s/repos/dotfiles/dot-imgs/"
|
|
(vc-find-root default-directory ".git")))
|
|
"dot-imgs" t t)
|
|
(dolist (file my/config-files)
|
|
(with-temp-buffer
|
|
(let ((org-mode-hook nil) (text-mode-hook nil))
|
|
(org-mode))
|
|
(insert-file-contents file)
|
|
(unless (string-equal file "README.org")
|
|
(org-make-toc))
|
|
(replace-string "conf-space" "vim" t (point-min) (point-max))
|
|
(replace-string "conf-unix" "ini" t (point-min) (point-max))
|
|
(replace-string "conf-windows" "ini" t (point-min) (point-max))
|
|
(replace-string "conf-xdefaults" "vim" t (point-min) (point-max))
|
|
(replace-string "conf-toml" "toml" t (point-min) (point-max))
|
|
(replace-string ":noweb yes" ":noweb no-export" nil (point-min) (point-max))
|
|
(setq-local buffer-file-name file)
|
|
(message "Publish %s" file)
|
|
(let ((org-hugo-section "configs")
|
|
(org-mode-hook nil)
|
|
(text-mode-hook nil))
|
|
(org-hugo-export-to-md)))))
|
|
|
|
;; Export packages
|
|
(setq my/emacs-packages
|
|
'("lyrics-fetcher"))
|
|
|
|
(defun my/export-packages ()
|
|
(cd (concat (vc-find-root default-directory ".git") "org/packages"))
|
|
(let ((root (vc-find-root default-directory ".git")))
|
|
(dolist (package my/emacs-packages)
|
|
(copy-file
|
|
(expand-file-name
|
|
(format "%s/repos/%s/README.org" root package))
|
|
(format "./%s.org" package) 'overwrite)
|
|
(when (file-directory-p (format "%s/repos/%s/img" root package))
|
|
(copy-directory
|
|
(expand-file-name
|
|
(format "%s/repos/%s/img" root package))
|
|
(format "./static/%s-img" package) t t))
|
|
(with-temp-buffer
|
|
(insert-file-contents (format "./%s.org" package))
|
|
(replace-string
|
|
"./img/" (format "./static/%s-img/" package) nil (point-min) (point-max))
|
|
(setq-local buffer-file-name (format "./%s.org" package))
|
|
(message "Publish %s" package)
|
|
(let ((org-hugo-section "packages")
|
|
(org-mode-hook nil)
|
|
(text-mode-hook nil))
|
|
(org-hugo-export-to-md))))))
|