From 215dc1af3db2ebbb3c19b4d4c0eb27d3c7a87ef5 Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Fri, 25 Aug 2023 03:08:17 -0500 Subject: [PATCH] Create llvm headers quickly --- lisp/ti-config/work-commentor-2.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/lisp/ti-config/work-commentor-2.el b/lisp/ti-config/work-commentor-2.el index cab45e3..4947a45 100644 --- a/lisp/ti-config/work-commentor-2.el +++ b/lisp/ti-config/work-commentor-2.el @@ -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