24 lines
631 B
EmacsLisp
24 lines
631 B
EmacsLisp
(defun open-site () (interactive)(dired "/ssh:admin@feelinblue.wiki#9051:/usr/local/www/nanachi/"))
|
|
|
|
(defun insert-html-keybind (keybind)
|
|
(interactive "sKeybind:")
|
|
(insert "<span class=\"keybind\">" keybind "</span>")
|
|
)
|
|
(defun insert-html-blogpost-tag (tag)
|
|
(interactive "sTag:")
|
|
(insert "<span class=\"tag-" tag "\"><a href=\"blog/" tag ".html\">" tag"</a></span>")
|
|
)
|
|
(defun insert-html-template ()
|
|
(interactive)
|
|
(insert "<!DOCTYPE html>
|
|
<head>
|
|
<link rel=\"stylesheet\" href=\"/css/style.css\">
|
|
<meta charset=\"utf-8\">
|
|
</head>
|
|
<body>
|
|
<a href="..">⬅️ Back</a>
|
|
</body>
|
|
</html>
|
|
")
|
|
)
|
|
(provide 'blog-settings)
|