aliens/tekuti
1
0
Fork 0
Code Activity

update to use (tekuti match-bind)

Browse source 
* tekuti/comment.scm:
* tekuti/filters.scm:
* tekuti/git.scm:
* tekuti/post.scm:
* tekuti/request.scm:
* tekuti/util.scm: Update to use (tekuti match-bind).
This commit is contained in:
Andy Wingo 2010-10-14 12:54:56 +02:00
parent 35873a522a
commit 974bdce47d
6 changed files with 12 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tekuti/comment.scm
View file

@ -1,5 +1,5 @@
;; Tekuti ;; Tekuti
;; Copyright (C) 2008 Andy Wingo <wingo at pobox dot com> ;; Copyright (C) 2008, 2010 Andy Wingo <wingo at pobox dot com>
;; This program is free software; you can redistribute it and/or ;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as ;; modify it under the terms of the GNU General Public License as
@ -32,7 +32,7 @@
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-19) #:use-module (srfi srfi-19)
#:use-module (sxml transform) #:use-module (sxml transform)
#:use-module (match-bind) #:use-module (tekuti match-bind)
#:export (blob->comment comment-sxml-content comment-timestamp #:export (blob->comment comment-sxml-content comment-timestamp
comment-readable-date bad-new-comment-post? make-new-comment)) comment-readable-date bad-new-comment-post? make-new-comment))

4
tekuti/filters.scm
View file

@ -1,5 +1,5 @@
;; Tekuti ;; Tekuti
;; Copyright (C) 2008 Andy Wingo <wingo at pobox dot com> ;; Copyright (C) 2008, 2010 Andy Wingo <wingo at pobox dot com>
;; This program is free software; you can redistribute it and/or ;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as ;; modify it under the terms of the GNU General Public License as
@ -27,7 +27,7 @@
(define-module (tekuti filters) (define-module (tekuti filters)
#:use-module (sxml simple) #:use-module (sxml simple)
#:use-module (sxml transform) #:use-module (sxml transform)
#:use-module (match-bind) #:use-module (tekuti match-bind)
#:use-module (tekuti util) #:use-module (tekuti util)
#:export (wordpress->sxml #:export (wordpress->sxml
*allowed-tags* bad-user-submitted-xhtml?)) *allowed-tags* bad-user-submitted-xhtml?))

4
tekuti/git.scm
View file

@ -1,5 +1,5 @@
;; Tekuti ;; Tekuti
;; Copyright (C) 2008 Andy Wingo <wingo at pobox dot com> ;; Copyright (C) 2008, 2010 Andy Wingo <wingo at pobox dot com>
;; This program is free software; you can redistribute it and/or ;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as ;; modify it under the terms of the GNU General Public License as
@ -30,7 +30,7 @@
#:use-module (tekuti util) #:use-module (tekuti util)
#:use-module (tekuti config) #:use-module (tekuti config)
#:use-module (scheme kwargs) #:use-module (scheme kwargs)
#:use-module (match-bind) #:use-module (tekuti match-bind)
#:use-module ((srfi srfi-1) #:select (filter-map partition #:use-module ((srfi srfi-1) #:select (filter-map partition
delete-duplicates)) delete-duplicates))
#:use-module (srfi srfi-34) #:use-module (srfi srfi-34)

4
tekuti/post.scm
View file

@ -1,5 +1,5 @@
;; Tekuti ;; Tekuti
;; Copyright (C) 2008 Andy Wingo <wingo at pobox dot com> ;; Copyright (C) 2008, 2010 Andy Wingo <wingo at pobox dot com>
;; This program is free software; you can redistribute it and/or ;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as ;; modify it under the terms of the GNU General Public License as
@ -26,7 +26,7 @@
(define-module (tekuti post) (define-module (tekuti post)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (match-bind) #:use-module (tekuti match-bind)
#:use-module (tekuti util) #:use-module (tekuti util)
#:use-module (tekuti url) #:use-module (tekuti url)
#:use-module (tekuti comment) #:use-module (tekuti comment)

2
tekuti/request.scm
View file

@ -27,7 +27,7 @@
(define-module (tekuti request) (define-module (tekuti request)
#:use-module ((srfi srfi-1) #:select (find-tail fold)) #:use-module ((srfi srfi-1) #:select (find-tail fold))
#:use-module (scheme kwargs) #:use-module (scheme kwargs)
#:use-module (match-bind) #:use-module (tekuti match-bind)
#:use-module (tekuti util) #:use-module (tekuti util)
#:use-module (tekuti url) #:use-module (tekuti url)
#:use-module (tekuti config) #:use-module (tekuti config)

7
tekuti/util.scm
View file

@ -1,5 +1,5 @@
;; Tekuti ;; Tekuti
;; Copyright (C) 2008 Andy Wingo <wingo at pobox dot com> ;; Copyright (C) 2008, 2010 Andy Wingo <wingo at pobox dot com>
;; This program is free software; you can redistribute it and/or ;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as ;; modify it under the terms of the GNU General Public License as
@ -25,11 +25,10 @@
;;; Code: ;;; Code:
(define-module (tekuti util) (define-module (tekuti util)
#:use-module (match-bind) #:use-module (tekuti match-bind)
#:use-module (scheme kwargs)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-19) #:use-module (srfi srfi-19)
#:export (expanduser match-lines dbg unwind-protect dbg dsu-sort #:export (expanduser match-lines dbg unwind-protect dsu-sort
hash-push! list-has-length? list-head-match mapn filter-mapn hash-push! list-has-length? list-head-match mapn filter-mapn
take-max read-hash write-hash shell:quote foldn take-max read-hash write-hash shell:quote foldn
call-with-temp-file emailish? urlish? call-with-temp-file emailish? urlish?