snails 怎么能写一个 snails-home 的函数

WingDust · 2022 年8 月 26 日 00:50

安装了猫哥的 snails ，使用后都是搜索默认打开路径 ,想写一个默认搜索 home 目录的 snails-home 函数且不影响原始搜索路径，不知道怎么写，求助一下。

manateelazycat · 2022 年8 月 26 日 01:44

读一读 snails-pick-search-info-from-input 函数的注释吧，哈哈哈哈

manateelazycat/snails/blob/f831976a1d3b8c554c3c77160e13275ac58270e1/snails-core.el#L1544


      
              (string-match-p (regexp-quote input) candidate-content)))
          
          
(defun snails-start-buffer-dir ()
            "Get directory of `snails-start-buffer'.
          
          
If `snails-start-buffer' is nil, get path of HOME."
            (if snails-start-buffer
                snails-start-buffer-dir-path
              (expand-file-name "~")))
          
          
(defun snails-pick-search-info-from-input (input)
            "If nothing after @ , return HOME path and search string.
          If type soemthing after @ , split input with input-dir and search-content.
          Otherwise return nil."
            (when (string-match-p "@" input)
              (let (search-content input-dir)
                (setq search-content (split-string input "@"))
                (setq input-dir (cl-second search-content))
                (cond ((equal input-dir "")
                       (list (expand-file-name "~") (cl-first search-content)))
                      ((file-exists-p input-dir)