From 63d6830a29610683b8bf5a94a248f7ebe52c4ee4 Mon Sep 17 00:00:00 2001 From: Dominik Kaiser Date: Wed, 20 Aug 2025 14:13:21 +0200 Subject: [PATCH] Remove 42header.el --- 42header.el | 65 ----------------------------------------------------- README.org | 5 ----- init.el | 2 -- 3 files changed, 72 deletions(-) delete mode 100644 42header.el diff --git a/42header.el b/42header.el deleted file mode 100644 index 401fcf2..0000000 --- a/42header.el +++ /dev/null @@ -1,65 +0,0 @@ -(defconst 42name "dkaiser") -(defconst 42email "dkaiser@student.42heilbronn.de") - -(defun trim-or-fill-string (string length) - (if (> (length string) length) - (substring string 0 length) - (concat string (make-string (- length (length string)) ?\s)))) - -(defun check-42header () - (save-excursion - (goto-char (point-min)) - (equal (thing-at-point 'line t) - (concat "/* " (make-string 74 ?*) " */\n")))) - -(defun add-42header () - (save-excursion - (goto-char (point-min)) - (insert "/* " (make-string 74 ?*) " */\n") - (insert "/* " (make-string 74 ? ) " */\n") - (insert "/* ::: :::::::: */\n") - (insert "/* " - (trim-or-fill-string (file-name-nondirectory buffer-file-name) 43) - " :+: :+: :+: */\n") - (insert "/* +:+ +:+ +:+ */\n") - (insert "/* By: " - (trim-or-fill-string (concat 42name " <" 42email ">") 39) - " +#+ +:+ +#+ */\n") - (insert "/* +#+#+#+#+#+ +#+ */\n") - (insert "/* Created: " - (format-time-string "%Y/%m/%d %H:%M:%S" (nth 5 (file-attributes buffer-file-name))) - " by " - (trim-or-fill-string 42name 11) - " #+# #+# */\n") - (insert "/* Updated: " - (format-time-string "%Y/%m/%d %H:%M:%S") - " by " - (trim-or-fill-string 42name 11) - " ### ########.fr */\n") - (insert "/* " (make-string 74 ? ) " */\n") - (insert "/* " (make-string 74 ?*) " */\n\n"))) - -(defun update-42header () - (save-excursion - (goto-char (point-min)) - (forward-line 8) - (kill-line) - (insert "/* Updated: " - (format-time-string "%Y/%m/%d %H:%M:%S") - " by " - (trim-or-fill-string 42name 11) - " ### ########.fr */"))) - -(defun add-or-update-42header () - (interactive) - (save-excursion - (if (check-42header) - (funcall #'update-42header) - (funcall #'add-42header)))) - -(defun update-42header-if-existing () - (if (check-42header) - (funcall #'update-42header))) - -(add-hook 'before-save-hook #'update-42header-if-existing) -(global-set-key (kbd "C-c h") 'add-or-update-42header) diff --git a/README.org b/README.org index f033265..bf0cea4 100644 --- a/README.org +++ b/README.org @@ -255,8 +255,3 @@ These settings ensure that block highlights aren't visible when collapsed. (use-package simple-httpd :ensure t) #+end_src -* 42 -** Header -#+begin_src elisp - (load "~/.config/emacs/42header.el") -#+end_src diff --git a/init.el b/init.el index 006e2b7..dec4f30 100644 --- a/init.el +++ b/init.el @@ -172,5 +172,3 @@ (use-package simple-httpd :ensure t) - -(load "~/.config/emacs/42header.el") -- 2.47.2