From e0de73798ceb9e105c743aa2310f43128d520d4e Mon Sep 17 00:00:00 2001 From: stardiviner Date: Tue, 13 Dec 2016 20:13:02 +0800 Subject: [PATCH] rename search engine to search tool. --- org-searching.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/org-searching.el b/org-searching.el index 7b8868c..fc07813 100644 --- a/org-searching.el +++ b/org-searching.el @@ -1,4 +1,4 @@ -;;; org-searching.el --- Searching Org-mode files with search engines. +;;; org-searching.el --- Searching Org-mode files with search tools. ;; Author: stardiviner ;; Maintainer: stardiviner @@ -25,10 +25,10 @@ :type 'string :group 'org-searching) -(defcustom org-searching-search-engine 'ag - "Specify the search engine for searching. +(defcustom org-searching-search-tool 'ag + "Specify the search tool for searching. -The search engines can be: ag, pt, ripgrep, grep, ack." +The search tool can be: ag, pt, ripgrep, grep, ack." :type 'symbol :group 'org-searching) @@ -45,7 +45,7 @@ prefix, prompts for flags to pass to ag." (read-directory-name "Directory: " (expand-file-name "~/Org")) )) - (cl-case org-searching-search-engine + (cl-case org-searching-search-tool ('ag ;; (ag/search string directory :regexp nil :file-type 'org) (ag/search string directory @@ -69,7 +69,7 @@ prefix, prompts for flags to pass to ag." (read-directory-name "Directory: " (expand-file-name "~/Org")) )) - (cl-case org-searching-search-engine + (cl-case org-searching-search-tool ('ag (ag/search regexp directory :regexp nil :file-regex ".*\.org")) @@ -93,7 +93,7 @@ prefix, prompts for flags to pass to ag." (expand-file-name (if current-prefix-arg "~/Org" "."))) )) - (cl-case org-searching-search-engine + (cl-case org-searching-search-tool ('ag (ag/search (concat "^(\\*)+\ .*" string) directory :regexp t :file-regex ".*\.org")) -- 2.11.4.GIT