rewrite emacs init.el and go back to basics

This is a complete rewrite leveraging the very popular use-package to
see how I like it. We reduce init.el to a bare minimum configuration
and remove the previous homebrew organizational scheme. A number of
packages have yet to be setup, but we'll wait and do in JIT.

1 files changed, 0 insertions, 73 deletions

diff --git a/templates/auto-insert/.yas-setup.el b/templates/auto-insert/.yas-setup.el
deleted file mode 100644
index ed5d6b9..0000000
--- a/templates/auto-insert/.yas-setup.el
+++ /dev/null
@@ -1,73 +0,0 @@
-;;; .yas-setup.el --- Utility functions for c-mode   -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2018  Benj Bellon
-
-;; Author: Benj Bellon <benj@benj-ad1>
-;; Keywords: c
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; As description
-
-;;; Code:
-(require 'dash)
-
-(defun fetch-project-path (root-dir)
-  "Retrieve path from project's root-dir to file as list.
-NOTE: The closest parent root-dir is considered the root.
-ROOT-DIR: the root directory with no path delimiters."
-  (let* ((full-path (locate-dominating-file buffer-file-name root-dir)))
-    (if full-path
-	(let* ((proj-root-dir (nth 1 (reverse (split-string full-path "/"))))
-	      (full-path-list (cons proj-root-dir
-				    (-flatten (cdr (-split-on proj-root-dir (split-string buffer-file-name "/")))))))
-
-	  ;; turn dashes into underscores
-	  (mapcar (lambda (x) (replace-regexp-in-string "-" "_" x))
-		  full-path-list))
-      nil)
-    ))
-
-(defun build-include-guard-header (root-dir)
-  "Create a full include guard header for c files.
-If the path cannot be found, just use the filename.
-ROOT-DIR: the root directory with no path delimiters.
-FORMAT: PROJDIR_FULL_PATH_TO_FILE_H"
-  (if (fetch-project-path root-dir)
-      (let* ((path-no-file (reverse (cdr (reverse (fetch-project-path root-dir)))))
-	     (file-no-ext (car (split-string (car (reverse (fetch-project-path root-dir))) "\\." t))))
-	(concat
-	 (mapconcat 'identity
-		    (mapcar 'upcase
-			    (reverse (cons file-no-ext (reverse path-no-file)))) "_")
-	 "_H")
-	)
-    ;; no lazy evaluation, so just do it here
-    (concat
-     (upcase
-      (car (-filter (lambda (x) (not (s-blank? x)))
-		    (split-string
-		     (car (reverse (split-string buffer-file-name "/")))
-		     "\\."))))
-     "_H")
-    ))
-
-(defun git-include-guard-path ()
-  "Build include guard headers for git projects."
-  (build-include-guard-header ".git"))
-
-(provide '.yas-setup)
-;;; .yas-setup.el ends here