diff --git a/modules/defuns/defuns-org-notebook.el b/modules/defuns/defuns-org-notebook.el index 18fa2ea47..05fb40cce 100644 --- a/modules/defuns/defuns-org-notebook.el +++ b/modules/defuns/defuns-org-notebook.el @@ -120,5 +120,25 @@ to-delete) (setq narf-org-attachments-list attachments))) + +;; +;; Easy searching +;; + +;; Ex-mode interface for `helm-ag'. If `bang', then `search' is interpreted as +;; regexp. +;;;###autoload (autoload 'narf:org-helm-ag-search "defuns-org-notebook" nil t) +(evil-define-operator narf:org-helm-ag-search (beg end &optional search hidden-files-p regex-p) + :type inclusive :repeat nil + (interactive "") + (in! org-directory + (narf:helm-ag-search beg end search bang t t))) + +;;;###autoload (autoload 'narf:org-helm-ag-regex-search "defuns-org-notebook" nil t) +(evil-define-operator narf:org-helm-ag-regex-search (beg end &optional search bang) + :type inclusive :repeat nil + (interactive "") + (narf:org-helm-ag-search beg end search bang t)) + (provide 'defuns-org-notebook) ;;; defuns-org-notebook.el ends here diff --git a/private/my-commands.el b/private/my-commands.el index dc9899cf0..f36987d60 100644 --- a/private/my-commands.el +++ b/private/my-commands.el @@ -74,6 +74,9 @@ ;; Org-mode (exmap "att[ach]" 'narf:org-attach) (exmap "link" 'narf:org-link) +;; ag-powered search for org-files +(exmap "oag" 'narf:org-helm-ag-search) +(exmap "oagr" 'narf:org-helm-ag-regex-search) ;; Plugins (after! flycheck