58 lines
1.6 KiB
Bash
Executable File
58 lines
1.6 KiB
Bash
Executable File
#!/usr/bin/env sh
|
|
":"; exec emacs --quick --script "$0" -- "$@" # -*- mode: emacs-lisp; lexical-binding: t; -*-
|
|
|
|
(require 'subr-x)
|
|
|
|
(defvar config-root (file-name-directory ; $DOOM_DIR/
|
|
(directory-file-name
|
|
(file-name-directory ; $DOOM_DIR/misc
|
|
(directory-file-name
|
|
(file-name-directory load-file-name))))))
|
|
|
|
(setq snippets (concat config-root "snippets/"))
|
|
|
|
(defun rename (name)
|
|
(let ((out
|
|
(string-trim
|
|
(replace-regexp-in-string
|
|
"[-_]" " "
|
|
name))))
|
|
(if (string= "" out) "File template"
|
|
(let ((sentence (expand-text-abbrevs out)))
|
|
(concat (char-to-string (upcase (aref sentence 0)))
|
|
(substring sentence 1))))))
|
|
|
|
(defun expand-text-abbrevs (str)
|
|
(mapconcat
|
|
(lambda (word)
|
|
(cond
|
|
((string= word "src") "source")
|
|
((string-match-p "args?" word) (replace-regexp-in-string "arg" "argument" word))
|
|
(t word)))
|
|
(split-string str)
|
|
" "))
|
|
|
|
(princ
|
|
(concat
|
|
"\n\n** Snippets\n"
|
|
(mapconcat
|
|
(lambda (s-mode)
|
|
(concat
|
|
"*** " (rename s-mode) "\n"
|
|
(mapconcat
|
|
(lambda (s-file)
|
|
(concat
|
|
(rename (file-name-nondirectory s-file))
|
|
"\n#+begin_src snippet\n"
|
|
(with-temp-buffer
|
|
(insert-file-contents s-file)
|
|
(goto-char (point-min))
|
|
(while (re-search-forward "^#\\+" nil t)
|
|
(replace-match ",#+"))
|
|
(buffer-string))
|
|
"\n#+end_src"))
|
|
(directory-files (file-name-concat snippets s-mode) t "^[^.]")
|
|
"\n\n")))
|
|
(directory-files snippets nil "^[^.]")
|
|
"\n\n")))
|