-
Notifications
You must be signed in to change notification settings - Fork 0
/
consult-better-jumper.el
57 lines (48 loc) · 1.71 KB
/
consult-better-jumper.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
;;; consult-better-jumper.el --- browse better-jumper jump points with consult -*- lexical-binding: t; -*-
;; Copyright (C) 2021 Nicholas Hubbard
;; Author: Nicholas Hubbard
;; Maintainer: Nicholas Hubbard
;; Created: December 24, 2021
;; Version: 1.0.0
;; Homepage: https://github.com/NicholasBHubbard/consult-better-jumper
;; Package-Requires: ((emacs "26.1") (consult "0.13") (better-jumper "1.0.0"))
;; Keywords: consult, better-jumper
;;
;; This file is not part of GNU Emacs.
;;; License: GNU General Public License v3.0
;;; Commentary:
;;
;; Consult-better-jumper integrates better-jumper into consult so that jump points
;; can be browsed using the consult framework.
;;
;; To use consult-better-jumper try: M-x consult-better-jumper
;;; Code:
(require 'better-jumper)
(require 'consult)
(defun consult-better-jumper--candidates ()
(let ((markers (better-jumper--get-marker-table)))
(mapcar
(pcase-lambda (`(,_path ,_pt ,key))
(when-let ((marker (gethash key markers)))
(save-excursion
(goto-char marker)
(consult--location-candidate
(consult--line-with-cursor marker)
marker (line-number-at-pos)))))
(ring-elements (better-jumper--get-jump-list)))))
(defun consult-better-jumper ()
"Browse better-jumper jump points with consult"
(interactive)
(consult--read
(consult-better-jumper--candidates)
:prompt "Jump to: "
:annotate (consult--line-prefix)
:category 'consult-location
:sort nil
:require-match t
:lookup #'consult--lookup-location
:history '(:input consult--line-history)
:add-history (thing-at-point 'symbol)
:state (consult--jump-state)))
(provide 'consult-better-jumper)
;;; consult-better-jumper.el ends here