logistic-bot/nix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(emacs): auto 42 header insertion

Browse source
This commit is contained in:
Khaïs COLIN 2024-12-08 17:21:05 +01:00
parent a1bcf4cd84
commit 09df0c53a4
1 changed files with 132 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

132
doom.d/config.el
View file

@ -80,3 +80,135 @@
(setq-default indent-tabs-mode t)
(map! :map c-mode-map :i "<tab>" #'indent-for-tab-command)
(eval-after-load 'autoinsert
'(define-auto-insert '("\\.\\(c\\|h\\)\\'" . "42 C header")
'(
"Short description: "
"/* ************************************************************************** */" \n
"/* */" \n
"/* ::: :::::::: */" \n
"/* "
(file-name-nondirectory (buffer-file-name))
(substring (make-string 51 ? )
(length (file-name-nondirectory (buffer-file-name))))
":+: :+: :+: */" \n
"/* +:+ +:+ +:+ */" \n
"/* By: " (user-login-name) " <marvin@42.fr>"
(substring (make-string 28 ? ) (length (user-login-name)))
"+#+ +:+ +#+ */" \n
"/* +#+#+#+#+#+ +#+ */" \n
"/* Created: " (format-time-string "%Y/%m/%d %H:%M:%S") " by " (user-login-name)
(substring (make-string 18 ? ) (length (user-login-name)))
"#+# #+# */" \n
"/* Updated: " (format-time-string "%Y/%m/%d %H:%M:%S") " by " (user-login-name)
(substring (make-string 17 ? ) (length (user-login-name)))
"### ########.fr */" \n
"/* */" \n
"/* ************************************************************************** */" \n
)))
(defun my-42-header ()
"check and update or replace 42 header in .c and .h files"
(interactive)
(if (my-42-header-check)
(my-42-header-update)
(my-42-header-replace)))
(defun my-42-header-update ()
"Update the existing 42 header"
(interactive)
(save-excursion
(goto-char 0)
(re-search-forward "/\\* .\\{51\\}:\\+: :\\+: :\\+: \\*/" 891 t)
(replace-match (concat "/* "
(file-name-nondirectory (buffer-file-name))
(substring (make-string 51 ? )
(length (file-name-nondirectory (buffer-file-name))))
":+: :+: :+: */"))
(re-search-forward "/\\* Updated: [0-9]\\{4\\}/[0-9]\\{2\\}/[0-9]\\{2\\} \
[0-9]\\{2\\}:[0-9]\\{2\\}:[0-9]\\{2\\} by .\\{17\\}### ########\\.fr \\*/" 891 t)
(replace-match (concat "/* Updated: "
(format-time-string "%Y/%m/%d %H:%M:%S")
" by " (user-login-name)
(substring (make-string 17 ? ) (length (user-login-name)))
"### ########.fr */"))))
(defun my-42-header-replace ()
"Replace the first 11 lines with a fresh 42 header, if there is probably a bad header"
(interactive)
(save-excursion
(goto-char 0)
(cond ((re-search-forward "^/\\*.*\\*/$" nil t)
(re-search-forward "^$" nil t)
(delete-region 1 (point))))
(insert (my-42-header-generate))))
(defun my-42-header-generate ()
"Generate 42 header string"
(concat "/* ************************************************************************** */\n"
"/* */\n"
"/* ::: :::::::: */\n"
"/* "
(file-name-nondirectory (buffer-file-name))
(substring (make-string 51 ? )
(length (file-name-nondirectory (buffer-file-name))))
":+: :+: :+: */\n"
"/* +:+ +:+ +:+ */\n"
"/* By: " (user-login-name) " <marvin@42.fr>"
(substring (make-string 28 ? ) (length (user-login-name)))
"+#+ +:+ +#+ */\n"
"/* +#+#+#+#+#+ +#+ */\n"
"/* Created: " (format-time-string "%Y/%m/%d %H:%M/%S") " by " (user-login-name)
(substring (make-string 18 ? ) (length (user-login-name)))
"#+# #+# */\n"
"/* Updated: " (format-time-string "%Y/%m/%d %H:%M:%S") " by " (user-login-name)
(substring (make-string 17 ? ) (length (user-login-name)))
"### ########.fr */\n"
"/* */\n"
"/* ************************************************************************** */\n"))
(defun my-42-header-check ()
"Check if there's a 42 header at the top of the current buffer"
(widen)
(let (header lines)
(condition-case my-simple-error
(setq header (buffer-substring-no-properties 1 891))
(my-simple-handler
(my-42-header-replace)))
(setq lines (split-string header "\n"))
(and (= 11 (length lines))
(seq-every-p (lambda (e) (= 80 (length e))) lines)
(string-match "/\\* \\*\\{74\\} \\*/" (nth 0 lines))
(string-match "/\\* \\{76\\}\\*/" (nth 1 lines))
(string-match "/\\* \\{56\\}::: :::::::: \\*/" (nth 2 lines))
(string-match "/\\* .\\{51\\}:\\+: :\\+: :\\+: \\*/" (nth 3 lines))
(string-match "/\\* \\{52\\}\\+:\\+ \\+:\\+ \\+:\\+ \\*/" (nth 4 lines))
(string-match "/\\* By: .\\{3,42\\}<marvin@42.fr> *\\+#\\+ \\+:\\+ \\+#\\+ \\*/" (nth 5 lines))
(string-match "/\\* \\{48\\}\\+#\\+#\\+#\\+#\\+#\\+ \\+#\\+ \\*/" (nth 6 lines))
(string-match "/\\* Created: [0-9]\\{4\\}/[0-9]\\{2\\}/[0-9]\\{2\\} \
[0-9]\\{2\\}:[0-9]\\{2\\}:[0-9]\\{2\\} by .\\{18\\}#\\+# #\\+# \\*/" (nth 7 lines))
(string-match "/\\* Updated: [0-9]\\{4\\}/[0-9]\\{2\\}/[0-9]\\{2\\} \
[0-9]\\{2\\}:[0-9]\\{2\\}:[0-9]\\{2\\} by .\\{17\\}### ########\\.fr \\*/" (nth 8 lines))
(string-match "/\\* \\{76\\}\\*/" (nth 9 lines))
(string-match "/\\* \\*\\{74\\} \\*/" (nth 10 lines)))))
(auto-insert-mode t)
(add-hook 'c-mode-hook 'my-42-header)
;; basic configuration for 42 .c and .h files
(defun my-c-mode-hook ()
(setq-default tab-width 4)
(setq-default indent-tabs-mode t)
(setq-default c-default-style "linux")
(c-set-offset 'substatement-open 0)
(setq-default c-basic-offset 4)
;; buggy sometimes if you don't setq it as well
(setq c-basic-offset 4))
(add-hook 'c-mode-hook 'my-c-mode-hook)
(defun my-42-header-before-save-hook ()
(when (eq major-mode 'c-mode)
(my-42-header)))
(add-hook 'before-save-hook #'my-42-header-before-save-hook)