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