beancount-show supports interactive use

beancount.el

@@ -503,6 +503,8 @@ With an argument move to the previous non cleared transaction."
   "A list of the accounts available in this buffer.")
 (make-variable-buffer-local 'beancount-accounts)
 
+;; TODO: conditions here full test coverage. It seems that some of the
+;; cases do not work.
 (defun beancount-completion-at-point ()
   "Return the completion data relevant for the text at point."
   (save-excursion
@@ -1291,8 +1293,11 @@ beginning."
        (beancount-goto-next-transaction))))
 
 (defun beancount-show (target)
-  "Hide everything but transactions marked with a TARGET (a link or
-a tag)."
+  "Only show transactions marked with a TARGET (a link or a tag)."
+  (interactive
+   (list (completing-read
+          "Filter by tag/link:"
+          (beancount-collect-unique beancount-tag-or-link-regexp 0))))
   (beancount--hide-region (point-min) (point-max))
   (beancount-foreach-transaction
     (when (beancount--current-line-rematch-p (regexp-quote target))