[nongnu] elpa/shellcop f6060cc292: can jump around using data from z.sh

[ELPA Syncer]

branch: elpa/shellcop
commit f6060cc292d0143c925252b27d5db21de03ce7f0
Author: Chen Bin <chenbin.sh@gmail.com>
Commit: Chen Bin <chenbin.sh@gmail.com>

    can jump around using data from z.sh
---
 README.org  |  7 ++++-
 shellcop.el | 92 ++++++++++++++++++++++++++++++++++++++++++++++++++++---------
 2 files changed, 85 insertions(+), 14 deletions(-)

diff --git a/README.org b/README.org
index dbd6a6a18d..4218e6aa9f 100644
--- a/README.org
+++ b/README.org
@@ -28,7 +28,12 @@ Run =shellcop-reset-with-new-command= to,
 
 Run =shellcop-erase-buffer= to erase current buffer in =shell-mode= and 
=message-buffer-mode=. Or else it erases content in message buffer.
 
-Run =M-x shellcop-search-in-shell-buffer-of-other-window=. Use current word or 
selected text to search in *shell* buffer of the other window.
+Run =shellcop-jump-around= to jump to directories recorded by 
[[https://github.com/rupa/z]],
+- If shell is visible, \"cd dest-dir\" is inserted into shell
+- Or else, the directory is opened in `dired-mode'
+
+Run =shellcop-search-in-shell-buffer-of-other-window=. Use current word or 
selected text to search in *shell* buffer of the other window.
+
 * Contact me
 Report bug at [[https://github.com/redguardtoo/shellcop]].
 * License
diff --git a/shellcop.el b/shellcop.el
index 365d8c1f23..59e44d8e54 100644
--- a/shellcop.el
+++ b/shellcop.el
@@ -2,9 +2,9 @@
 
 ;; Copyright (C) 2020-2021 Chen Bin
 ;;
-;; Version: 0.0.7
+;; Version: 0.0.8
 ;; Keywords: unix tools
-;; Author: Chen Bin <chenbin DOT sh AT gmail DOT com>
+;; Author: Chen Bin <chenbin.sh@gmail.com>
 ;; URL: https://github.com/redguardtoo/shellcop
 ;; Package-Requires: ((emacs "25.1"))
 
@@ -45,6 +45,10 @@
 ;;   - "*Javascript REPL*" (if parameter 2 is passed)
 ;;   - "*eshell*" (if parameter 3 is passed)
 ;;
+;; `shellcop-jump-around' jumps to directories recorded by 
https://github.com/rupa/z,
+;;   - If shell is visible, \"cd destination-dir\" is inserted into shell
+;;   - Or else, the directory is opened in `dired-mode'
+;;
 ;; `shellcop-search-in-shell-buffer-of-other-window' uses current word or 
selected text
 ;; to search in *shell* buffer of the other window.
 ;;
@@ -102,6 +106,11 @@ If there is error, it returns t."
   :type 'string
   :group 'shellcop)
 
+(defcustom shellcop-jump-around-data-file "~/.z"
+  "The data file created by z (see https://github.com/rupa/z)."
+  :type 'string
+  :group 'shellcop)
+
 (defvar shellcop-debug nil "Enable debug output if not nil.")
 
 (defun shellcop-location-detail (str)
@@ -146,14 +155,14 @@ If there is error, it returns t."
 (defun shellcop-extract-locations-at-point (&optional above)
   "Extract locations in one direction into RLT.
 If ABOVE is t, extract locations above current point; or else below current 
point."
-  (let* (rlt
-         (line (if above -1 1))
-         location)
-    (save-excursion
-      (while (and (eq (forward-line line) 0)
-                  (setq location (shellcop-extract-location)))
-        (shellcop-push-location location rlt)))
-    rlt))
+(let* (rlt
+       (line (if above -1 1))
+       location)
+  (save-excursion
+    (while (and (eq (forward-line line) 0)
+                (setq location (shellcop-extract-location)))
+      (shellcop-push-location location rlt)))
+  rlt))
 
 (defun shellcop-extract-all-locations ()
   "Extract all locations near current point."
@@ -352,11 +361,17 @@ Or else erase current buffer."
              (visible-frame-list)))
 
 ;;;###autoload
-(defun shellcop-focus-window (buffer-name fn)
-  "Focus on window with BUFFER-NAME and run function FN."
+(defun shellcop-get-window (buffer-name)
+  "Get window of buffer with BUFFER-NAME."
   (let* ((sub-window (cl-find-if `(lambda (w)
                                     (string= (buffer-name (window-buffer w)) 
,buffer-name))
-                                 (shellcop-visible-window-list)))
+                                 (shellcop-visible-window-list))))
+    sub-window))
+
+;;;###autoload
+(defun shellcop-focus-window (buffer-name fn)
+  "Focus on window with BUFFER-NAME and run function FN."
+  (let* ((sub-window (shellcop-get-window buffer-name))
          (keyword (cond
                    ((region-active-p)
                     (buffer-substring (region-beginning) (region-end)))
@@ -380,5 +395,56 @@ Or else erase current buffer."
      (when keyword
        (funcall shellcop-string-search-function keyword)))))
 
+;;;###autoload
+(defun shellcop-jump-around ()
+  "Jump to directories recorded by https://github.com/rupa/z.
+If shell is visible, \"cd destination-dir\" is inserted into shell.
+Or else, the directory is opened in `dired-mode'."
+  (interactive)
+  (when (file-exists-p shellcop-jump-around-data-file)
+    ;; Emacs use gzip to extract plain text file "~/.z"
+    (let* ((content (shell-command-to-string (format "cat %s" 
shellcop-jump-around-data-file)))
+           (dirs (mapcar (lambda (line)
+                           ;; line's format: "dir | score | timestamp"
+                           (let* ((a (split-string line "|")))
+                             (cons (nth 0 a) (string-to-number (nth 2 a)))))
+                         (split-string (string-trim content))))
+           dest
+           pattern
+           shell-window)
+      ;; sort by timestamp in descending order
+      (setq dirs (sort dirs (lambda (a b) (> (cdr a) (cdr b)))))
+      (when (> (length dirs) 0)
+        (setq pattern
+              (read-string "pattern to filter directory (or leave it empty): 
"))
+        (unless (string= pattern "")
+          (setq dirs
+                (cl-remove-if-not (lambda (d) (string-match pattern (car d)))
+                                  dirs)))
+        ;; only directory candidate, select it
+        (cond
+         ((eq (length dirs) 1)
+          (setq dest (car (nth 0 dirs))))
+         (t
+          (setq dest (completing-read "Select directory: " dirs))))
+
+        (when dest
+          (cond
+           ((derived-mode-p 'comint-mode)
+            ;; press return key to clear up current input
+            (comint-send-input)
+            ;; cd into "dest" directory
+            (insert "cd " dest))
+
+           ;; jump to the shell
+           ((setq shell-window (shellcop-get-window 
shellcop-shell-buffer-name))
+            (shellcop-focus-window shellcop-shell-buffer-name
+                                   (lambda (keyword)
+                                     (ignore keyword)
+                                     (insert "cd " dest))))
+
+           (t
+            (dired dest))))))))
+
 (provide 'shellcop)
 ;;; shellcop.el ends here