mirror of
https://codeberg.org/scip/dot-emacs.git
synced 2025-12-17 04:20:57 +01:00
50 lines
1.2 KiB
EmacsLisp
50 lines
1.2 KiB
EmacsLisp
|
;; maintain daemon.de jekyll website
|
||
|
|
|
||
|
|
;; (require 'subr-x)
|
||
|
|
(setq daemon-de-site "~/dev/web/daemon.de")
|
||
|
|
|
||
|
|
(setq daemon-de-template "---
|
||
|
|
layout: post
|
||
|
|
title: %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 category)
|
||
|
|
"Create a new blog posting for daemon.de"
|
||
|
|
(interactive "sEnter blog post title: \nsEnter a category: ")
|
||
|
|
(find-file
|
||
|
|
(format "%s/_posts/%s" daemon-de-site (daemon-de-title2slug title)))
|
||
|
|
(insert (format daemon-de-template title category))
|
||
|
|
)
|
||
|
|
|
||
|
|
(defun --daemon-de-new-blogpost(title category)
|
||
|
|
"Create a new blog posting for daemon.de"
|
||
|
|
(interactive "sEnter blog post title: \nsEnter a category: ")
|
||
|
|
(let ((cwd default-directory)
|
||
|
|
(path ""))
|
||
|
|
(cd daemon-de-site)
|
||
|
|
(find-file
|
||
|
|
(string-trim-right
|
||
|
|
(shell-command-to-string
|
||
|
|
(format "./newblog.sh '%s' '%s'" title category))))
|
||
|
|
(cd cwd)))
|
||
|
|
|
||
|
|
(defun daemon-de-publish()
|
||
|
|
"build and publish jekyll site using git"
|
||
|
|
(interactive)
|
||
|
|
(magit-status daemon-de-site))
|
||
|
|
|
||
|
|
(provide 'init-daemonde)
|
||
|
|
;;; init-daemonde.el ends here
|