projects
/
8sync.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
38f30fa
)
add 8sync aliases and export 'em. Also, we're 8sync/eightsync now!
author
Christopher Allan Webber
<cwebber@dustycloud.org>
Sat, 21 Nov 2015 04:05:16 +0000
(22:05 -0600)
committer
Christopher Allan Webber
<cwebber@dustycloud.org>
Sat, 21 Nov 2015 04:05:16 +0000
(22:05 -0600)
loopy.scm
patch
|
blob
|
history
diff --git
a/loopy.scm
b/loopy.scm
index 68dc0c1a843abd83c602668512413b7f5d66d8af..ca133b9f79d525825d31d6f90381fa0741683f83 100644
(file)
--- a/
loopy.scm
+++ b/
loopy.scm
@@
-1,4
+1,4
@@
-(define-module (
loopy
agenda)
+(define-module (
eightsync
agenda)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-9)
#:use-module (srfi srfi-9 gnu)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-9)
#:use-module (srfi srfi-9 gnu)
@@
-33,6
+33,8
@@
schedule-segments-split schedule-extract-until!
add-segments-contents-to-queue!
schedule-segments-split schedule-extract-until!
add-segments-contents-to-queue!
+ %sync 8sync %sync-at 8sync-at %sync-delay 8sync-delay
+
<run-request>
make-run-request run-request?
run-request-proc run-request-when
<run-request>
make-run-request run-request?
run-request-proc run-request-when
@@
-394,9
+396,12
@@
Will produce (0 . 0) instead of a negative number, if needed."
Pronounced `async' despite the spelling.
Pronounced `async' despite the spelling.
-
8
sync was chosen because (async) was already taken and could lead to
+
%
sync was chosen because (async) was already taken and could lead to
errors, and this version of asynchronous code uses a prompt, so the `a'
errors, and this version of asynchronous code uses a prompt, so the `a'
-character becomes a `%' prompt :)"
+character becomes a `%' prompt! :)
+
+The % and 8 characters kind of look similar... hence this library's
+name! (There are 8sync aliases if you prefer that name.)"
(abort-to-prompt (current-agenda-prompt)
(wrap body)
args ...))
(abort-to-prompt (current-agenda-prompt)
(wrap body)
args ...))
@@
-413,6
+418,19
@@
character becomes a `%' prompt :)"
#:when (tdelta delay-time)
args ...))
#:when (tdelta delay-time)
args ...))
+(define-syntax-rule (8sync args ...)
+ "Alias for %sync"
+ (%sync args ...))
+
+(define-syntax-rule (8sync-at args ...)
+ "Alias for %sync-at"
+ (%sync-at args ...))
+
+(define-syntax-rule (8sync-delay args ...)
+ "Alias for %sync-delay"
+ (8sync-delay args ...))
+
+
\f
;;; Execution of agenda, and current agenda
;;; =======================================
\f
;;; Execution of agenda, and current agenda
;;; =======================================