scratchy.lisp

(defcommand bookmark-url (input)
    "Bookmark a URL"
    (let ((db (sqlite:connect
               (truename (probe-file *bookmark-db-path*)))))
      (sqlite:execute-non-query
       db "insert into bookmarks (url) values (?)" input)
      (sqlite:disconnect db)))


(defun bookmark-url (input)
  "Bookmark a URL"
  (let ((db (sqlite:connect
	     (truename (probe-file *bookmark-db-path*)))))
    (sqlite:execute-non-query
     db "insert into bookmarks (url) values (?)" input)
    (sqlite:disconnect db)))