Starting November 9th, common-lisp.net's Gitlab instance has implemented a more open account policy, allowing anyone with a GitHub or Google account to create an account on our instance.

At the same time, the login policy has started to require 2-factor authentication (2FA).

See https://mailman.common-lisp.net/pipermail/clo-devel/2018-October/001232.html for discussion.

Commit 117e5228 authored by Dave Cooper's avatar Dave Cooper

Merge branch 'release/1592a'

parents 5df9fe64 45d17b5c
......@@ -147,15 +147,19 @@
(the :section-descriptor)
(the :title)))
(label (string-append
(ecase (the :section-style)
(:document "doc")
((:chapter :chapter*) "chap")
((:section :section*) "sec")
((:subsection :subsection*) "subsec")
((:subsubsection :subsubsection*) "subsubsec"))
":"
(or (getf (the :attributes) :label) (title-to-label (the :title)))))
(label (glisp:replace-regexp
(glisp:replace-regexp
(string-append
(ecase (the :section-style)
(:document "doc")
((:chapter :chapter*) "chap")
((:section :section*) "sec")
((:subsection :subsection*) "subsec")
((:subsubsection :subsubsection*) "subsubsec"))
":"
(or (getf (the :attributes) :label) (title-to-label (the :title))))
".%.%" "")
".$.$" ""))
(section-descriptor (case (the :level)
(0 "Doc")
......@@ -281,16 +285,20 @@
(object (getf (rest (first (the :data))) :object))))
(defun title-to-label (title)
(replace-substring
(replace-substring
(glisp:replace-regexp
(glisp:replace-regexp
(replace-substring
(replace-substring
(replace-substring
(replace-substring
(string-downcase title)
" " "")
"{" "")
"}" "")
"'" "")
"`" "")
"\\texttt" ""))
(replace-substring
(replace-substring
(replace-substring
(string-downcase title)
" " "")
"{" "")
"}" "")
"'" "")
"`" "")
"\\texttt" "")
".%.%" "")
".$.$" ""))
......@@ -335,9 +335,27 @@
(with-cl-who ()
(:p (:table (:tr (:td (ecase (the style)
(:image-figure
(htm (:img :src (if (stringp (the image-file))
(concatenate 'string "images/" (the image-file))
(namestring (the image-file)))
(htm (:img :src (let* ((image-file (if (stringp (the image-file))
(concatenate 'string "images/" (the image-file))
(namestring (the image-file))))
(png-file (when (string-equal (pathname-type image-file) "pdf")
(make-pathname :type "png" :defaults image-file))))
(when png-file
(uiop:run-program
(list (format nil "~a" *gs-path*)
"-q"
(format nil "-sDEVICE=~a" "png256")
(format nil "-sOutputFile=~a" png-file)
(format nil "-dTextAlphaBits=~a" *gs-text-alpha-bits*)
(format nil "-dGraphicsAlphaBits=~a" *gs-graphics-alpha-bits*)
"-dSAFER"
"-dBATCH"
"-dNOPAUSE"
image-file))
;;(uiop:copy-file png-file (merge-pathnames (file-namestring png-file) "~/tmp/images/"))
)
(namestring (merge-pathnames (file-namestring (or png-file image-file)) "images/")))
:style (format nil "width:~a;height:~a;" (the width) (the height))
:alt (the caption))))
(:boxed-figure (dolist (element (list-elements (the :elements)))
......
......@@ -304,7 +304,9 @@
(read-from-string (the object))))))
out))
(load (compile-file drawing-file)))
(when (probe-file image-file) (delete-file image-file))
(uiop:copy-file (merge-pathnames "example.pdf" (glisp:temporary-folder))
image-file)
......
......@@ -28,6 +28,7 @@
#+nil
(defun replace-substring (string old new)
(let ((position (search old string)))
(if position
......
......@@ -31,7 +31,7 @@
(define-object assy (ass)
:computed-slots
((packages-to-ignore (list :gwl-user :yadd-test :yadd-sample :genworks))))
((packages-to-ignore (list :gwl-user :yadd-test :yadd-sample :genworks :stripe :documents))))
(define-object all (assembly)
:computed-slots
......
......@@ -325,6 +325,7 @@ loaderImg: '/static/gwl/tasty-unpix/loader.gif',loaderText: 'Narrowing Down...'}
(html (:html
(:head
(the default-header-content)
((:link :href "/static/gwl/style/top.css" :rel "stylesheet" :type "text/css"))
(:title "The " (:princ (the strings-for-display-verbose)) " Package"))
(:body
(when *developing?* (html (:p (the (write-development-links)))))
......
......@@ -317,7 +317,8 @@ If you specify :part-symbol-supplied, do not specify :instance-supplied."))
(setq pdf-file (merge-pathnames "example.pdf" (glisp:temporary-folder))
named-pdf-file (merge-pathnames (format nil "example-~(~a~).pdf" (the part-full-symbol))
"~/genworks/gendl/documentation/tutorial/images/"))
(uiop:copy-file pdf-file named-pdf-file))
(when (probe-file named-pdf-file) (delete-file named-pdf-file))
(uiop:copy-file pdf-file named-pdf-file))
`((:p (:textbf (:underline "Mixins:")) " "
,(format nil "~{~a~^, ~}" (mapcar #'(lambda (sym) (string sym)) (the mixins-list))))
......
......@@ -34,10 +34,14 @@ object. It contains links to default header content of a HTML
generated yadd page. This contains a link to the favicon.ico and a
link to a default CSS sheet. All these elements can be found in the
*gdl-install-dir*/static/gwl/ directories."
default-header-content (html
default-header-content (html
((:link :href "/static/gwl/images/favicon.ico"
:type "image/x-icon" :rel "icon"))))
(additional-header-content
(with-cl-who-string ()
(:link :href "/static/gwl/style/top.css" :rel "stylesheet" :type "text/css")))
("String of valid HTML. Contains standard jQuery files to include
in the header for additional search funcionality. This computed-slot
contains javascript files, found in the *gdl-install-dir* and used
......@@ -75,8 +79,7 @@ additional-header-js (with-cl-who-string ()
(when patch
(htm "p")
(str (format nil "~3,,,'0@a" patch))))))
((:p :class "copyrightFooter")
(:i "User Code Packages copyright © their respective authors"))))))
))))
:functions
((dom-body () `((:p "")))
......@@ -265,12 +268,23 @@ additional-header-js (with-cl-who-string ()
(remove nil
`(:item
(:index ,(format nil "~a" (the-object documentation symbol)))
(:label ,(format nil "prim:~(~a~)" (the-object documentation symbol)))
(:textbf ,(format nil "~a~a"
(the-object documentation symbol)
(if (the-object documentation :macro?)
" [Macro]" "")))
,@(the-object documentation dom-body))))
(:label ,(let ((label
(glisp:replace-regexp
(glisp:replace-regexp
(glisp:replace-regexp
(glisp:replace-regexp
(format nil "prim:~(~a~)" (the-object documentation symbol))
".%.%" "")
".$.$" "")
"\\$\\$" "dollardollar")
"%%" "percentpercent")))
label))
(:textbf ,(format nil "~a~a"
(the-object documentation symbol)
(if (the-object documentation :macro?)
" [Macro]" "")))
,@(the-object documentation dom-body))))
documentations))))))
......
(:cl-lite :gwl-graphics :tasty :robot :yadd)
"(:bordeaux-threads :uiop :babel #-allegro :quri #-allegro :zacl :cl-lite :gwl-graphics :tasty :robot :yadd)"
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
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