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
G
gendl
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
47
Issues
47
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gendl
gendl
Commits
7905285b
Commit
7905285b
authored
Dec 06, 2013
by
Dave Cooper
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
updated some asd files, updated remote-object
parent
be2571d3
Changes
24
Hide whitespace changes
Inline
Side-by-side
Showing
24 changed files
with
644 additions
and
281 deletions
+644
-281
apps/ta2/ta2.asd
apps/ta2/ta2.asd
+25
-10
apps/tasty/tasty.asd
apps/tasty/tasty.asd
+30
-13
apps/translators/translators.asd
apps/translators/translators.asd
+17
-6
apps/tree/tree.asd
apps/tree/tree.asd
+17
-6
apps/yadd/yadd.asd
apps/yadd/yadd.asd
+25
-11
base/base.asd
base/base.asd
+32
-14
base/rest/source/utilities.lisp
base/rest/source/utilities.lisp
+7
-1
base/source/parameters.lisp
base/source/parameters.lisp
+1
-1
cl-lite/cl-lite.asd
cl-lite/cl-lite.asd
+18
-7
demos/bus/bus.asd
demos/bus/bus.asd
+32
-14
demos/ledger/ledger.asd
demos/ledger/ledger.asd
+18
-7
demos/robot/robot.asd
demos/robot/robot.asd
+18
-7
demos/wire-world/wire-world.asd
demos/wire-world/wire-world.asd
+15
-5
documentation/training/g102-tud/examples/examples.asd
documentation/training/g102-tud/examples/examples.asd
+18
-7
emacs/alert
emacs/alert
+1
-0
emacs/gdl.el
emacs/gdl.el
+19
-3
emacs/org-pomodoro
emacs/org-pomodoro
+1
-0
geom-base/geom-base.asd
geom-base/geom-base.asd
+54
-25
glisp/glisp.asd
glisp/glisp.asd
+17
-7
gwl-graphics/gwl-graphics.asd
gwl-graphics/gwl-graphics.asd
+22
-9
gwl/gwl.asd
gwl/gwl.asd
+36
-16
gwl/source/remote-object.lisp
gwl/source/remote-object.lisp
+40
-26
regression/regression.asd
regression/regression.asd
+86
-41
surf/surf.asd
surf/surf.asd
+95
-45
No files found.
apps/ta2/ta2.asd
View file @
7905285b
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:ta2
:description
(
asdf:defsystem
#:ta2
:description
"The Gendl™ (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
(
:gwl-graphics
)
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131206"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/javascript"
)
(
:file
"source/action-object"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/click-mode"
)
(
:file
"source/inspector"
)
(
:file
"source/object-tree"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/viewport"
)))
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/javascript"
)
(
:file
"source/action-object"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/click-mode"
)
(
:file
"source/inspector"
)
(
:file
"source/object-tree"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/viewport"
)))
apps/tasty/tasty.asd
View file @
7905285b
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:tasty
:description
"The Gendl™ Web-based Development Environment (tasty)"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
(
:tree
:gwl-graphics
)
(
asdf:defsystem
#:tasty
:description
"The Gendl™ Web-based Development Environment (tasty)"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131206"
:depends-on
(
:tree
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/inspector"
)
(
:file
"source/menu"
)
(
:file
"source/new-inspector"
)
(
:file
"source/newer-inspector"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/status-object"
)
(
:file
"source/test-part"
)
(
:file
"source/test-part2"
)
(
:file
"source/two-viewports"
)
(
:file
"source/viewport"
)
(
:file
"source/zzinit"
)))
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/inspector"
)
(
:file
"source/menu"
)
(
:file
"source/new-inspector"
)
(
:file
"source/newer-inspector"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/status-object"
)
(
:file
"source/test-part"
)
(
:file
"source/test-part2"
)
(
:file
"source/two-viewports"
)
(
:file
"source/viewport"
)
(
:file
"source/zzinit"
)))
apps/translators/translators.asd
View file @
7905285b
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:translators
:description
(
asdf:defsystem
#:translators
:description
"The Gendl™ Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
(
:gwl
)
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131206"
:depends-on
(
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
(
:file
"xml/source/definition-tree"
)
(
:file
"xml/source/gdl2xml"
)
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
(
:file
"xml/source/definition-tree"
)
(
:file
"xml/source/gdl2xml"
)
(
:file
"xml/source/xml2gdl"
)))
apps/tree/tree.asd
View file @
7905285b
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:tree
:description
(
asdf:defsystem
#:tree
:description
"The Gendl™ Tree component used by Tasty and potentially as a UI component on its own"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
(
:gwl-graphics
)
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131206"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/newertree"
)))
apps/yadd/yadd.asd
View file @
7905285b
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:yadd
:description
"The Gendl™ Yet Another Definition Documenter (yadd)"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
(
asdf:defsystem
#:yadd
:description
"The Gendl™ Yet Another Definition Documenter (yadd)"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131206"
:depends-on
(
:gwl-graphics
#-
allegro
:cl-html-parse
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/parameters"
)
(
:file
"source/mixins"
)
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/parameters"
)
(
:file
"source/mixins"
)
(
:file
"source/define-object-documentation"
)
(
:file
"source/assembly"
)
(
:file
"source/ass"
)
(
:file
"source/assembly"
)
(
:file
"source/ass"
)
(
:file
"source/format-documentation"
)
(
:file
"source/function-documentation"
)
(
:file
"source/initialize"
)
(
:file
"source/publish"
)
(
:file
"source/test-part"
)
(
:file
"source/variable-documentation"
)
(
:file
"source/zzinit"
)))
(
:file
"source/function-documentation"
)
(
:file
"source/initialize"
)
(
:file
"source/publish"
)
(
:file
"source/test-part"
)
(
:file
"source/variable-documentation"
)
(
:file
"source/zzinit"
)))
base/base.asd
View file @
7905285b
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:base
:description
"The Gendl™ Base Core Kernel Engine"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
nil
(
asdf:defsystem
#:base
:description
"The Gendl™ Base Core Kernel Engine"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131206"
:depends-on
nil
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/presets"
)
(
:file
"source/parameters"
)
(
:file
"source/metaclasses"
)
(
:file
"source/utilities"
)
(
:file
"source/start"
)
(
:file
"expanders/source/inputs"
)
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/presets"
)
(
:file
"source/parameters"
)
(
:file
"source/metaclasses"
)
(
:file
"source/utilities"
)
(
:file
"source/start"
)
(
:file
"expanders/source/inputs"
)
(
:file
"expanders/source/computed-slots"
)
(
:file
"expanders/source/functions"
)
(
:file
"expanders/source/methods"
)
...
...
@@ -23,10 +36,15 @@
(
:file
"macros/source/define-format"
)
(
:file
"rest/source/parameters"
)
(
:file
"rest/source/quantification"
)
(
:file
"rest/source/aggregate"
)
(
:file
"rest/source/utilities"
)
(
:file
"rest/source/null-part"
)
(
:file
"rest/source/vanilla-mixin"
)
(
:file
"rest/source/base-rule-object"
)
(
:file
"rest/source/bodies"
)
(
:file
"rest/source/aggregate"
)
(
:file
"rest/source/utilities"
)
(
:file
"rest/source/null-part"
)
(
:file
"rest/source/vanilla-mixin"
)
(
:file
"rest/source/base-rule-object"
)
(
:file
"rest/source/bodies"
)
(
:file
"rest/source/ignore-errors-with-backtrace"
)
(
:file
"rest/source/init"
)
(
:file
"rest/source/make-part"
)
(
:file
"rest/source/sequence"
)
(
:file
"zzinit/source/initialize"
)
(
:file
"rest/source/init"
)
(
:file
"rest/source/make-part"
)
(
:file
"rest/source/sequence"
)
(
:file
"zzinit/source/initialize"
)
(
:file
"zzinit/source/zzinit"
)))
base/rest/source/utilities.lisp
View file @
7905285b
...
...
@@ -599,7 +599,13 @@ CL \"fround\" function.
(
defmethod
evaluate-object
((
category
t
)
args
)
(
cons
category
args
))
(
cons
(
if
(
consp
category
)
(
evaluate-object
(
first
category
)
(
rest
category
))
category
)
(
mapcar
#'
(
lambda
(
arg
)
(
if
(
consp
arg
)
(
evaluate-object
(
first
arg
)
(
rest
arg
))
arg
))
args
)))
(
defun
iso-8601-date
(
universal-time
&key
include-time?
)
...
...
base/source/parameters.lisp
View file @
7905285b
...
...
@@ -21,7 +21,7 @@
(
in-package
:gdl
)
(
defparameter
*gendl-version*
"1585"
)
(
defparameter
*gendl-version*
"1585
p001
"
)
(
defparameter
*gendl-patch-level*
nil
)
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
...
...
cl-lite/cl-lite.asd
View file @
7905285b
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:cl-lite
:description
"The Gendl™ Compile-and-Load Lite Utility"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
(
:glisp
)
(
asdf:defsystem
#:cl-lite
:description
"The Gendl™ Compile-and-Load Lite Utility"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131206"
:depends-on
(
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/cl-lite"
)
(
:file
"source/initialize"
)
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/cl-lite"
)
(
:file
"source/initialize"
)
(
:file
"source/zzinit"
)))
demos/bus/bus.asd
View file @
7905285b
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:bus
:description
"The Gendl™ Wireframe School Bus Demo"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
nil
(
asdf:defsystem
#:bus
:description
"The Gendl™ Wireframe School Bus Demo"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131206"
:depends-on
nil
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/body"
)
(
:file
"source/chassis"
)
(
:file
"source/interior"
)
(
:file
"source/rule-ackermann"
)
(
:file
"source/axle"
)
(
:file
"source/fleet"
)
(
:file
"source/frame-rail"
)
(
:file
"source/frame"
)
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/body"
)
(
:file
"source/chassis"
)
(
:file
"source/interior"
)
(
:file
"source/rule-ackermann"
)
(
:file
"source/axle"
)
(
:file
"source/fleet"
)
(
:file
"source/frame-rail"
)
(
:file
"source/frame"
)
(
:file
"source/html-writer-assembly"
)
(
:file
"source/html-writer-body"
)
(
:file
"source/html-writer-chassis"
)
(
:file
"source/html-writer-interior"
)
(
:file
"source/html-writer-rule-ackermann"
)
(
:file
"source/inter-seat-clearance-check"
)
(
:file
"source/inter-seat-spacing"
)
(
:file
"source/knuckle"
)
(
:file
"source/parameters"
)
(
:file
"source/publish"
)
(
:file
"source/rear-axle"
)
(
:file
"source/seat"
)
(
:file
"source/seating-section"
)
(
:file
"source/seating-side"
)
(
:file
"source/inter-seat-spacing"
)
(
:file
"source/knuckle"
)
(
:file
"source/parameters"
)
(
:file
"source/publish"
)
(
:file
"source/rear-axle"
)
(
:file
"source/seat"
)
(
:file
"source/seating-section"
)
(
:file
"source/seating-side"
)
(
:file
"source/wheel"
)))
demos/ledger/ledger.asd
View file @
7905285b
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:ledger
:description
"The Gendl™ Ledger Bookkeeping Demo"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
(
:gwl
)
(
asdf:defsystem
#:ledger
:description
"The Gendl™ Ledger Bookkeeping Demo"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131206"
:depends-on
(
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/html"
)
(
:file
"source/zzinit"
)))
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/html"
)
(
:file
"source/zzinit"
)))
demos/robot/robot.asd
View file @
7905285b
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:robot
:description
"The Gendl™ Simplified Android Robot example "
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
nil
(
asdf:defsystem
#:robot
:description
"The Gendl™ Simplified Android Robot example "
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131206"
:depends-on
nil
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/parameters"
)
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/parameters"
)
(
:file
"source/zzinit"
)))
demos/wire-world/wire-world.asd
View file @
7905285b
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:wire-world
:description
(
asdf:defsystem
#:wire-world
:description
"The Gendl™ Wire-World demo and test-case for wireframe tessellation and X3D output"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
(
:gwl-graphics
)
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131206"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)))
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)))
documentation/training/g102-tud/examples/examples.asd
View file @
7905285b
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:examples
:description
"The Gendl™ examples Subsystem"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
(
:surf
)
(
asdf:defsystem
#:examples
:description
"The Gendl™ examples Subsystem"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131206"
:depends-on
(
:surf
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/ch2-examples"
)
(
:file
"source/ch3-examples"
)
(
:gdl
"source/primi-plane"
)
(
:gdl
"source/ui-primi-plane"
)))
((
:file
"source/ch2-examples"
)
(
:file
"source/ch3-examples"
)
(
:gdl
"source/primi-plane"
)
(
:gdl
"source/ui-primi-plane"
)))
alert
@
aadea4f2
Subproject commit aadea4f2727d712ee6f4ebfdf47e95fa0436be37
emacs/gdl.el
View file @
7905285b
...
...
@@ -42,7 +42,7 @@
;; (errors ignored in case running in a console terminal)
(
ignore-errors
(
tool-bar-mode
-1
))
(
setq
visible-bell
t
)
;;
(setq visible-bell t)
;; FLAG -- uncomment the following if you don't need a menu bar.
;; (errors ignored in case running in a console terminal)
...
...
@@ -52,12 +52,18 @@
;; 3.2. Set up color-theme and solarized color-themes
(
add-to-list
'load-path
(
concat
*gendl-home*
"emacs/emacs-color-theme"
))
(
add-to-list
'load-path
(
concat
*gendl-home*
"emacs/emacs-color-theme"
))
(
require
'color-theme
)
(
color-theme-initialize
)
(
color-theme-sitaramv-solaris
)
;;(color-theme-feng-shui)
;; 3.2.1 Set up org-mode-pomodoro for task time management and tracking:
(
add-to-list
'load-path
(
concat
*gendl-home*
"emacs/org-pomodoro"
))
(
require
'org-pomodoro
)
(
add-to-list
'load-path
(
concat
*gendl-home*
"emacs/alert"
))
(
require
'alert
)
;; 3.3. Indents
(
defmacro
defindent
(
name
indentation
)
...
...
@@ -92,6 +98,8 @@
(
global-set-key
"\C-cc"
'org-capture
))
(
gdl:global-keys
)
;; 3.5. Font
...
...
@@ -250,7 +258,12 @@
'
(
"elpa"
.
"http://tromey.com/elpa/"
))
;; Add the user-contributed repository
(
add-to-list
'package-archives
'
(
"marmalade"
.
"http://marmalade-repo.org/packages/"
)))
'
(
"marmalade"
.
"http://marmalade-repo.org/packages/"
))
(
add-to-list
'package-archives
'
(
"melpa"
.
"http://melpa.milkbox.net/packages/"
)
t
)
)
;; 5. MAKE IT HAPPEN
...
...
@@ -259,6 +272,9 @@
(
glime
)
(
setq
org-timer-default-timer
25
org-timer-done-hook
'
(
progn
(
ding
)
(
ding
)
(
ding
)))
;; A. REFERENCES
;;
;;
...
...
org-pomodoro
@
3ab61f95
Subproject commit 3ab61f959214b8ce76aad8a4ae52320652eca29b
geom-base/geom-base.asd
View file @
7905285b
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:geom-base
:description
"The Gendl™ Wireframe Geometry"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
(
:glisp
)
(
asdf:defsystem
#:geom-base
:description
"The Gendl™ Wireframe Geometry"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131206"
:depends-on
(
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"prereqs/source/presets"
)
(
:file
"prereqs/source/cl-pdf-patches"
)
(
:file
"prereqs/source/matrix"
)
(
:file
"prereqs/source/parameters"
)
(
:file
"prereqs/source/matrix"
)
(
:file
"prereqs/source/parameters"
)
(
:file
"prereqs/source/utilities"
)
(
:file
"formats/source/2d-output"
)
(
:file
"formats/source/dxf"
)
(
:file
"formats/source/macro-redefs"
)
(
:file
"formats/source/obj"
)
(
:file
"formats/source/2d-output"
)
(
:file
"formats/source/dxf"
)
(
:file
"formats/source/macro-redefs"
)
(
:file
"formats/source/obj"
)
(
:file
"formats/source/pdf-multipage"
)
(
:file
"formats/source/pdf-raw"
)
(
:file
"formats/source/pdf"
)
(
:file
"formats/source/pdf-raw"
)
(
:file
"formats/source/pdf"
)
(
:file
"formats/source/raster"
)
(
:file
"formats/source/vector-graphics"
)
(
:file
"wire/source/base-object"
)
(
:file
"wire/source/arc"
)
(
:file
"wire/source/l-line"
)
(
:file
"wire/source/circle"
)
(
:file
"wire/source/bezier-curve"
)
(
:file
"wire/source/cylinder"
)
(
:file
"wire/source/base-object"
)
(
:file
"wire/source/arc"
)
(
:file
"wire/source/l-line"
)
(
:file
"wire/source/circle"
)
(
:file
"wire/source/bezier-curve"
)
(
:file
"wire/source/cylinder"
)
(
:file
"wire/source/global-polyline"
)
(
:file
"wire/source/global-filleted-polyline"
)
(
:file
"wire/source/global-polygon-projection"
)
(
:file
"wire/source/sphere"
)
(
:file
"wire/source/arcoid-mixin"
)
(
:file
"wire/source/bounding-box"
)
(
:file
"wire/source/box"
)
(
:file
"wire/source/c-cylinder"
)
(
:file
"wire/source/cone"
)
(
:file
"wire/source/sphere"
)
(
:file
"wire/source/arcoid-mixin"
)
(
:file
"wire/source/bounding-box"
)
(
:file
"wire/source/box"
)
(
:file
"wire/source/c-cylinder"
)
(
:file
"wire/source/cone"
)
(
:file
"wire/source/directional-light"
)
(
:file
"wire/source/ellipse"
)
(
:file
"wire/source/fillet"
)
(
:file
"wire/source/ellipse"
)
(
:file
"wire/source/fillet"
)
(
:file
"wire/source/global-filleted-polygon-projection"
)
(
:file
"wire/source/null-geometric-object"
)
(
:file
"wire/source/outline-specialization-mixin"
)
(
:file
"wire/source/point-light"
)
(
:file
"wire/source/point"
)
(
:file
"wire/source/point-light"
)
(
:file
"wire/source/point"
)
(
:file
"wire/source/points-display"
)
(
:file
"wire/source/primitives"
)
(
:file
"wire/source/route-pipe"
)
(
:file
"wire/source/primitives"
)
(
:file
"wire/source/route-pipe"
)
(
:file
"wire/source/spherical-cap"
)
(
:file
"wire/source/spot-light"
)
(
:file
"wire/source/torus"
)
(
:file
"wire/source/utilities"
)
(
:file
"wire/source/views"
)