awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-02 14:53:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Simplify :ag interface + add :org

Browse Source
This commit is contained in:
Henrik Lissner
2016-03-11 19:30:38 -05:00
parent 4e49b86f68
commit 65c0410925
2 changed files with 9 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
modules/defuns/defuns-org-notebook.el
View File

@@ -130,18 +130,10 @@
;; 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
;;;###autoload (autoload 'narf:org-helm-search "defuns-org-notebook" nil t)
(evil-define-operator narf:org-helm-search (beg end &optional search bang)
(interactive "<r><a><!>")
(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 "<r><a><!>")
(narf:org-helm-ag-search beg end search bang t))
(narf:helm-ag-search beg end (if bang (concat "^\\*+.*" search ".*$") search) t org-directory))
(provide 'defuns-org-notebook)
;;; defuns-org-notebook.el ends here