Tom Willemsen
6d1a3b02e0
- Add constant `*version*' which contains the version number of the project. - Change `db-connect' to `check-db'. Update to using sqlite functions instead of cl-sql ones. - Move the bookmark collection loop to `get-bookmarks'. - When starting up, if the length of args is greater than 1 check if the given option is a known "command" and if so, call it with the command line arguments (minus the first). Otherwise show all the bookmarks.
16 lines
355 B
Common Lisp
16 lines
355 B
Common Lisp
#-sbcl
|
|
(error "This lisp implementation iss not supported.")
|
|
|
|
(require 'asdf)
|
|
(require 'sqlite)
|
|
(require 'mcclim)
|
|
|
|
(asdf:oos 'asdf:load-op 'clark)
|
|
|
|
(save-lisp-and-die
|
|
"clark" :toplevel
|
|
(lambda ()
|
|
(sb-posix:putenv (format nil "SBCL_HOME=~A" #.(sb-ext:posix-getenv "SBCL_HOME")))
|
|
(org.ryuslash.clark:clark sb-ext:*posix-argv*)
|
|
0)
|
|
:executable t)
|