Create llvm headers quickly

This commit is contained in:
Benson Chu 2023-08-25 03:08:17 -05:00
parent 30abfbcf1c
commit 215dc1af3d

View file

@ -178,5 +178,18 @@
(insert new-line)
(goto-char point))))
(defun banner/create-llvm-banner (desc)
(interactive
(list (read-string "Description? ")))
(let ((start
(concat "//==--- "
(file-name-nondirectory (buffer-file-name))
" - " desc " "))
(end
(concat "-*- C++ -*-===//")))
(insert (string-pad start (- fill-column (length end)) ?-)
end
"\n")))
(provide 'work-commentor)
;;; work-commentor.el ends here