diff options
Diffstat (limited to '.emacs.d/pkg')
| -rw-r--r-- | .emacs.d/pkg/consult-jdt.el | 105 | ||||
| -rw-r--r-- | .emacs.d/pkg/flymake-cppcheck.el | 84 |
2 files changed, 189 insertions, 0 deletions
diff --git a/.emacs.d/pkg/consult-jdt.el b/.emacs.d/pkg/consult-jdt.el new file mode 100644 index 0000000..6959f72 --- /dev/null +++ b/.emacs.d/pkg/consult-jdt.el @@ -0,0 +1,105 @@ +(require 'consult) +(require 'eglot) +(require 'jsonrpc) +(require 'subr-x) + +(defvar eglot-jdt--symbolkind-map + '((1 . "File") (2 . "Module") (3 . "Namespace") (4 . "Package") + (5 . "Class") (6 . "Method") (7 . "Property") (8 . "Field") + (9 . "Constructor") (10 . "Enum") (11 . "Interface") (12 . "Function") + (13 . "Variable") (14 . "Constant") (15 . "String") (16 . "Number") + (17 . "Boolean") (18 . "Array") (19 . "Object") (20 . "Key") + (21 . "Null") (22 . "EnumMember") (23 . "Struct") (24 . "Event") + (25 . "Operator") (26 . "TypeParameter")) + "Mapping of LSP SymbolKind integers to human-readable names.") + +(defun eglot-jdt--get (obj key) + "Robustly retrieve KEY from LSP OBJ (plist/alist)." + (let* ((kname (substring (symbol-name key) 1)) + (sym-key (intern kname))) + (or (plist-get obj key) + (alist-get key obj) + (alist-get sym-key obj) + (alist-get kname obj)))) + +(defun eglot-jdt--fetch-symbols (&optional query) + "Synchronously fetch workspace symbols for QUERY from Eglot/JDTLS." + (unless (eglot-managed-p) + (user-error "Eglot is not managing this buffer")) + (let* ((server (eglot-current-server)) + (symbols (jsonrpc-request server :workspace/symbol `(:query ,(or query ""))))) + (when (vectorp symbols) + (setq symbols (append symbols nil))) + symbols)) + +;; Helper to pad strings +(defun eglot-jdt--pad-right (str width) + "Pad STR on the right with spaces to WIDTH." + (let ((len (length str))) + (if (< len width) + (concat str (make-string (- width len) ?\s)) + str))) + +;; Main formatting function with faces +(defun eglot-jdt--format-symbols-table (symbols) + "Format SYMBOLS into a table with faces for Consult, showing Kind first." + (let* ((rows (mapcar (lambda (sym) + (let ((kind-num (eglot-jdt--get sym :kind))) + (list (or (alist-get kind-num eglot-jdt--symbolkind-map) + (format "Kind %s" kind-num)) + (eglot-jdt--get sym :name) + (or (eglot-jdt--get sym :containerName) "<no-package>") + (let ((location (eglot-jdt--get sym :location))) + (eglot-jdt--get location :uri))))) + symbols)) + ;; compute max width for each column + (max-kind (apply #'max (mapcar (lambda (r) (length (nth 0 r))) rows))) + (max-name (apply #'max (mapcar (lambda (r) (length (nth 1 r))) rows))) + (max-package (apply #'max (mapcar (lambda (r) (length (nth 2 r))) rows))) + ;; faces + (divider-face 'shadow) ;; low opacity / dim for dividers + (kind-face 'font-lock-function-name-face) + (name-face 'font-lock-variable-name-face) + (package-face 'font-lock-keyword-face)) + ;; create table rows with faces + (mapcar (lambda (r) + (let* ((kind (propertize (eglot-jdt--pad-right (nth 0 r) max-kind) 'face kind-face)) + (name (propertize (eglot-jdt--pad-right (nth 1 r) max-name) 'face name-face)) + (package (propertize (eglot-jdt--pad-right (nth 2 r) max-package) 'face package-face)) + (divider (propertize "|" 'face divider-face))) + (cons (format "%s %s %s %s %s" + kind divider name divider package) + (nth 3 r)))) + rows))) + +(defun eglot-jdt--open-uri (uri) + "Open a URI returned by the language server, handling jdt:// URIs." + (if (and uri (string-prefix-p "jdt://" uri)) + (find-file (expand-file-name uri)) ; your jdt-file-name-handler takes care of this + (find-file (eglot-uri-to-path uri)))) + +(defun eglot-jdt--sort-by-query (symbols query) + "Sort SYMBOLS by how closely their names match QUERY." + (let ((query (or query ""))) + (sort symbols + (lambda (a b) + (< (string-distance (eglot-jdt--get a :name) query) + (string-distance (eglot-jdt--get b :name) query)))))) + +(defun consult-eglot-jdt-symbols (&optional query) + "Consult interface for Java workspace symbols via Eglot/JDTLS. +Sorts results based on closeness to QUERY." + (interactive "sSymbol query (blank for all): ") + (let* ((symbols (eglot-jdt--fetch-symbols query)) + (sorted-symbols (eglot-jdt--sort-by-query symbols query)) + (candidates (eglot-jdt--format-symbols-table sorted-symbols)) + (selection (consult--read + (mapcar #'car candidates) + :prompt "Symbol: " + :sort nil + :require-match t + :category 'symbol))) + (when selection + (let ((uri (cdr (assoc selection candidates)))) + (when uri + (eglot-jdt--open-uri uri)))))) diff --git a/.emacs.d/pkg/flymake-cppcheck.el b/.emacs.d/pkg/flymake-cppcheck.el new file mode 100644 index 0000000..92a78de --- /dev/null +++ b/.emacs.d/pkg/flymake-cppcheck.el @@ -0,0 +1,84 @@ +;;; flymake-cppcheck.el --- Flymake work with Cppcheck for C/C++ + +;; Copyright 2014 Akiha Senda + +;; Author: Akiha Senda <senda.akiha@gmail.com> +;; URL: https://github.com/senda-akiha/flymake-cppcheck/ +;; Created: 13 January 2014 +;; Version: 1.0.0 +;; Keywords: flymake, cppcheck, C, C++ +;; Package-Requires: ((flymake-easy "0.9")) + +;; This file is not part of GNU Emacs. +;; However, it is distributed under the same license. + +;; GNU Emacs 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, or (at your option) +;; any later version. + +;; GNU Emacs 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 GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; Please check the GitHub +;; (https://github.com/senda-akiha/flymake-cppcheck/) +;; for more information. + +;;; Code: + +(require 'flymake-easy) + +(defconst flymake-cppcheck-err-line-patterns + '(("\\(.*\\)::\\([[:digit:]]+\\)::\\(.*\\)\r?\n" + 1 2 nil 3))) + +(defconst flymake-cppcheck-template "{file}::{line}::{message}" + "Output format template.") + +(defcustom flymake-cppcheck-enable "error" + "By default only error messages are shown. +Through the --enable command more checks can be enabled." + :type 'string + :group 'flymake-cppcheck) + +(defcustom flymake-cppcheck-command (or (executable-find "cppcheck") "") + "The name of the cppcheck executable." + :type 'string + :group 'flymake-cppcheck) + +(defcustom flymake-cppcheck-location 'inplace + "Where to create the temporary copy: one of 'tempdir or 'inplace (default)." + :type `(choice + (const :tag "In place" inplace) + (const :tag "Temporary location" tempdir)) + :group 'flymake-cppcheck) + +(defun flymake-cppcheck-build-command-line (filename) + "Construct a command that flymake can use to check C/C++ source." + (list flymake-cppcheck-command "--quiet" + (concat "--template=" flymake-cppcheck-template) + (if (string-match "error" flymake-cppcheck-enable) + "" (concat "--enable=" flymake-cppcheck-enable)) + filename)) + +;;;###autoload +(defun flymake-cppcheck-load () + "Configure flymake mode to check the current buffer's C/C++ source." + (interactive) + (flymake-easy-load 'flymake-cppcheck-build-command-line + flymake-cppcheck-err-line-patterns + flymake-cppcheck-location + "cpp")) + +(provide 'flymake-cppcheck) + +;;; flymake-cppcheck.el ends here |