Commit ec2d7a33 authored by Dave Cooper's avatar Dave Cooper
Browse files

updated data file and initialization on ledger; still need to modernize user...

updated data file and initialization on ledger; still need to modernize user interface to use form-controls.
parent 98e0f8dc
("Index" "From Account" "To Account" "Date" "Amount" "Payee")
(0 0 1 3243976597 1000 "djc")
(1 0 1 3243976772 1500 "djc")
(2 1 0 3243976934 500 "kai")
(3 1 0 3243978021 5000 "kai")
(4 2 0 3244075201 500 "")
(5 2 0 3244075201 1000 "")
(6 0 4 3244075201 1300 "")
(7 0 5 3244075201 15 "India Chat House")
(8 0 6 3244075201 45 "Stay Inline - rollerblade wheels")
(9 0 4 3244239636 250 "djc")
(10 2 0 3244161601 540 "djc")
(11 0 5 3244680001 30 "kowloon")
(12 0 7 3244680001 20 "djc")
(13 0 4 3244686333 10 "djc")
(14 0 4 3244686408 10 "djc")
(15 7 5 3244680001 7.0 "sandwich shop in SF")
(16 0 7 3244680001 200 "djc")
(17 7 5 3244680001 18 "restaurant in SF holiday inn")
(18 0 7 3300753601 200 "djc")
(19 0 7 3302481601 200 "david j cooper")
(20 0 7 3302481601 200 "djc")
(21 2 0 3302481601 2000 "djc")
(22 0 7 3337560001 240 "djc")
(23 0 0 3337646401 500 "me")
(24 0 0 3337646401 1000 "me")
(25 0 0 3337646401 300 "foo")
(26 0 0 3337646401 500 "foo")
\ No newline at end of file
("Index" "From Account" "To Account" "Date" "Amount" "Payee")
(0 0 1 3243976597 1000 "djc")
(1 0 1 3243976772 1500 "djc")
(2 1 0 3243976934 500 "kai")
(3 1 0 3243978021 5000 "kai")
(4 2 0 3244075201 500 "")
(5 2 0 3244075201 1000 "")
(6 0 4 3244075201 1300 "")
(7 0 5 3244075201 15 "India Chat House")
(8 0 6 3244075201 45 "Stay Inline - rollerblade wheels")
(9 0 4 3244239636 250 "djc")
(10 2 0 3244161601 540 "djc")
(11 0 5 3244680001 30 "kowloon")
(12 0 7 3244680001 20 "djc")
(13 0 4 3244686333 10 "djc")
(14 0 4 3244686408 10 "djc")
(15 7 5 3244680001 7.0 "sandwich shop in SF")
(16 0 7 3244680001 200 "djc")
(17 7 5 3244680001 18 "restaurant in SF holiday inn")
(18 0 7 3300753601 200 "djc")
(19 0 7 3302481601 200 "david j cooper")
(20 0 7 3302481601 200 "djc")
(21 2 0 3302481601 2000 "djc")
(22 0 7 3337560001 240 "djc")
(23 0 0 3337646401 500 "me")
(24 0 0 3337646401 1000 "me")
(25 0 0 3337646401 300 "foo")
(26 0 0 3337646401 500 "foo")
(27 2 0 3574382401 3000 "David Cooper")
\ No newline at end of file
;;;; -*- encoding: 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 "20130408" :depends-on (:gwl)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/assembly")
(:file "source/html")))
"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 "20130408" :depends-on (:gwl)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/assembly")
(:file "source/html")(:file "source/zzinit")))
......@@ -20,14 +20,19 @@ the more modern and preferred form-control objects
To compile the app
==================
Use cl-lite on the ledger/ directory. See bootstrap.txt in the
<gdl-home>/gdl-doc/ directory for more details on cl-lite.
1. Set yourself up with quicklisp and asdf, possibly with
(load (merge-pathnames "quicklisp/setup.lisp" glisp:*gdl-home*))
2. (ql:quickload :ledger)
Once the application is compiled:
1. Make sure allegroserve is started with
(net.aserve:start :port 9000) ;; or whatever number you choose
(gendl:start-gendl!) ;; or
(gwl:start-gwl :port 9000) ;; or whatever port number you choose
2. Visit:
......@@ -37,3 +42,5 @@ Once the application is compiled:
;;
;; Copyright 2002, 2009 Genworks International and Genworks BV
;; Copyright 2002, 2009 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language (GDL) project (GDL).
......@@ -21,14 +21,13 @@
(in-package :ledger)
(defparameter *source-dir* (make-pathname :directory (butlast (butlast (pathname-directory *load-truename*)))
:device (pathname-device *load-truename*)))
(defparameter *source-dir* (glisp:system-home :ledger))
(define-object assembly (base-object)
:input-slots
((account-data-file (merge-pathnames "../data/accounts.lisp" *source-dir*))
(transaction-data-file (merge-pathnames "../data/transactions.lisp" *source-dir*)))
((account-data-file (merge-pathnames "data/accounts.lisp" *source-dir*))
(transaction-data-file (merge-pathnames "data/transactions.lisp" *source-dir*)))
:computed-slots
((account-data (let (result)
......
;;
;; Copyright 2002, 2009 Genworks International and Genworks BV
;; Copyright 2002, 2009 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language (GDL) project (GDL).
......@@ -49,9 +49,7 @@
(password :type 'password-form-control
:size 15
:ajax-submit-on-change? t
:default "")
)
:default ""))
:functions
(
......
(in-package :ledger)
(defvar *settings*
(list (list '*source-dir* *source-dir*
#'(lambda()
(or (and *source-dir* (probe-file *source-dir*))
(and glisp:*gdl-program-home*
(probe-file (merge-pathnames "ledger-data/" glisp:*gdl-program-home*)))
(and glisp:*gdl-program-home*
(probe-file (merge-pathnames "data/" glisp:*gdl-program-home*)))
(warn "~%Ledger data not found in source directory or parent of program directory.~%"))))))
(defun initialize ()
(let (anything-changed?)
(setq anything-changed? (glisp:set-settings *settings*))
anything-changed?))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment