.nomad.scm

(use-modules (ice-9 format))
(use-modules (nomad repl))
(use-modules (nomad browser))

;; give some quality of life
(define q query)
(define b back)
(define f forward)
(define o browse)
(define h home)

(define bookmarks '(
                    (1 . "https://www.gnu.org/software/guile/manual/html_node")
                    (2 . "reddit.com/r/emacs")
                    ))

(set! default-home-page "http://google.ca")

(define (pp-bookmarks)
  (define (print-bookmark arg)
    (format #t "~s ~s\n" (car arg) (cdr arg)))
  (map print-bookmark bookmarks))


(define (book key)
  (browse (assoc-ref bookmarks key)))

;; spawn a repl server
(repl-start)