Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
16
Issues
16
List
Boards
Labels
Service Desk
Milestones
Merge Requests
8
Merge Requests
8
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
asdf
asdf
Commits
e2bbb82d
Commit
e2bbb82d
authored
Aug 17, 2018
by
privet-kitty
Committed by
Francois-Rene Rideau
Aug 17, 2018
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Let texi2pdf work for UIOP's manual
parent
f4f63979
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
11 additions
and
8 deletions
+11
-8
uiop/doc/Makefile
uiop/doc/Makefile
+1
-1
uiop/doc/docstrings.lisp
uiop/doc/docstrings.lisp
+8
-5
uiop/doc/template.texinfo
uiop/doc/template.texinfo
+2
-2
No files found.
uiop/doc/Makefile
View file @
e2bbb82d
...
...
@@ -19,7 +19,7 @@ clean-include:
rm
-rf
include
clean-crap
:
rm
-f
*
.aux
*
.cp
*
.fn
*
.fns
*
.ky
*
.log
*
.pg
*
.toc
*
.tp
*
.tps
*
.vr
rm
-f
*
.aux
*
.cp
*
.fn
*
.fns
*
.ky
*
.log
*
.pg
*
.toc
*
.tp
*
.tps
*
.vr
*
.vrs
clean
:
clean-include
rm
-rf
*
.pdf
*
.html
*
.info
${uiop}
.texinfo
${uiop}
*
.fasl
...
...
uiop/doc/docstrings.lisp
View file @
e2bbb82d
...
...
@@ -701,8 +701,11 @@ followed another tabulation label or a tabulation body."
(
not
(
and
(
typep
(
find-class
symbol
nil
)
'standard-class
)
(
docstring
slot
t
))))
(
defun
replace-ampersand
(
string
)
(
substitute
#\a
#\&
string
:test
#'
char=
))
(
defun
make-macro-name
(
string
)
"Make an appropriate name for Texinfo macro."
(
concatenate
'string
"sbtexinfo"
(
substitute-if
#\x
(
complement
#'
alpha-char-p
)
string
)))
(
defun
texinfo-anchor
(
doc
)
(
format
*texinfo-output*
"@anchor{~A}~%"
(
node-name
doc
)))
...
...
@@ -731,7 +734,7 @@ followed another tabulation label or a tabulation body."
(
mapcar
(
lambda
(
name
)
(
if
(
member
name
(
load-time-value
(
remove
'&aux
lambda-list-keywords
)))
(
format
nil
"@~A"
(
replace-ampersand
(
string-downcase
name
)))
(
format
nil
"@~A"
(
make-macro-name
(
string-downcase
name
)))
name
))
(
lambda-list
doc
)))))
...
...
@@ -845,8 +848,8 @@ package, as well as for the package itself."
;; define them for info as well.
(
flet
((
macro
(
name
)
(
let
((
string
(
string-downcase
name
)))
(
format
*texinfo-output*
"@macro ~A~%~A~%@end macro~%"
(
replace-ampersand
string
)
string
))))
(
format
*texinfo-output*
"@macro ~A~%~A
@:
~%@end macro~%"
(
make-macro-name
string
)
string
))))
(
macro
'&allow-other-keys
)
(
macro
'&optional
)
(
macro
'&rest
)
...
...
uiop/doc/template.texinfo
View file @
e2bbb82d
...
...
@@ -49,10 +49,10 @@ which is released under an MIT style License:
@contents
@ifnottex
@include include/ifnottex.texinfo
@ifnottex
@node Top
@comment node-name, next, previous, up
@top UIOP
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment