create lisp library clang-format

diff --git a/lisp/clang-format/clang-format.el b/lisp/clang-format/clang-format.el
new file mode 100644 (file)
index 0000000..1e51c83
--- /dev/null
+++ b/lisp/clang-format/clang-format.el
@@ -0,0 +1,39 @@
+;;; clang-format.el ---                              -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2023  John Turner
+
+;; Author: John Turner
+
+;; 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/>.
+
+(defvar clang-format-exectuable "clang-format")
+
+(defvar clang-format-temp-buffer "*clang-format*")
+
+(defun clang-format-buffer ()
+  (interactive)
+  (let ((ret (call-process-region (point-min) (point-max) clang-format-exectuable
+                                  nil
+                                  (with-current-buffer (get-buffer-create clang-format-temp-buffer)
+                                    (erase-buffer)
+                                    (current-buffer))
+                                  nil)))
+    (if (zerop ret)
+        (replace-buffer-contents clang-format-temp-buffer)
+      (message "clang-format failed with exit code: %s (see %s for more details)"
+               ret,
+               clang-format-temp-buffer))))
+
+(provide 'clang-format)
+;;; clang-format.el ends here

diff --git a/lisp/packages.el b/lisp/packages.el
index cf6243a5f38c9bdc5532f38618296ca000c31507..032ed5d08cb0188de980f6f8d46eebecb4418b4a 100644 (file)
--- a/lisp/packages.el
+++ b/lisp/packages.el
@@ -33,3 +33,6 @@
 
 (use-package best-side-window
   :load-path (lambda () (locate-user-emacs-file "lisp/best-side-window")))
+
+(use-package clang-format
+  :load-path (lambda () (locate-user-emacs-file "lisp/clang-format")))