Homemade emacs-lisp functions to search bash history and copy commands to the clipboard

hist.el

(defun ariel/get-file-lines (filename)
(with-temp-buffer (insert-file-contents filename)
(cl-remove-duplicates (split-string (buffer-string) "\n" t)))
  )

(defun ariel/copy-string-to-clipboard (str)
  (with-temp-buffer (insert str)
   (clipboard-kill-region (point-min) (point-max))))

(defun ariel/get-command-from-bash-history ()
(interactive)
(let* (
       (strs (ariel/get-file-lines "~/.bash_history"))
       )
(ivy-read "Bash History: " strs :action (lambda (x) (ariel/copy-string-to-clipboard x)))))