diff --git a/chatdir-inotify.egg b/chatdir-inotify.egg new file mode 100644 index 0000000..694896a --- /dev/null +++ b/chatdir-inotify.egg @@ -0,0 +1,8 @@ +;; -*- Scheme -*- +((synopsis "A simple Chatdir input-loop.") + (author "Jaidyn Ann") + (category net) + (license "GPLv3") + (dependencies srfi-1 inotify) + (components + (extension chatdir-inotify (source "inotify.scm")))) diff --git a/chatdir.egg b/chatdir.egg new file mode 100644 index 0000000..c1bf927 --- /dev/null +++ b/chatdir.egg @@ -0,0 +1,8 @@ +;; -*- Scheme -*- +((synopsis "Interface with Chatdir directories") + (author "Jaidyn Ann") + (category net) + (license "GPLv3") + (dependencies srfi-1 srfi-13 srfi-19 xattr) + (components + (extension chatdir))) diff --git a/chatdir.scm b/chatdir.scm index e7b1337..61ea882 100644 --- a/chatdir.scm +++ b/chatdir.scm @@ -14,9 +14,21 @@ ;; along with this program. If not, see . ;; +(module chatdir +(channels channel-add! channel-cleanup! + channel-metadata-set! channel-metadata-get channel-metadata-get* channel-metadata + user-add! user-file-set! user-file-get + user-enable-state! user-disable-state! user-toggle-states! + channel-users channel-user-add! channel-user-file-set! channel-user-file-get + channel-user-disable-state! channel-user-enable-state! channel-user-toggle-states! + channel-message-add! channel-messages + channel-messages-by-xattr channel-messages-by-sender + channel-messages-by-date channel-messages-by-date* channel-messages-by-date-range + ) + (import scheme - (chicken file) (chicken file posix) (chicken pathname) (chicken io) - (chicken random) (chicken string) + (chicken file) (chicken file posix) (chicken pathname) (chicken port) + (chicken io) (chicken random) (chicken string) srfi-1 srfi-13 srfi-19 (prefix xattr xattr:)) @@ -382,3 +394,4 @@ (lambda (in-port) (read-string #f in-port)))) +) ;; chatdir module diff --git a/inotify.scm b/inotify.scm index 7781107..24b011e 100644 --- a/inotify.scm +++ b/inotify.scm @@ -15,8 +15,12 @@ ;; along with this program. If not, see . ;; +(module chatdir-inotify +(input-loop input-loop-init) + (import scheme - (chicken file) (chicken io) (chicken pathname) + (chicken base) (chicken condition) (chicken file) (chicken io) + (chicken pathname) srfi-1 (prefix inotify inotify:)) @@ -172,3 +176,4 @@ ;; 🎵 Symbolic links cannot have extended attributes, and that is a war-crime. 🎶 ;; 🎵 Directories cannot have extended attributes, and that is a war-crime. 🎶 +) ;; chatdir-inotify module