Overview
Comment:Tweaked config file locating. Added thead and tbody.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | selfcontained
Files: files | file ages | folders
SHA1: f4a40c577851cbd56d8fe8fa0cbcefc78ed25f19
User & Date: matt on 2015-01-27 05:02:15
Other Links: branch diff | manifest | tags
Context
2015-09-27
06:05
Added s:hd check-in: f0e4b568c0 user: matt tags: selfcontained
2015-04-14
04:45
Merged selfcontained back to trunk check-in: d3fdfad50d user: matt tags: trunk
2015-01-27
05:02
Tweaked config file locating. Added thead and tbody. check-in: f4a40c5778 user: matt tags: selfcontained
2015-01-25
21:20
Little bit done on documentation check-in: 36a29ccc0a user: matt tags: selfcontained
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified session.scm from [c6e3f73d0d] to [b28c169b67].

︙
546
547
548
549
550
551
552

553

554
555
556
557
558
559
560

546
547
548
549
550
551
552
553

554
555
556
557
558
559
560
561








+
-
+








					(s:sqlparam ins-query session-id page key master-value)))
		     (else (err:log "Shouldn't get here")))))
		all-keys))) ;; process all keys
	   (list "*sessionvars*" "*globalvars*" page-name))))))

;; (pg:sql-null-object? element)
(define (session:read-config self)
  (let* ((cgi-path (pathname-directory (car (argv))))
  (let ((name (string-append "." (pathname-file (car (argv))) ".config")))
         (name     (string-append (if cgi-path (conc cgi-path "/") "") "." (pathname-file (car (argv))) ".config")))
    (if (not (file-exists? name))
	(print name " not found at " (current-directory))
	(let* ((fp (open-input-file name))
	       (initargs (read fp)))
	  (close-input-port fp)
	  initargs))))
︙

Modified stml.scm from [5ed3cd6335] to [8f12de3e15].

︙
73
74
75
76
77
78
79


80
81
82
83
84
85
86

73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88








+
+








(define (s:i      . args) (s:common-tag "I"      args))
(define (s:img    . args) (s:common-tag "IMG"    args))
(define (s:input  . args) (s:common-tag "INPUT"  args))
(define (s:link   . args) (s:common-tag "LINK"   args))
(define (s:p      . args) (s:common-tag "P"      args))
(define (s:strong . args) (s:common-tag "STRONG" args))
(define (s:table  . args) (s:common-tag "TABLE"  args))
(define (s:tbody  . args) (s:common-tag "TBODY"  args))
(define (s:thead  . args) (s:common-tag "THEAD"  args))
(define (s:td     . args) (s:common-tag "TD"     args))
(define (s:title  . args) (s:common-tag "TITLE"  args))
(define (s:tr     . args) (s:common-tag "TR"     args))
(define (s:small  . args) (s:common-tag "SMALL"  args))
(define (s:quote  . args) (s:common-tag "QUOTE"  args))
(define (s:hr     . args) (s:common-tag "HR"     args))
(define (s:li     . args) (s:common-tag "LI"     args))
︙