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

fix(42-header): replace khais by kcolin to conform to norm v4

Browse source
This commit is contained in:
Khaïs COLIN 2025-04-21 20:26:34 +02:00
parent 363fc13587
commit 28e9a2e81b
1 changed files with 17 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

32
doom.d/config.el
View file

@ -81,6 +81,8 @@
(map! :map c-mode-map :i "<tab>" #'indent-for-tab-command)
(defun user-intra-name () "kcolin")
(eval-after-load 'autoinsert
'(define-auto-insert '("\\.\\(c\\|h\\)\\'" . "42 C header")
'(
@ -94,15 +96,15 @@
(length (file-name-nondirectory (buffer-file-name))))
":+: :+: :+: */" \n
"/* +:+ +:+ +:+ */" \n
"/* By: " (user-login-name) " <marvin@42.fr>"
(substring (make-string 28 ? ) (length (user-login-name)))
"/* By: " (user-intra-name) " <kcolin@42.fr>"
(substring (make-string 28 ? ) (length (user-intra-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)))
"/* Created: " (format-time-string "%Y/%m/%d %H:%M:%S") " by " (user-intra-name)
(substring (make-string 18 ? ) (length (user-intra-name)))
"#+# #+# */" \n
"/* Updated: " (format-time-string "%Y/%m/%d %H:%M:%S") " by " (user-login-name)
(substring (make-string 17 ? ) (length (user-login-name)))
"/* Updated: " (format-time-string "%Y/%m/%d %H:%M:%S") " by " (user-intra-name)
(substring (make-string 17 ? ) (length (user-intra-name)))
"### ########.fr */" \n
"/* */" \n
"/* ************************************************************************** */" \n
@ -130,8 +132,8 @@
[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)))
" by " (user-intra-name)
(substring (make-string 17 ? ) (length (user-intra-name)))
"### ########.fr */"))))
(defun my-42-header-replace ()
@ -155,15 +157,15 @@
(length (file-name-nondirectory (buffer-file-name))))
":+: :+: :+: */\n"
"/* +:+ +:+ +:+ */\n"
"/* By: " (user-login-name) " <marvin@42.fr>"
(substring (make-string 28 ? ) (length (user-login-name)))
"/* By: " (user-intra-name) " <kcolin@42.fr>"
(substring (make-string 28 ? ) (length (user-intra-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)))
"/* Created: " (format-time-string "%Y/%m/%d %H:%M:%S") " by " (user-intra-name)
(substring (make-string 18 ? ) (length (user-intra-name)))
"#+# #+# */\n"
"/* Updated: " (format-time-string "%Y/%m/%d %H:%M:%S") " by " (user-login-name)
(substring (make-string 17 ? ) (length (user-login-name)))
"/* Updated: " (format-time-string "%Y/%m/%d %H:%M:%S") " by " (user-intra-name)
(substring (make-string 17 ? ) (length (user-intra-name)))
"### ########.fr */\n"
"/* */\n"
"/* ************************************************************************** */\n"))
@ -184,7 +186,7 @@
(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 "/\\* By: .\\{3,42\\}<kcolin@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))