12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788 |
- ;; This software is Copyright (c) cage
- ;; cage grants you the rights to distribute
- ;; and use this software as governed by the terms
- ;; of the Lisp Lesser GNU Public License
- ;; (http://opensource.franz.com/preamble.html),
- ;; known as the LLGPL
- (in-package cl-pslib)
- (defmacro define-string-constant ((prefix) &rest names)
- `(progn
- ,@(mapcar #'(lambda (cn)
- `(alexandria:define-constant
- ,(alexandria:format-symbol t "+~:@(~a-~a~)+" prefix cn)
- ,cn :test #'string=))
- names)))
- (alexandria:define-constant +true+ "true" :test #'string=)
- (alexandria:define-constant +false+ "false" :test #'string=)
- (define-string-constant ("local-link") "fitpage" "fitwidth" "fitheight" "fitbbox")
- (define-string-constant ("pdf-link") "fitpage" "fitwidth" "fitheight" "fitbbox")
- (alexandria:define-constant +pattern-paint-type1+ 1 :test #'=)
- (alexandria:define-constant +pattern-paint-type2+ 2 :test #'=)
- (define-string-constant ("find-font-encoding") "builtin")
- (define-string-constant ("value-key") "fontsize" "font" "imagewidth" "imageheight"
- "capheight" "ascender" "descender"
- "italicangle" "underlineposition" "underlinethickness"
- "textx" "texty" "textrendering" "wordspacing"
- "major" "minor" "subminor" "revision"
- "charspacing" "hyphenminchars" "separationcolor"
- "textrise" "leading" "hyphenminchars"
- "parindent" "numindentlines" "parskip"
- "parindentskip" "linenumberspace" "linenumbersep"
- "boxheight" "linebreak")
- (define-string-constant ("parameter-key") "FontAFM" "FontOutline" "FontProtusion"
- "FontEncoding" "RightMarginKerning" "LeftMarginKerning"
- "RightMarginKerning" "LeftMarginKerning" "SearchPath"
- "underline" "overline" "strikeout" "warning" "hyphendict"
- "inputencoding" "linenumbermode" "ligaturedisolvechar"
- "imagereuse" "imageencoding")
- (define-string-constant ("image-encoding-type") "hex")
- (define-string-constant ("image-file") "mask" "masked")
- (define-string-constant ("image-file-type") "png" "jpeg" "gif" "tiff" "bmp" "eps")
- (define-string-constant ("image-type") "raw" "eps")
- (define-string-constant ("shading") "radial" "axial")
- (define-string-constant ("shading-opt") "extend0" "extend0" "r0" "r1")
- (alexandria:define-constant +ps-linecap-butt+ PS_LINECAP_BUTT :test #'=)
- (alexandria:define-constant +ps-linecap-round+ PS_LINECAP_ROUND :test #'=)
- (alexandria:define-constant +ps_linejoin_miter+ PS_LINEJOIN_MITER :test #'=)
- (alexandria:define-constant +ps_linejoin_round+ PS_LINEJOIN_ROUND :test #'=)
- (alexandria:define-constant +ps_linejoin_bevel+ PS_LINEJOIN_BEVEL :test #'=)
- (define-string-constant ("link-border-style") "solid" "dashed")
- (define-string-constant ("ps-comment-key") "Keywords" "Subject" "Title"
- "Creator" "Author" "BoundingBox" "Orientation")
- (define-string-constant ("color-type") "fill" "stroke" "fillstroke")
- (define-string-constant ("color-space") "gray" "spot" "rgb" "cmyk" "pattern")
- (define-string-constant ("line-number-mode") "box" "paragraph")
- (define-string-constant ("boxed-text-feature") "blind")
- (define-string-constant ("boxed-text-h-mode") "justify" "fulljustify" "right" "left" "center")
- (define-string-constant ("boxed-text-value") "boxheight")
|