jadedctrl/ chicken-chatdir
Archived
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

Remove more irc-chatd functions

This commit is contained in:
Jaidyn Ann 2023-05-20 07:13:40 -05:00
parent 4ad18999a9
commit 228c591cff
1 changed files with 0 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
chatdir.scm
View File

@ -50,31 +50,6 @@
(remove-watch! watch))) (remove-watch! watch)))
;; Returns the path of a room's directory
(define (channel-directory-path conn channel)
(let ([dir (hash-table-ref conn 'directory)])
(if (and (string? dir) (string? channel))
(string-append dir "/" channel "/"))))
;; Returns the .users/ path of a channel
(define (channel-users-directory-path conn channel)
(string-append (channel-directory-path conn channel)
".users/"))
;; Main directory path of the given user
(define (channel-user-directory-path conn channel hostmask #!optional (state "all"))
(string-append (channel-users-directory-path conn channel)
state "/" (irc:hostmask-nick hostmask)))
;; Main directory path of the given user
(define (user-directory-path conn channel hostmask)
(string-append (channel-users-directory-path conn channel)
"all/" hostmask))
;; Tidies up a channel directory: Removes `online` and `offline` user links. ;; Tidies up a channel directory: Removes `online` and `offline` user links.
(define (channel-cleanup! root channel) (define (channel-cleanup! root channel)
(let ([users-dir (subpath root channel ".users")]) (let ([users-dir (subpath root channel ".users")])