tjhintz/simple
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removing unused procedures.

Browse Source
This commit is contained in:
Thomas Hintz
2015-08-01 11:10:50 -07:00
parent c64ca08f1c
commit c5ae5c5e58
1 changed files with 3 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
simple.scm
View File

@@ -1,9 +1,9 @@
(module simple (module simple
(server-response-headers sid page-exception-message enable-session (server-response-headers sid enable-session
add-request-handler-hook! remove-request-handler-hook! add-request-handler-hook! remove-request-handler-hook!
define-page redirect-to enable-session-cookie session-cookie-setter define-page redirect-to enable-session-cookie session-cookie-setter
session-cookie-name $session $session-set! $ page-access-denied-message session-cookie-name $session $session-set! $ page-access-denied-message
debug-file page-access-control server-start $session-destroy! page-access-control server-start $session-destroy!
add-post-request-handler-hook!) add-post-request-handler-hook!)
(import scheme chicken data-structures utils extras ports srfi-69 files srfi-1) (import scheme chicken data-structures utils extras ports srfi-69 files srfi-1)
@@ -11,13 +11,9 @@
(use intarweb spiffy spiffy-request-vars uri-common (use intarweb spiffy spiffy-request-vars uri-common
http-session spiffy-cookies sxml-transforms) http-session spiffy-cookies sxml-transforms)
(define debug-file (make-parameter #f))
(define server-response-headers (make-parameter #f)) (define server-response-headers (make-parameter #f))
(define sid (make-parameter #f)) (define sid (make-parameter #f))
(define page-exception-message
(make-parameter
(lambda (exn)
'(<h3> "An error has occurred while processing your request."))))
(define enable-session (make-parameter #f)) (define enable-session (make-parameter #f))
(define enable-session-cookie (make-parameter #t)) (define enable-session-cookie (make-parameter #t))
(define session-cookie-name (make-parameter "awful-cookie")) (define session-cookie-name (make-parameter "awful-cookie"))
@@ -87,26 +83,11 @@
(%error #f) (%error #f)
(%page-title #f)) (%page-title #f))
(define (debug . args)
(when (debug-file)
(with-output-to-file (debug-file)
(lambda ()
(print (concat args)))
append:)))
(define-inline (use-session? use-session) (define-inline (use-session? use-session)
(or (not (enable-session)) (or (not (enable-session))
use-session use-session
(and (enable-session) (session-valid? (sid))))) (and (enable-session) (session-valid? (sid)))))
(define-inline (render-exception exn)
(%error exn)
(debug (with-output-to-string
(lambda ()
(print-call-chain)
(print-error-message exn))))
((page-exception-message) exn))
(define-inline (maybe-create/refresh-session! use-session) (define-inline (maybe-create/refresh-session! use-session)
(when use-session (when use-session
(if (session-valid? (sid)) (if (session-valid? (sid))