mirror of
https://github.com/pestctrl/emacs-config.git
synced 2026-02-16 08:14:15 +00:00
Create llvm headers quickly
This commit is contained in:
parent
30abfbcf1c
commit
215dc1af3d
1 changed files with 13 additions and 0 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in a new issue