mirror of https://github.com/djcb/mu.git
Add --expr flag to constrain search when looking for duplicates
(mu:for-each-message ...) allows an optional expression to be passed so that only messages matching that expression are searched when looking for duplicates. This patch adds a --expr flag so that e.g. find-dups.scm --expr d:6m..3m will reduce the range of messages to those between 3 and 6 months ago to search for duplicates. I found this useful when using expressions to find messages in a particular year, rather than searching the whole database. This is often quicker and less worrying than searching the whole database. If --expr is not provided, expr should default to #t so that the whole database is searched as before.
This commit is contained in:
parent
c9f8ac5beb
commit
e559b6e732
|
@ -34,7 +34,7 @@ exec guile -e main -s $0 $@
|
||||||
(close-pipe port)
|
(close-pipe port)
|
||||||
md5))
|
md5))
|
||||||
|
|
||||||
(define (find-dups delete)
|
(define (find-dups delete expr)
|
||||||
(let ((id-table (make-hash-table 20000)))
|
(let ((id-table (make-hash-table 20000)))
|
||||||
;; fill the hash with <msgid-size> => <list of paths>
|
;; fill the hash with <msgid-size> => <list of paths>
|
||||||
(mu:for-each-message
|
(mu:for-each-message
|
||||||
|
@ -45,7 +45,8 @@ exec guile -e main -s $0 $@
|
||||||
(if lst
|
(if lst
|
||||||
(set! lst (cons (mu:path msg) lst))
|
(set! lst (cons (mu:path msg) lst))
|
||||||
(set! lst (list (mu:path msg))))
|
(set! lst (list (mu:path msg))))
|
||||||
(hash-set! id-table id lst))))
|
(hash-set! id-table id lst)))
|
||||||
|
expr)
|
||||||
;; list all the paths with multiple elements; check the md5sum to
|
;; list all the paths with multiple elements; check the md5sum to
|
||||||
;; make 100%-minus-ε sure they are really the same file.
|
;; make 100%-minus-ε sure they are really the same file.
|
||||||
(hash-for-each
|
(hash-for-each
|
||||||
|
@ -88,17 +89,20 @@ exec guile -e main -s $0 $@
|
||||||
Interpret argument-list ARGS (like command-line
|
Interpret argument-list ARGS (like command-line
|
||||||
arguments). Possible arguments are:
|
arguments). Possible arguments are:
|
||||||
--muhome (path to alternative mu home directory).
|
--muhome (path to alternative mu home directory).
|
||||||
--delete (delete all but the first one). Run mu index afterwards."
|
--delete (delete all but the first one). Run mu index afterwards.
|
||||||
|
--expr (expression to constrain search)."
|
||||||
(setlocale LC_ALL "")
|
(setlocale LC_ALL "")
|
||||||
(let* ((optionspec '( (muhome (value #t))
|
(let* ((optionspec '( (muhome (value #t))
|
||||||
(delete (value #f))
|
(delete (value #f))
|
||||||
|
(expr (value #t))
|
||||||
(help (single-char #\h) (value #f))))
|
(help (single-char #\h) (value #f))))
|
||||||
(options (getopt-long args optionspec))
|
(options (getopt-long args optionspec))
|
||||||
(help (option-ref options 'help #f))
|
(help (option-ref options 'help #f))
|
||||||
(delete (option-ref options 'delete #f))
|
(delete (option-ref options 'delete #f))
|
||||||
|
(expr (option-ref options 'expr #t))
|
||||||
(muhome (option-ref options 'muhome #f)))
|
(muhome (option-ref options 'muhome #f)))
|
||||||
(mu:initialize muhome)
|
(mu:initialize muhome)
|
||||||
(find-dups delete)))
|
(find-dups delete expr)))
|
||||||
|
|
||||||
|
|
||||||
;; Local Variables:
|
;; Local Variables:
|
||||||
|
|
Loading…
Reference in New Issue