From 4cfa8246ea7eec4139ba6c34d3fb3a4545956824 Mon Sep 17 00:00:00 2001 From: benj Date: Sat, 25 Nov 2023 10:02:42 -0800 Subject: 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. --- utils/fetch-includes.el | 59 ------------------------------------------------- 1 file changed, 59 deletions(-) delete mode 100644 utils/fetch-includes.el (limited to 'utils/fetch-includes.el') diff --git a/utils/fetch-includes.el b/utils/fetch-includes.el deleted file mode 100644 index ce386af..0000000 --- a/utils/fetch-includes.el +++ /dev/null @@ -1,59 +0,0 @@ -;;; fetch-includes.el --- add headers to clang checker -*- lexical-binding: t; -*- - -;; Copyright (C) 2018 Benj Bellon - -;; Author: Benj Bellon -;; Keywords: lisp - -;; 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 . - -;;; Commentary: - -;; Parses the compile_commands.json db and adds headers -;; to company-mode's company-clang backend. - -;;; Code: - -(require 'json) -(require 'dash) - -(defun get-commands (json-file) - "Retrieves list of command strings possibly including header paths. -JSON-FILE is the path to the json-file to parse." - (let* ((json-object-type 'hash-table) - (json-array-type 'list) - (json-key-type 'string) - (json (json-read-file json-file))) - (mapcar - (function (lambda (el) (gethash "command" el))) - json))) - -(defun get-include-paths (commands-list) - "Retrieve the include paths from a list of string which may be include paths. -COMMANDS-LIST a list of commands" - (remove nil - (mapcar - (function (lambda (cmd) (if (string-match "-I" cmd) cmd))) - (split-string commands-list)))) - -(defun company-clang-header-paths (db-path) - "Provides list of include paths to add to company-clang backend. -DB-PATH the path to compile_commands.json" - (-flatten (mapcar - (function (lambda(cmd-list) - (get-include-paths cmd-list))) - (get-commands db-path)))) - -(provide 'fetch-includes) -;;; fetch-includes.el ends here -- cgit v1.2.3