File: browsable-package-files.lisp

package info (click to toggle)
acl2 8.6%2Bdfsg-2
  • links: PTS
  • area: main
  • in suites: trixie
  • size: 1,111,420 kB
  • sloc: lisp: 17,818,294; java: 125,359; python: 28,122; javascript: 23,458; cpp: 18,851; ansic: 11,569; perl: 7,678; xml: 5,591; sh: 3,976; makefile: 3,833; ruby: 2,633; yacc: 1,126; ml: 763; awk: 295; csh: 233; lex: 197; php: 178; tcl: 49; asm: 23; haskell: 17
file content (30 lines) | stat: -rw-r--r-- 1,365 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
(pushnew "/home/cl/browsable-colorize/" asdf:*central-registry* :test #'equal)
(ql:quickload "browsable-colorize")

(pushnew "/home/cl/cl-plus-ssl/" asdf:*central-registry* :test #'equal)
(ql:quickload "cl+ssl")

;; make sure we load the local version,
;; not the one coming with Quicklisp
(assert (string= "/home/cl/cl-plus-ssl/src/package.lisp"
                 (namestring 
                  (asdf:system-relative-pathname "cl+ssl"
                                                 "src/package.lisp"))))

(browsable-colorize:with-browsable-context
    (;; package designators to try when locating unqualified symbols
     '(#:cl+ssl #:cl+ssl/config)
     ;; an alist mapping from local source code directories
     ;; to base github URI
     (list (cons (asdf:system-source-directory "cl+ssl")
                 "https://github.com/cl-plus-ssl/cl-plus-ssl/tree/master/")))

  ;; use the better CSS
  (let ((colorize:*coloring-css* (browsable-colorize:better-css)))

    (colorize:colorize-file :common-lisp-browsable
                            (asdf:system-relative-pathname :cl+ssl
                                                           "src/package.lisp"))
    (colorize:colorize-file :common-lisp-browsable
                            (asdf:system-relative-pathname :cl+ssl
                                                           "src/config.lisp"))))