Archived
1
0
Fork 0

add extra packages

This commit is contained in:
KemoNine 2023-07-27 17:04:04 -04:00
parent d388672a3f
commit 554d5e62c2
7 changed files with 412 additions and 1 deletions

View file

@ -0,0 +1,47 @@
;;; helm-xref-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
(add-to-list 'load-path (directory-file-name
(or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "helm-xref" "helm-xref.el" (0 0 0 0))
;;; Generated autoloads from helm-xref.el
(autoload 'helm-xref-show-xrefs "helm-xref" "\
Function to display XREFS.
Needs to be set the value of `xref-show-xrefs-function'.
\(fn XREFS ALIST)" nil nil)
(autoload 'helm-xref-show-xrefs-27 "helm-xref" "\
Function to display XREFS.
Needs to be set the value of `xref-show-xrefs-function'.
\(fn FETCHER ALIST)" nil nil)
(autoload 'helm-xref-show-defs-27 "helm-xref" "\
Function to display list of definitions.
\(fn FETCHER ALIST)" nil nil)
(if (< emacs-major-version 27) (setq xref-show-xrefs-function 'helm-xref-show-xrefs) (progn (setq xref-show-xrefs-function 'helm-xref-show-xrefs-27) (setq xref-show-definitions-function 'helm-xref-show-defs-27)))
(register-definition-prefixes "helm-xref" '("helm-xref-"))
;;;***
;;;### (autoloads nil nil ("helm-xref-pkg.el") (0 0 0 0))
;;;***
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; coding: utf-8
;; End:
;;; helm-xref-autoloads.el ends here

View file

@ -0,0 +1,13 @@
(define-package "helm-xref" "20211017.1334" "Helm interface for xref results"
'((emacs "25.1")
(helm "1.9.4"))
:commit "ea0e4ed8a9baf236e4085cbc7178241f109a53fa" :authors
'(("Fritz Stelzer" . "brotzeitmacher@gmail.com"))
:maintainers
'(("Fritz Stelzer" . "brotzeitmacher@gmail.com"))
:maintainer
'("Fritz Stelzer" . "brotzeitmacher@gmail.com")
:url "https://github.com/brotzeit/helm-xref")
;; Local Variables:
;; no-byte-compile: t
;; End:

View file

@ -0,0 +1,200 @@
;;; helm-xref.el --- Helm interface for xref results -*- lexical-binding: t -*-
;; Copyright (C) 2017 Fritz Stelzer <brotzeitmacher@gmail.com>
;; Author: Fritz Stelzer <brotzeitmacher@gmail.com>
;; URL: https://github.com/brotzeit/helm-xref
;; Version: 1.0
;; Package-Requires: ((emacs "25.1") (helm "1.9.4"))
;;; License:
;;
;; 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.
;;; Contributors:
;; Sanjeev Sivasankaran <kalasalatemp at gmail.com> in 2019 changed font-face.
;;; Code:
(require 'helm)
(require 'helm-utils)
(require 'xref)
(require 'cl-seq)
(defvar helm-xref-alist nil
"Holds helm candidates.")
(defgroup helm-xref nil
"Xref with helm."
:prefix "helm-xref-" :group 'helm)
(defface helm-xref-file-name
'((t (:inherit 'font-lock-builtin-face)))
"Face for xref file name"
:group 'helm-xref)
(defface helm-xref-line-number
'((t (:inherit 'helm-grep-lineno)))
"Face for xref line number"
:group 'helm-xref)
(defcustom helm-xref-candidate-formatting-function 'helm-xref-format-candidate-short
"Select the function for candidate formatting."
:type '(radio
(function-item helm-xref-format-candidate-short)
(function-item helm-xref-format-candidate-full-path)
(function-item helm-xref-format-candidate-long)
function)
:group 'helm-xref)
(defcustom helm-xref-input ""
"Initial input in Helm."
:type 'string
:group 'helm-xref)
(defun helm-xref-candidates-26 (xrefs)
"Convert XREF-ALIST items to helm candidates and add them to `helm-xref-alist'."
(dolist (xref xrefs)
(let* ((summary (xref-item-summary xref))
(location (xref-item-location xref))
(line (xref-location-line location))
(file (xref-location-group location))
candidate)
(setq candidate
(funcall helm-xref-candidate-formatting-function file line summary))
(push (cons candidate xref) helm-xref-alist)))
(setq helm-xref-alist (reverse helm-xref-alist)))
(defun helm-xref-candidates-27 (fetcher alist)
"Convert XREF-ALIST items to helm candidates and add them to `helm-xref-alist'."
(cl-assert (functionp fetcher))
(let* ((xrefs
(or
(assoc-default 'fetched-xrefs alist)
(funcall fetcher))))
(dolist (xref xrefs)
(let* ((summary (xref-item-summary xref))
(location (xref-item-location xref))
(line (xref-location-line location))
(file (xref-location-group location))
candidate)
(setq candidate
(funcall helm-xref-candidate-formatting-function file line summary))
(push (cons candidate xref) helm-xref-alist))))
(setq helm-xref-alist (reverse helm-xref-alist)))
(defun helm-xref-format-candidate-short (file line summary)
"Build short form of candidate format with FILE, LINE, and SUMMARY."
(concat
(propertize (car (reverse (split-string file "\\/")))
'font-lock-face 'helm-xref-file-name)
(when (string= "integer" (type-of line))
(concat
":"
(propertize (int-to-string line)
'font-lock-face 'helm-xref-line-number)))
":"
summary))
(defun helm-xref-format-candidate-full-path (file line summary)
"Same as `helm-xref-format-candidate-short', but display entire path."
(concat
(propertize file 'font-lock-face 'helm-xref-file-name)
(when (string= "integer" (type-of line))
(concat
":"
(propertize (int-to-string line)
'font-lock-face 'helm-xref-line-number)))
":"
summary))
(defun helm-xref-format-candidate-long (file line summary)
"Use two lines for each candidate. One contains the path and the other the actual candidate."
(concat
(propertize file 'font-lock-face 'helm-xref-file-name)
(when (string= "integer" (type-of line))
(concat
"\n:"
(propertize (int-to-string line)
'font-lock-face 'helm-xref-line-number)))
":"
summary))
(defun helm-xref-goto-xref-item (item func)
"Set buffer and point according to xref-item ITEM.
Use FUNC to display buffer."
(let* ((summary (xref-item-summary item))
(location (xref-item-location item))
(marker (xref-location-marker location))
(buf (marker-buffer marker))
(offset (marker-position marker)))
(switch-to-buffer buf)
(goto-char offset)
(funcall func buf)))
(defun helm-xref-source ()
"Return a `helm' source for xref results."
(helm-build-sync-source "Helm Xref"
:candidates helm-xref-alist
:persistent-action (lambda (item)
(helm-xref-goto-xref-item
item '(lambda (buf) (helm-highlight-current-line))))
:action '(("Switch to buffer" . (lambda (item) (helm-xref-goto-xref-item item 'switch-to-buffer)))
("Other window" . (lambda (item) (helm-xref-goto-xref-item item 'switch-to-buffer-other-window))))
:candidate-number-limit 9999))
;;;###autoload
(defun helm-xref-show-xrefs (xrefs _alist)
"Function to display XREFS.
Needs to be set the value of `xref-show-xrefs-function'."
(setq helm-xref-alist nil)
(helm-xref-candidates-26 xrefs)
(helm :sources (helm-xref-source)
:truncate-lines t
:input helm-xref-input
:buffer "*helm-xref*"))
;;;###autoload
(defun helm-xref-show-xrefs-27 (fetcher alist)
"Function to display XREFS.
Needs to be set the value of `xref-show-xrefs-function'."
(setq helm-xref-alist nil)
(helm-xref-candidates-27 fetcher alist)
(helm :sources (helm-xref-source)
:truncate-lines t
:buffer "*helm-xref*"))
;;;###autoload
(defun helm-xref-show-defs-27 (fetcher alist)
"Function to display list of definitions."
(let ((xrefs (funcall fetcher)))
(cond
((not (cdr xrefs))
(xref-pop-to-location (car xrefs)
(assoc-default 'display-action alist)))
(t
(helm-xref-show-xrefs-27 fetcher
(cons (cons 'fetched-xrefs xrefs)
alist))))))
;;;###autoload
(progn
(if (< emacs-major-version 27)
(setq xref-show-xrefs-function 'helm-xref-show-xrefs)
(progn
(setq xref-show-xrefs-function 'helm-xref-show-xrefs-27)
(setq xref-show-definitions-function 'helm-xref-show-defs-27))))
(provide 'helm-xref)
;;; helm-xref.el ends here

View file

@ -0,0 +1,48 @@
;;; lsp-origami-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
(add-to-list 'load-path (directory-file-name
(or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "lsp-origami" "lsp-origami.el" (0 0 0 0))
;;; Generated autoloads from lsp-origami.el
(autoload 'lsp-origami-try-enable "lsp-origami" "\
Turn on `origami-mode' locally and try to enable `lsp-origami-mode'." t nil)
(autoload 'lsp-origami-mode "lsp-origami" "\
Toggle code folding support for origami.
This is a minor mode. If called interactively, toggle the
`Lsp-Origami mode' mode. If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.
If called from Lisp, toggle the mode if ARG is `toggle'. Enable
the mode if ARG is nil, omitted, or is a positive number.
Disable the mode if ARG is a negative number.
To check whether the minor mode is enabled in the current buffer,
evaluate `lsp-origami-mode'.
The mode's hook is called both when the mode is enabled and when
it is disabled.
\(fn &optional ARG)" t nil)
(register-definition-prefixes "lsp-origami" '("lsp-origami--"))
;;;***
;;;### (autoloads nil nil ("lsp-origami-pkg.el") (0 0 0 0))
;;;***
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; coding: utf-8
;; End:
;;; lsp-origami-autoloads.el ends here

View file

@ -0,0 +1,15 @@
(define-package "lsp-origami" "20211016.1045" "origami.el support for lsp-mode"
'((origami "1.0")
(lsp-mode "6.1"))
:commit "5b88ab77dc2696c93fa5dd9debe183821c533b71" :authors
'(("Vibhav Pant"))
:maintainers
'(("Vibhav Pant"))
:maintainer
'("Vibhav Pant")
:keywords
'("languages" "lsp-mode")
:url "https://github.com/emacs-lsp/lsp-origami")
;; Local Variables:
;; no-byte-compile: t
;; End:

View file

@ -0,0 +1,88 @@
;;; lsp-origami.el --- origami.el support for lsp-mode -*- lexical-binding: t; -*-
;; Copyright (C) 2019-2020 Vibhav Pant <vibhavp@gmail.com>
;; Author: Vibhav Pant
;; Version: 1.0.0
;; Keywords: languages lsp-mode
;; Package-Requires: ((origami "1.0") (lsp-mode "6.1"))
;; URL: https://github.com/emacs-lsp/lsp-origami
;; 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:
;; lsp-origami provides support for origami.el using language server
;; protocol's "textDocument/foldingRange" functionality. It can be enabled
;; with
;; (require 'lsp-origami)
;; (add-hook 'lsp-after-open-hook #'lsp-origami-try-enable)
;;; Code:
(require 'origami)
(require 'lsp-mode)
(defun lsp-origami--folding-range-to-fold (range create)
"Using the components of RANGE as arguments, execute the CREATE callback."
(funcall create
(lsp--folding-range-beg range)
(lsp--folding-range-end range)
0
(seq-map
(lambda (range) (lsp-origami--folding-range-to-fold range create))
(seq-remove (lambda (child-range)
(or (eq (lsp--folding-range-beg child-range)
(lsp--folding-range-beg range))
(eq (lsp--folding-range-end child-range)
(lsp--folding-range-end range))))
(lsp--folding-range-children range)))))
(defun lsp-origami--parser (create)
"Get a list of Folding Ranges for the current buffer, with CREATE as the origami callback."
(lambda (_content)
(unless (lsp-feature? "foldingRangeProvider")
(signal 'lsp-capability-not-supported (list "foldingRangeProvider")))
(seq-map (lambda (range)
(lsp-origami--folding-range-to-fold range create))
(lsp--get-nested-folding-ranges))))
;;;###autoload
(defun lsp-origami-try-enable ()
"Turn on `origami-mode' locally and try to enable `lsp-origami-mode'."
(interactive)
(origami-mode 1)
(cond ((lsp-feature? "textDocument/foldingRange")
(lsp-origami-mode 1))
((called-interactively-p 'any)
(signal 'lsp-capability-not-supported (list "foldingRangeProvider")))
(t
(lsp-log "This server does not support foldingRangeProvider"))))
;;;###autoload
(define-minor-mode lsp-origami-mode
"Toggle code folding support for origami."
:group 'lsp-origami
:global nil
(cond
(lsp-origami-mode
(setq-local origami-fold-style 'lsp-mode)
(setq-local origami-parser-alist
(cons '(lsp-mode . lsp-origami--parser) origami-parser-alist)))
(t
(setq-local origami-fold-style nil))))
(provide 'lsp-origami)
;;; lsp-origami.el ends here

View file

@ -73,7 +73,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; additional packages
(add-to-list 'package-selected-packages
'(json-mode python-mode powershell rust-mode origami go-mode yaml-mode lua-mode)
'(helm-lsp lsp-ui lsp-mode json-mode python-mode powershell rust-mode origami go-mode yaml-mode lua-mode)
)
(when (not kmn/is-dayjob)
(add-to-list 'package-selected-packages