diff --git a/lisp/functions.el b/lisp/functions.el
index 31a40801da065cbd0592b287b2333211c0848b42..c4dbb9da9fe0a94aaeefcb85338fcf4c092e831f 100644
--- a/lisp/functions.el
+++ b/lisp/functions.el
@@ -19,5 +19,16 @@
   (interactive)
   (find-file user/userconfig-file))
 
+(defun user/counsel-search-rg (&optional initial-directory)
+  "Searching with rg in Emacs.  If INITIAL-DIRECTORY is non nil
+start in that directory."
+  (interactive)
+  (require 'counsel)
+  (let* ((default-directory
+	   (or initial-directory (read-directory-name "Start from directory: ")))
+	 )
+    (counsel-rg "" default-directory nil "Searching with rg: "))
+  )
+
 (provide 'functions)
 ;;; functions.el ends here