all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* wrap-search 3.3.5
@ 2022-08-25 18:28 Emanuel Berg
  2022-08-25 18:34 ` Philip Kaludercic
  0 siblings, 1 reply; 56+ messages in thread
From: Emanuel Berg @ 2022-08-25 18:28 UTC (permalink / raw)
  To: emacs-devel

;;; wrap-search.el --- wrapped, non-incremental search -*- lexical-binding: t -*-
;;
;;; Commentary:
;;
;; Author: Emanuel Berg <incal@dataswamp.org>
;; Created: 2021-05-23 (package)
;; Keywords: matching
;; License: GPL3+
;; URL: https://dataswamp.org/~incal/emacs-init/wrap-search.el
;; Version: 3.3.5
;;
;; The `wrap-search' package offers non-incremental search.
;; It shows hitss - hits and only hits.
;;
;; `wrap-search' searches forward by default, but it wraps
;; and continues up and until the search start position if
;; necessary. This is so one doesn't have to wonder if the
;; target is north or south in the buffer.
;;
;; The philosophy is that `wrap-search' mostly shouldn't be
;; used for searching - that is possible as well, of course,
;; using the same command - rather, it is used to quickly
;; navigate a buffer.
;;
;; To use the package without keyboard shortcuts isn't
;; recommended. Instead, do for example
;;
;;   (global-set-key "\C-s" #'wrap-search)
;;   (global-set-key "\C-r" #'wrap-search-again)
;;
;;; Code:

(defun wrap-string-data-p (str)
  "Return STR if it is a string but not the empty string, \"\"."
  (and (stringp str)
       (not (string= str ""))
       str) )

(let ((prev-str)
      (prev-case)
      (prev-rev)
      (prev-beg)
      (prev-end) )
  (defun wrap-search-again ()
    (interactive)
    (if (wrap-string-data-p prev-str)
        (wrap-search prev-str prev-case prev-rev prev-beg prev-end)
      (message "no search has been done") ))
  (declare-function wrap-search-again nil)

  (defun show-prev-str ()
    (if (wrap-string-data-p prev-str)
        (let*((len   (length prev-str))
              (max   10)
              (short (when (< max len)
                       (substring prev-str 0 max) )))
          (format "[%s] " (if short
                              (format "%s..." short)
                            prev-str) ))
      ""))
  (declare-function show-prev-str nil)

  (defun wrap-search (str &optional case rev beg end)
    "Search for STR.

With CASE the search is case-sensitive.
With REV the search direction is reversed, i.e. north in the buffer from point.
BEG and END, or a region, delimits the search area. (default: whole buffer)

Interactively,
\\[universal-argument] sets CASE;
\\[universal-argument] \\[universal-argument] sets REV; and
\\[universal-argument] \\[universal-argument] \\[universal-argument] sets CASE and REV.

Do \\[wrap-search-again] to repeat, with `wrap-search-again'."
    (interactive
     `(,(read-string (format "search: %s" (show-prev-str)))
       ,(or (equal current-prefix-arg '( 4))
            (equal current-prefix-arg '(64)) )
       ,(or (equal current-prefix-arg '(16))
            (equal current-prefix-arg '(64)) )
       ,@(if (use-region-p)
             (list (region-beginning) (region-end))
           (list (point-min) (point-max)) )))
    (if (string= "" str)
        (wrap-search-again)
      (setq prev-str  str)
      (setq prev-case case)
      (setq prev-rev  rev)
      (setq prev-beg  beg)
      (setq prev-end  end)
      (let*((case-fold-search (not case))
            (pos (point))
            (data (if rev (list #'search-backward end beg)
                    (list #'search-forward beg end) ))
            (search-f (car data))
            (search-beg (cadr data))
            (search-end (caddr data)) )
        (if (apply (list search-f str search-end t))
            (message "hit: %s" (point))
          (goto-char search-beg)
          (if (apply (list search-f str (+ pos (if rev 0 (length str))) t))
              (if (= pos (point))
                  (message "this is the one occurrence")
                (message "hit: %s (wrap)" (point)) )
            (goto-char pos)
            (message "no hit") ))) ))
  (declare-function wrap-search nil) )

(provide 'wrap-search)
;;; wrap-search.el ends here

-- 
underground experts united
https://dataswamp.org/~incal




^ permalink raw reply	[flat|nested] 56+ messages in thread

end of thread, other threads:[~2022-09-02 21:10 UTC | newest]

Thread overview: 56+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2022-08-25 18:28 wrap-search 3.3.5 Emanuel Berg
2022-08-25 18:34 ` Philip Kaludercic
2022-08-25 18:50   ` Emanuel Berg
2022-08-25 19:05     ` Philip Kaludercic
2022-08-25 19:15       ` Emanuel Berg
2022-08-25 20:48         ` Philip Kaludercic
2022-08-26 19:46           ` Emanuel Berg
2022-08-26 23:46             ` Philip Kaludercic
2022-08-27  0:06               ` Emanuel Berg
2022-08-27  8:24                 ` Philip Kaludercic
2022-08-28  0:13                   ` Emanuel Berg
2022-08-28  8:07                     ` Philip Kaludercic
2022-08-28  8:30                       ` Andreas Schwab
2022-08-28  8:43                       ` Emanuel Berg
2022-08-28  9:00                         ` Philip Kaludercic
2022-08-28 21:02                           ` Emanuel Berg
2022-08-28 21:24                             ` Gregory Heytings
2022-08-28 21:31                               ` Emanuel Berg
2022-08-28 21:33                                 ` Emanuel Berg
2022-08-29  6:28                             ` Yuri Khan
2022-08-31  2:06                               ` Emanuel Berg
2022-08-31  9:04                                 ` Philip Kaludercic
2022-08-31  9:29                                   ` Emanuel Berg
2022-08-31 10:42                                     ` Gregory Heytings
2022-08-31 11:04                                       ` Emanuel Berg
2022-08-31 12:24                                         ` Gregory Heytings
2022-08-31 15:08                                           ` Emanuel Berg
2022-08-31 15:18                                             ` Gregory Heytings
2022-08-31 21:31                                               ` Emanuel Berg
2022-08-31 21:45                                                 ` [External] : " Drew Adams
2022-09-01  4:27                                                 ` tomas
2022-08-31 21:55                                               ` Emanuel Berg
2022-08-31 22:08                                                 ` Gregory Heytings
2022-09-01  0:46                                                   ` Emanuel Berg
2022-09-01 11:21                                                     ` Gregory Heytings
2022-09-01 17:02                                                       ` Emanuel Berg
2022-09-01 18:20                                                         ` Gregory Heytings
2022-09-01 19:17                                                           ` Emanuel Berg
2022-09-01 20:01                                                             ` Gregory Heytings
2022-09-01 20:52                                                               ` Emanuel Berg
2022-09-01 21:59                                                                 ` Gregory Heytings
2022-09-01 22:20                                                                   ` Emanuel Berg
2022-09-02  8:55                                                                   ` Yuri Khan
2022-09-02  9:03                                                                     ` Gregory Heytings
2022-09-02 21:10                                                                       ` Emanuel Berg
2022-08-31 14:54                                     ` Philip Kaludercic
2022-08-31 15:09                                       ` Emanuel Berg
2022-08-25 21:46       ` [External] : " Drew Adams
2022-08-25 20:26     ` Stefan Monnier
2022-08-25 22:08       ` Emanuel Berg
2022-08-25 22:23         ` Emanuel Berg
2022-08-26  1:10           ` Stefan Monnier
2022-08-26  2:17             ` Emanuel Berg
2022-08-25 22:47         ` Emanuel Berg
2022-08-25 22:19       ` Emanuel Berg
2022-08-26 10:17         ` Emanuel Berg

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.