u/naryl/qsp-txt2web Files · src/class.lisp

txt->qsps, remove FOR and IMG, broken LOCAL and LOOP

naryl - - Load All Authors

File last commit:

r49:cd6f7adb default


                r60:517f9c14

default

Download file

             class.lisp
        
                    14 lines
            
             | 702 B
            
                | text/x-common-lisp
            
             |
                CommonLispLexer
            
             / src / class.lisp
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

      (in-package txt2web)

      (defclass compiler ()

        ((body :accessor body :initform #.(load-src "extras/body.html"))

         (css  :accessor css  :initform (list #.(load-src "extras/default.css")))

         (js   :accessor js   :initform (reverse

                                         (list

                                          '#.(read-progn-from-string (load-src "src/main.ps"))

                                          '#.(read-progn-from-string (load-src "src/api.ps"))

                                          '#.(read-progn-from-string (load-src "src/intrinsics.ps")))))

         (compile :accessor compile-only :initarg :compile)

         (target  :accessor target :initarg :target)

         (beautify :accessor beautify :initarg :beautify)))

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages


				(in-package txt2web)

				(defclass compiler ()
				((body :accessor body :initform #.(load-src "extras/body.html"))
				(css :accessor css :initform (list #.(load-src "extras/default.css")))
				(js :accessor js :initform (reverse
				(list
				'#.(read-progn-from-string (load-src "src/main.ps"))
				'#.(read-progn-from-string (load-src "src/api.ps"))
				'#.(read-progn-from-string (load-src "src/intrinsics.ps")))))
				(compile :accessor compile-only :initarg :compile)
				(target :accessor target :initarg :target)
				(beautify :accessor beautify :initarg :beautify)))