Commits

Greg Slepak  committed 487b632

fixed 'title' function, should be last time. Also made it so that DF_SELF and DF_SELF_DIR don't need to be context qualified when used in non-MAIN contexts.

  • Participants
  • Parent commits 6a26301
  • Tags 0.6

Comments (0)

Files changed (2)

File example-site/dragonfly-framework/dragonfly.lsp

 ;; <pre> ; load http://www.mysite.com/foo/bar?baz
 ;; DF_SELF ;=> "/home/www/mysite.com/foo/bar.html"</pre>
 ;; <b>see:</b> the 'SET_DF_SELF' function in utils.lsp for more info
+(global 'DF_SELF)
 
 ;; @syntax DF_SELF_DIR
 ;; <p>The full, local path (on the server) to the directory holding
 ;; <pre> ; load http://www.mysite.com/foo/bar?baz
 ;; DF_SELF_DIR ;=> "/home/www/mysite.com/foo"</pre>
 ;; <b>see:</b> the 'SET_DF_SELF' function in utils.lsp for more info
+(global 'DF_SELF_DIR)
 
 ; seed the random number generator immediately.
 (seed (time-of-day))

File example-site/dragonfly-framework/plugins-active/dragonfly_basic.lsp

 ;; <p>Writes a title including the current navigation entry.</p>
 ;; 
 (define (title websitename)
-	(println (string (title-case (replace "_" (basename (del-ext DF_PAGE)) " ")) " " websitename  ))
+	(println (string (title-case (replace "_" (basename (del-ext DF_SELF)) " ")) " " websitename))
 )
 
 ;; @syntax (Dragonfly:css <css-media> <css-location>)