Remove 42header.el

diff --git a/42header.el b/42header.el
deleted file mode 100644 (file)
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 f0332656be1adbe6bb6b95b8a07ac40eda19adbc..bf0cea440cf9568adb6b9eb035c345dd34ab3d11 100644 (file)
--- 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 006e2b7afab7befe4bb2b0b444f6998fa331f6fa..dec4f3092846377461d6ba4881e21e0424d03365 100644 (file)
--- a/init.el
+++ b/init.el
@@ -172,5 +172,3 @@
 
 (use-package simple-httpd
   :ensure t)
-
-(load "~/.config/emacs/42header.el")