ryuslash/clark
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Change that crazy name

Browse source 
Practical Common Lisp suggested that most Lisp projects used Java-like
naming schemes. I have not seen this happen in the real world so much.
This commit is contained in:
Tom Willemse 2013-10-06 14:30:15 +02:00
parent 31f1be23f2
commit 97d631db55
6 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/clark.lisp
View file

@ -17,7 +17,7 @@
;;; Code: ;;; Code:
(in-package :org.ryuslash.clark) (in-package :clark)
(defvar *db* nil (defvar *db* nil
"The database connection.") "The database connection.")
@ -144,14 +144,14 @@ the help command."
(defun load-rc () (defun load-rc ()
"Load the RC file." "Load the RC file."
(let ((*package* (in-package :org.ryuslash.clark))) (let ((*package* (in-package :clark)))
(load (get-rc-location) :if-does-not-exist nil))) (load (get-rc-location) :if-does-not-exist nil)))
(eval-when (:compile-toplevel :load-toplevel :execute) (eval-when (:compile-toplevel :load-toplevel :execute)
(defun make-command-name (base) (defun make-command-name (base)
"Turn BASE into the name of a possible command." "Turn BASE into the name of a possible command."
(intern (concatenate 'string (string-upcase base) "-COMMAND") (intern (concatenate 'string (string-upcase base) "-COMMAND")
:org.ryuslash.clark))) :clark)))
(defun parse-args (args) (defun parse-args (args)
"Parse command-line arguments ARGS. "Parse command-line arguments ARGS.
@ -159,7 +159,7 @@ the help command."
The executable name should already have been removed." The executable name should already have been removed."
(loop while (and args (char= (char (car args) 0) #\-)) (loop while (and args (char= (char (car args) 0) #\-))
do (case (intern (string-upcase (string-left-trim "-" (car args))) do (case (intern (string-upcase (string-left-trim "-" (car args)))
:org.ryuslash.clark) :clark)
(script (setf *script* t args (cdr args))) (script (setf *script* t args (cdr args)))
(t (with-error-and-help (t (with-error-and-help
1 "help" "Unknown option: ~a~%" (car args))))) 1 "help" "Unknown option: ~a~%" (car args)))))

2
lisp/commands.lisp
View file

@ -17,7 +17,7 @@
;;; Code: ;;; Code:
(in-package :org.ryuslash.clark) (in-package :clark)
(defcommand add (url name description &rest tags) (defcommand add (url name description &rest tags)
"Add a new bookmark." "Add a new bookmark."

2
lisp/make-image.lisp
View file

@ -29,6 +29,6 @@
"clark" :toplevel "clark" :toplevel
(lambda () (lambda ()
(sb-posix:putenv (format nil "SBCL_HOME=~A" #.(sb-ext:posix-getenv "SBCL_HOME"))) (sb-posix:putenv (format nil "SBCL_HOME=~A" #.(sb-ext:posix-getenv "SBCL_HOME")))
(org.ryuslash.clark:clark sb-ext:*posix-argv*) (clark:clark sb-ext:*posix-argv*)
0) 0)
:executable t) :executable t)

2
lisp/package.lisp
View file

@ -17,6 +17,6 @@
;;; Code: ;;; Code:
(defpackage :org.ryuslash.clark (defpackage :clark
(:use :cl :sqlite) (:use :cl :sqlite)
(:export :clark)) (:export :clark))

2
lisp/queries.lisp
View file

@ -17,7 +17,7 @@
;;; Code: ;;; Code:
(in-package :org.ryuslash.clark) (in-package :clark)
(defmacro sql (&body body) (defmacro sql (&body body)
(apply 'concatenate 'string (apply 'concatenate 'string

2
run-clark
View file

@ -24,4 +24,4 @@
sbcl --eval "(require 'sqlite)" \ sbcl --eval "(require 'sqlite)" \
--load lisp/package.lisp --load lisp/clark.lisp \ --load lisp/package.lisp --load lisp/clark.lisp \
--eval "(org.ryuslash.clark:clark sb-ext:*posix-argv*)" --eval "(clark:clark sb-ext:*posix-argv*)"