mirror of
https://codeberg.org/scip/dot-emacs.git
synced 2026-07-09 19:24:24 +02:00
34 lines
815 B
EmacsLisp
34 lines
815 B
EmacsLisp
;; maintain daemon.de hugo website
|
|
|
|
;; (require 'subr-x)
|
|
(setq daemon-de-site "~/dev/daemon.de")
|
|
|
|
(setq daemon-de-template "---
|
|
title: \"%s\"
|
|
draft: false
|
|
date: %s
|
|
tags:
|
|
- %s
|
|
---
|
|
|
|
|
|
")
|
|
|
|
(defun daemon-de-title2slug(title)
|
|
(interactive)
|
|
(concat
|
|
(format-time-string "%Y-%m-%d-")
|
|
(replace-regexp-in-string "[[:nonascii:]]" "" (replace-regexp-in-string " " "-" (downcase title)))
|
|
".md"))
|
|
|
|
(defun daemon-de-new-blogpost(title tag)
|
|
"Create a new blog posting for daemon.de"
|
|
(interactive "sEnter blog post title: \nsEnter a tag: ")
|
|
(find-file
|
|
(format "%s/content/posts/%s" daemon-de-site (daemon-de-title2slug title)))
|
|
(setq timestamp (format-time-string "%Y-%m-%dT%H:%M:%S+0100"))
|
|
(insert (format daemon-de-template title timestamp tag)))
|
|
|
|
(provide 'init-daemonde)
|
|
;;; init-daemonde.el ends here
|