org-seek.el

   1 ;;; org-seek.el --- Searching Org-mode files with search tools.
   2
   3 ;; Author: stardiviner <numbchild@gmail.com>
   4 ;; Maintainer: stardiviner <numbchild@gmail.com>
   5 ;; Keywords: org search
   6 ;; URL: https://github.com/stardiviner/org-seek.el
   7 ;; Created: 12th Dec 2016
   8 ;; Version: 0.1.0
   9 ;; Package-Requires: ((emacs "24.3") (ag "0.48"))
  10
  11 ;;; Commentary:
  12
  13 ;;; Code:
  14 ;;; ----------------------------------------------------------------------------
  15 ;; load function `ag/read-from-minibuffer', `ag/search'
  16 (require 'ag)
  17 (require 'cl-lib)
  18
  19 (defgroup org-seek nil
  20   "Org files searching."
  21   :group 'org)
  22
  23 (defcustom org-seek-org-root-path "~/Org"
  24   "The default root path of your Org-mode files."
  25   :type 'string
  26   :group 'org-seek)
  27
  28 (defcustom org-seek-search-tool 'ag
  29   "Specify the search tool for searching.
  30
  31 The search tool can be: ag, pt, ripgrep, grep, ack."
  32   :type 'symbol
  33   :group 'org-seek)
  34
  35
  36 ;;;###autoload
  37 (defun org-seek-string (string directory)
  38   "Full context searching STRING using ag in a given DIRECTORY.
  39
  40 By default STRING is the symbol under point unless called with a
  41 prefix, prompts for flags to pass to ag."
  42   (interactive
  43    (list
  44     (read-from-minibuffer "Search string in Org:" (thing-at-point 'symbol))
  45     (read-directory-name "Directory: " (expand-file-name "~/Org"))
  46     ))
  47
  48   (cl-case org-seek-search-tool
  49     ('ag
  50      ;; (ag/search string directory :regexp nil :file-type 'org)
  51      (ag/search string directory
  52                 :regexp nil :file-regex ".*\.org"))
  53     ('pt
  54      (pt-regexp string directory))
  55     ('ripgrep
  56      (ripgrep-regexp string directory))
  57     )
  58   )
  59
  60 ;;;###autoload
  61 (defun org-seek-regexp (regexp directory)
  62   "Full context searching REGEXP using ag in a given DIRECTORY.
  63
  64 By default REGEXP is the symbol under point unless called with a
  65 prefix, prompts for flags to pass to ag."
  66   (interactive
  67    (list
  68     (read-from-minibuffer "Search regexp in Org:" (thing-at-point 'symbol))
  69     (read-directory-name "Directory: " (expand-file-name "~/Org"))
  70     ))
  71
  72   (cl-case org-seek-search-tool
  73     ('ag
  74      (ag/search regexp directory
  75                 :regexp nil :file-regex ".*\.org"))
  76     ('pt
  77      (pt-regexp regexp directory))
  78     ('ripgrep
  79      (ripgrep-regexp regexp directory))
  80     )
  81   )
  82
  83 ;;;###autoload
  84 (defun org-seek-headlines (string directory)
  85   "Search STRING in Org files headlines using ag in a given DIRECTORY.
  86
  87 By default STRING is the symbol under point unless called with a
  88 prefix, prompts for flags to pass to ag."
  89   (interactive
  90    (list
  91     (read-from-minibuffer "Search headlines in Org:" (thing-at-point 'symbol))
  92     (read-directory-name "Directory: "
  93                          (expand-file-name (if current-prefix-arg "~/Org" ".")))
  94     ))
  95
  96   (cl-case org-seek-search-tool
  97     ('ag
  98      (ag/search (concat "^(\\*)+\ .*" string) directory
  99                 :regexp t :file-regex ".*\.org"))
 100     ('pt
 101      (pt-regexp (concat "^(\\*)+\ .*" string) directory))
 102     ('ripgrep
 103      (ripgrep-regexp (concat "^(\\*)+\ .*" string) directory))
 104     ;; TODO
 105     ;; ('grep
 106     ;;  (rgrep (concat "^(\\*)+\ .*" string) org directory))
 107     ;; TODO
 108     ;; ('ack
 109     ;;  (ack))
 110     )
 111
 112   ;; the real shell command and regexp result:
 113   ;; ag --file-search-regex .\*.org --group --line-number --column --color --color-match 30\;43 --color-path 1\;32 --smart-case --stats -- \^\(\\\*\)\+.\*time .
 114   )
 115
 116 ;;; ----------------------------------------------------------------------------
 117
 118 (provide 'org-seek)
 119
 120 ;;; org-seek.el ends here