source: trunk/cocoa-ide-contrib/foy/syntax-styling/syntax-styling.lisp @ 14986

Last change on this file since 14986 was 14986, checked in by gfoy, 9 years ago

Verbose loading

File size: 1.3 KB
Line 
1
2;;; syntax-styling.lisp
3
4(in-package :common-lisp-user)
5
6;;; (pushnew :sax-debug *features*)
7
8(unless (member "SYNTAX-STYLING" *modules* :test #'string-equal)
9  (eval-when (:load-toplevel :execute)
10    (defParameter *syntax-styling-directory*
11      (make-pathname :name nil :type nil :defaults (if *load-pathname* 
12                                                     *load-pathname*
13                                                     *loading-file-source-file*)))
14    (defParameter *syntax-styling-files* 
15      (list #+sax-debug (merge-pathnames ";testing-specials.lisp" *syntax-styling-directory*)
16            (merge-pathnames ";syntax-styling-specials.lisp" *syntax-styling-directory*)
17            (merge-pathnames ";syntax-styling-comments.lisp" *syntax-styling-directory*)
18            (merge-pathnames ";syntax-styling-engine.lisp" *syntax-styling-directory*)
19            (merge-pathnames ";syntax-styling-prefs.lisp" *syntax-styling-directory*)
20            (merge-pathnames ";syntax-styling-defstyle.lisp" *syntax-styling-directory*)
21            #+sax-debug (merge-pathnames ";testing1.lisp" *syntax-styling-directory*)
22            #+sax-debug (merge-pathnames ";testing2.lisp" *syntax-styling-directory*)
23            )))
24 
25(dolist (file *syntax-styling-files*)
26  (load file :verbose t))
27
28(pushnew :syntax-styling *features*)
29(provide :syntax-styling)
30
31)
Note: See TracBrowser for help on using the repository browser.