Re: How to count number of C-u prefixes?

[Jean Louis <bugs@gnu.support>]

* Emanuel Berg via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org> [2022-02-04 17:32]:
> Jean Louis wrote:
> 
> > I would like this function to give me number of times I have
> > pressed C-u, and here is the attempt to solve it:
> >
> > (defun how-many-times (&optional prefix query)
> >   (interactive "p")
> >   (let* ((times (if (> prefix 1) (1+ (/ (sqrt prefix) 4)) 1)))
> >     (message "Times %s" times)))
> 
> (defun how-many-times (&optional times)
>   (interactive "p")
>   (message "Super-Jean: %d" (log times 4)) )

I was confused,  did not sleep enoug  last 7 days. Instead  of `log' I
was using `sqrt'  imagine. But I needed `log'. Thanks  for lively help
from Sweden.

I have  now improved  the function  which I  wanted. It  generates SQL
query based on the number of C-u prefixes. It is useful when I need to
find both  "⟦" and "wrs-latest-pages"  and "'("  in the text  or other
multiple terms.

(defun hyperscope-by-text-query (&optional prefix query)
  "Search `hyobjects_text' column for QUERY.

User may invoke C-u PREFIX for multiple queries to be searched in
the text."
  (interactive "p")
  (let* ((times (if (= prefix 1) 1 (log prefix 4)))
	 (query (or query (rcd-ask-times times "Hyperscope query: ")))
	 (query (mapcar 'nil-blank-string query))
	 (query (delq nil query)))
    (when query
      (let* ((sql-query (mapconcat (lambda (i) (format " hyobjects_text ~* %s " (sql-escape-string i))) query " AND "))
	     (id-list (rcd-sql-list (format "SELECT hyobjects_id FROM hyobjects WHERE %s ORDER BY hyobjects_id DESC" sql-query) hs-db)))
	(hyperscope nil nil nil nil nil id-list)))))

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/