Search fish history using ivy mode

counsel-yank-fish-history.el

;; mod from http://blog.binchen.org/posts/use-ivy-mode-to-search-bash-history.html
(require 'dash)
(defun counsel-yank-fish-history ()
  "Yank the fish history"
  (interactive)
  (let (hist-cmd collection val)
    (shell-command "history -r") ; reload history
    (setq collection
          (nreverse
           (split-string (with-temp-buffer (insert-file-contents (file-truename "~/.config/fish/fish_history"))
                                           (buffer-string))
                         "\n"
                         t)))
    (setq collection
          (--keep  (replace-regexp-in-string "- cmd: " "" it)
                   (--filter (string-match "^- cmd:" it) collection)))
    (when (and collection (> (length collection) 0)
               (setq val (if (= 1 (length collection)) (car collection)
                           (ivy-read (format "Fish history:") collection))))
      (kill-new val)
      (message "%s => kill-ring" val))))