elisp: consult-ripgrep with symbol-at-point and directory to search

my-consult-ripgrep.el

(defun my-consult-ripgrep (&optional parg dir initial)
  "`consult-ripgrep` with symbol-at-point.
Besides, it can be Specified top directory to search using prefix-argument, e.g. C-u."
  (interactive "p")
  (setq initial (thing-at-point 'symbol))
  (setq dir (pcase parg
              (1 nil)               ;; not given prefix-arg
              (t (let ((insert-default-directory t))
                   (read-directory-name "Ripgrep Dir: ")))))
  (consult-ripgrep dir initial)))