;;; ycp-grep.el -- My config for search -*- lexical-binding: t -*-

;; Copyright (C) 2023 Free Software Foundation.

;; Author: Yuchen Pei <id@ypei.org>
;; Package-Requires: ((emacs "28.2"))

;; This file is part of dotfiles.

;; dotfiles is free software: you can redistribute it and/or modify it under
;; the terms of the GNU Affero General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; dotfiles is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Affero General
;; Public License for more details.

;; You should have received a copy of the GNU Affero General Public
;; License along with dotfiles.  If not, see <https://www.gnu.org/licenses/>.

;;; Commentary:

;; My config for search. Covers grep, search, isearch, occur, recoll
;; etc.

;;; Code:


;;; `grep' package
(my-package grep
  (:delay 10)
  (setq grep-command "grep -inRH --color -A1 -B1 -E ")
  ;; in the form of (string . position), see docs of read-from-minibuffer
  (setq grep-find-command
        '("find . -type f -exec grep -inRH --color -A1 -B1 -E  \\{\\} +" . 52))
  (grep-apply-setting 'grep-find-template
                      "find -H <D> <X> -type f <F> -exec grep <C> -n --null -E -A1 -B1 <R> /dev/null \\{\\} +")
  (setq grep-files-aliases
        '(("all" .   "* .*")
          ("el" .    "*.el")
          ("ch" .    "*.[ch]")
          ("c" .     "*.c")
          ("cc" .    "*.cc *.cxx *.cpp *.C *.CC *.c++")
          ("cchh" .  "*.cc *.[ch]xx *.[ch]pp *.[CHh] *.CC *.HH *.[ch]++")
          ("hh" .    "*.hxx *.hpp *.[Hh] *.HH *.h++")
          ("h" .     "*.h")
          ("l" .     "[Cc]hange[Ll]og*")
          ("m" .     "[Mm]akefile*")
          ("tex" .   "*.tex")
          ("texi" .  "*.texi")
          ("asm" .   "*.[sS]")
          ("docs" . "*.md *.html *.rst *.org *.txt *.asciidoc *.adoc *.tex *.texi")))
  (my-keybind global-map
    "C-c r f" #'grep-find
    "C-c r g" #'grep)
  )

(my-package my-grep
  (:delay 10)
  ;; TODO: do we really need this?
  (advice-add 'grep :filter-return #'my-grep-focus-buffer)
)

(my-package isearch
  (:delay 5)
  (setq search-whitespace-regexp ".*?" ; one `setq' here to make it obvious they are a bundle
        isearch-lax-whitespace t
        isearch-regexp-lax-whitespace nil)
  (setq isearch-lazy-count t)
  (setq lazy-count-prefix-format nil)
  (setq lazy-count-suffix-format " (%s/%s)")
  (setq isearch-yank-on-move 'shift)
  (setq isearch-allow-scroll 'unlimited)
  (setq isearch-repeat-on-direction-change t)
  (define-key minibuffer-local-isearch-map (kbd "M-/") #'isearch-complete-edit)
  (my-keybind isearch-mode-map
    "C-g" #'isearch-cancel              ; instead of `isearch-abort'
    "M-/" #'isearch-complete
    "C-o" #'isearch-occur)
  )

(my-package replace
  (:delay 5)
  (add-hook 'occur-mode-hook #'hl-line-mode)
  (my-keybind occur-mode-map "t" #'toggle-truncate-lines)
  )


;;; `xref' package
(my-package xref
  ;; All those have been changed for Emacs 28
  (setq xref-show-definitions-function #'xref-show-definitions-completing-read) ; for M-.
  (setq xref-show-xrefs-function #'xref-show-definitions-buffer)
  )

;;; wgrep (writable grep)
(my-package wgrep
  (:install t)
  (:delay 15)
  (setq wgrep-auto-save-buffer t)
  (setq wgrep-change-readonly-file t)
  (my-keybind grep-mode-map
    "e" #'wgrep-change-to-wgrep-mode
    "C-x C-q" #'wgrep-change-to-wgrep-mode
    "C-c C-c" #'wgrep-finish-edit))

;;; org-recoll
(my-package org-recoll
  (:delay 60)
  (my-keybind org-recoll-mode-map
    "n" #'org-next-visible-heading
    "p" #'org-previous-visible-heading
    "f" #'org-recoll-next-page
    "b" #'org-recoll-previous-page
    "<ret>" #'org-open-at-point
    "q" #'quit-window))

(provide 'ycp-grep)