Changeset 18360 in project


Ignore:
Timestamp:
06/06/10 14:20:47 (11 years ago)
Author:
sjamaan
Message:

Implement #255 - a global menu for qwiki

Location:
release/4/qwiki/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • release/4/qwiki/trunk/qwiki-post-commit-hook.scm

    r15990 r18360  
    22;; qwiki-post-commit-hook - updater script for the quick wiki
    33;;
    4 ;; Copyright (c) 2009 Peter Bex and Ivan Raikov
     4;; Copyright (c) 2009-2010 Peter Bex and Ivan Raikov
    55;;
    66;;  Redistribution and use in source and binary forms, with or without
     
    3434;;  POSSIBILITY OF SUCH DAMAGE.
    3535
    36 (use posix svn-client qwiki-svn qwiki-sxml qwiki qwiki-search)
     36(use posix svn-client qwiki-svn qwiki-sxml qwiki qwiki-search qwiki-menu)
    3737
    3838(qwiki-repos-uri (conc "file://" (car (command-line-arguments))))
     
    4141;; TODO: This ought to be configurable!
    4242(search-install!)
     43(menu-install!)
    4344
    4445;; TODO:
  • release/4/qwiki/trunk/qwiki.meta

    r17681 r18360  
    99 (hidden)
    1010 (files "qwiki.scm" "qwiki-sxml.scm" "qwiki-nowiki.scm" "qwiki-svn.scm"
    11         "qwiki-post-commit-hook.scm" "qwiki.setup"))
     11        "qwiki-menu.scm" "qwiki-post-commit-hook.scm" "qwiki.setup"))
  • release/4/qwiki/trunk/qwiki.scm

    r18358 r18360  
    5555   qwiki-delete-handlers
    5656   qwiki-delete-file!
     57   qwiki-clear-cache!
    5758   qwiki-css-file
    5859   qwiki-sxml-page-template
     
    364365        (delete-file* (string-append basename ".html")))))
    365366
     367;; Destroy all HTML files in the cache
     368(define (qwiki-clear-cache!)
     369  (find-files (qwiki-web-path)
     370              (lambda (f) (string=? (or (pathname-extension f) "") "html"))
     371              (lambda (f _) (delete-file* f)) #f
     372              (lambda (x) (not (symbolic-link? x)))))
     373
    366374(define (qwiki-delete-file! path)
    367375  (for-each (lambda (handler) (handler path))
  • release/4/qwiki/trunk/qwiki.setup

    r17681 r18360  
    2828        ((dynld-name "qwiki-search.import") ("qwiki-search.import.scm")
    2929        (compile -O2 -s qwiki-search.import.scm))
     30
     31       ((dynld-name "qwiki-menu") ("qwiki-menu.scm" )
     32        (compile -O -d2 -s qwiki-menu.scm -j qwiki-menu))
     33
     34        ((dynld-name "qwiki-menu.import") ("qwiki-menu.import.scm")
     35        (compile -O2 -s qwiki-menu.import.scm))
    3036       
    3137       ((dynld-name "qwiki-nowiki") ("qwiki-nowiki.scm" )
     
    5056   (dynld-name "qwiki-search")
    5157   (dynld-name "qwiki-search.import")
     58   (dynld-name "qwiki-menu")
     59   (dynld-name "qwiki-menu.import")
    5260   (dynld-name "qwiki-nowiki")
    5361   (dynld-name "qwiki-nowiki.import")
     
    6472    "qwiki-svn.so" "qwiki-svn.import.so"
    6573    "qwiki-search.so" "qwiki-search.import.so"
     74    "qwiki-menu.so" "qwiki-menu.import.so"
    6675    "qwiki-nowiki.so" "qwiki-nowiki.import.so"
    6776   
    6877    )
    69   `((version 0.2)
     78  `((version 0.3)
    7079    (documentation "qwiki.html")))
    7180
     
    7382  'qwiki-post-commit-hook
    7483  '("qwiki-post-commit-hook")
    75   '((version 0.2)))
     84  '((version 0.3)))
    7685
    7786(install-script
    7887  'qwiki-install
    7988  '("qwiki-install")
    80   '((version 0.2)))
     89  '((version 0.3)))
Note: See TracChangeset for help on using the changeset viewer.