Commit e536d969 authored by Didier Verna's avatar Didier Verna
Browse files

Move Lisp code to a subdirectory. Cleanup systems.

parent 6b7e26b0
;;; meta.lisp --- Meta utiities
;; Copyright (C) 2018 EPITA Research and Development Laboratory
;; Author: Antoine Martin <antoine4.martin@epita.fr>
;; This file is part of Quickref.
;; Permission to use, copy, modify, and distribute this software for any
;; purpose with or without fee is hereby granted, provided that the above
;; copyright notice and this permission notice appear in all copies.
;; THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;;; Code:
(in-package :cl-user)
;; -------------------
;; Package definition:
;; -------------------
(defpackage quickref
(:documentation "The Quickref package.")
(:use :cl)
(:import-from :alexandria
:starts-with-subseq)
(:import-from :sb-ext
:run-program
:native-namestring)
(:import-from :sb-thread
:make-thread
:make-mutex
:make-waitqueue
:with-mutex
:condition-notify
:condition-wait
:join-thread)
(:import-from :cl-ppcre
:regex-replace)
(:import-from :clmark
:cmark-markdown-to-html)
(:import-from :3bmd
:parse-string-and-print-to-stream)
(:export :print-primary-systems
:get-primary-system-name
:from-quickref-dir
:find-readme
:build-texis
:build-index
:build-releases
:refresh))
;;; meta.lisp ends here
;;; quickref.asd --- ASDF system definition, core library
;; Copyright (C) 2018 EPITA Research and Development Laboratory
;; Author: Antoine Martin <antoine4.martin@epita.fr>
;; This file is part of Quickref.
;; Permission to use, copy, modify, and distribute this software for any
;; purpose with or without fee is hereby granted, provided that the above
;; copyright notice and this permission notice appear in all copies.
;; THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;;; Code:
(asdf:defsystem :quickref.core
:description "Quickref core functionality"
:long-description "\
For a more complete description of Quickref, see the quickref system."
:author "Antoine Martin"
:license "BSD"
:depends-on (:quicklisp :alexandria :cl-ppcre :clmark :3bmd
:net.didierverna.declt)
:serial t
:components ((:file "meta")
(:module "src"
:components ((:file "quickref")
(:file "qrmapper")
(:file "website")
(:file "file")))))
;;; quickref.asd ends here
......@@ -143,7 +143,7 @@
(defun copy-stylesheets ()
(let ((styles '("main.css" "document.css"))
(css-dir (merge-pathnames "css/"
(css-dir (merge-pathnames #p"share/css/"
(asdf:system-source-directory "quickref")))
(website-dir (from-quickref-dir "website/")))
(dolist (file styles)
......
......@@ -39,8 +39,9 @@
(defvar *sbcl-program* sb-ext:*runtime-pathname*)
(defvar *init-file* (merge-pathnames "qrmapper-init.lisp"
(asdf:system-source-directory "quickref")))
(defvar *init-file*
(merge-pathnames #p"src/qrmapper-init.lisp"
(asdf:system-source-directory "quickref.core")))
(defun native-truename (file)
(native-namestring (truename file)))
......
......@@ -21,36 +21,6 @@
;;; Code:
(defpackage quickref
(:use :cl)
(:import-from :alexandria
:starts-with-subseq)
(:import-from :sb-ext
:run-program
:native-namestring)
(:import-from :sb-thread
:make-thread
:make-mutex
:make-waitqueue
:with-mutex
:condition-notify
:condition-wait
:join-thread)
(:import-from :cl-ppcre
:regex-replace)
(:import-from :clmark
:cmark-markdown-to-html)
(:import-from :3bmd
:parse-string-and-print-to-stream)
(:export :print-primary-systems
:get-primary-system-name
:from-quickref-dir
:find-readme
:build-texis
:build-index
:build-releases
:refresh))
(in-package :quickref)
(defun remove-cl-prefix (name)
......
......@@ -79,7 +79,7 @@
upletter upletter))))
(defun print-index-header (file)
(with-open-file (header (merge-pathnames "header.template"
(with-open-file (header (merge-pathnames #p"share/header.template"
(asdf:system-source-directory "quickref"))
:direction :input)
(let ((contents (make-string (file-length header))))
......
......@@ -21,14 +21,15 @@
;;; Code:
(asdf:defsystem quickref
(asdf:defsystem :quickref
:description "Reference Manuals for Quicklisp Libraries"
:long-description "\
Quickref is a global documentation project for Common Lisp libraries.
Quickref uses Declt to automatically generate reference manuals for all
libraries available in Quicklisp. Reference manuals are generated in HTML
and made available online at http://quickref.common-lisp.net."
:author "Antoine Martin"
:depends-on (:quicklisp :alexandria :net.didierverna.declt
:cl-ppcre :clmark :3bmd)
:serial t
:components ((:file "quickref")
(:file "qrmapper")
(:file "website")
(:file "file")))
:license "BSD"
:depends-on (:quickref.core))
;;; quickref.asd ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment