add basic implementation for the missing evil-show-jumps

1 files changed, 19 insertions, 0 deletions

diff --git a/evil-jumps.el b/evil-jumps.el
index 3e66377..640b767 100644
--- a/evil-jumps.el
+++ b/evil-jumps.el
@@ -162,6 +162,25 @@
             (ring-insert target-list `(,current-pos ,file-name))))))
     (evil--jumps-message "%s %s" (selected-window) (ring-ref target-list 0))))
 
+(evil-define-command evil-show-jumps ()
+  "Display the contents of the jump list."
+  :repeat nil
+  (evil-with-view-list "evil-jumps"
+    (require 'tabulated-list)
+    (setq tabulated-list-format [("Jump" 5 t)
+                                 ("Marker" 8 t)
+                                 ("File/text" 1000 t)])
+    (tabulated-list-init-header)
+    (setq tabulated-list-entries
+          (lambda ()
+            (let* ((jumps (evil--jumps-savehist-sync))
+                   (count 0))
+              (cl-loop for jump in jumps
+                       collect `(,(incf count) [,(number-to-string count)
+                                                ,(number-to-string (car jump))
+                                                ,(cdr jump)])))))
+    (tabulated-list-print)))
+
 (defun evil-set-jump (&optional pos)
   "Set jump point at POS.
 POS defaults to point."