Add simple searching

1 files changed, 15 insertions, 1 deletions

diff --git a/src/markam.scm b/src/markam.scm
index 0079f64..5d6581f 100644
--- a/src/markam.scm
+++ b/src/markam.scm
@@ -74,6 +74,18 @@
                            bookmark-id tag-id)))
               tags)))
 
+(define (search-bookmarks db str)
+  (for-each-row print-row db #<<END
+                SELECT *
+                FROM bookmark
+                WHERE name LIKE ?
+                OR ? IN (SELECT name
+                                FROM tag
+                                JOIN bookmark_tag ON (tag_id = tag.rowid)
+                                WHERE bookmark_id = bookmark.rowid)
+END
+                (string-append "%" str "%") str))
+
 ;; Is STR a URL? Very naïve, assumes all URLs begin with either
 ;; `http://' or `https://', should be improved.
 (define (url-string? str)
@@ -92,7 +104,7 @@
               "--help, -h     Display this help and exit~%"
               "--version, -v  Output version information and exit~%")))
 
-;; Parse command-line arguments
+;; Parse "other" command-line arguments
 (define (handle-regular-args args)
   (do ((arg (car args) (and (not (null? args))
                             (car args))))
@@ -120,6 +132,8 @@
        db (lambda ()
             (add-bookmark
              db (car args) (cadr args) (caddr args) (cdddr args)) #t)))
+     ((string= (car args) "search")
+      (search-bookmarks db (cadr args)))
      (else
       (handle-regular-args args)))
     (finalize! db #t)))