(defun user-reset-log-store ()
  (interactive)
  (cider--pprint-eval-form
   "(require 'user) (reset! user/log-store {})"))

(defun user-tags ()
  (interactive)
  (cider--pprint-eval-form "(user/tags)"))

(defun user-logs (&optional index-or-name)
  (interactive)
  (let* ((form (read-from-minibuffer "index-or-name: " index-or-name))
         (command (if (string-match form "")
                      "(user/tags)"
                    (format "(user/logs %s first)" form))))
    (cider--pprint-eval-form command)))

(global-set-key (kbd "s-5") 'user-reset-log-store)
(global-set-key (kbd "s-6") 'user-tags)
(global-set-key (kbd "s-7") 'user-logs)