diff options
| author | Colin Okay <cbeok@protonmail.com> | 2020-04-12 16:37:25 -0500 |
|---|---|---|
| committer | Colin Okay <cbeok@protonmail.com> | 2020-04-12 16:37:25 -0500 |
| commit | 2e7c31b591497ea71f92cb816c8ec0fc23a616ab (patch) | |
| tree | 19f944a32d8eba4179808b321cc6c5d706978e9e /posterbot.lisp | |
| parent | 3fb6ad19bcc102b397702d9b9de3ed6c59c8485a (diff) | |
doc
Diffstat (limited to 'posterbot.lisp')
| -rw-r--r-- | posterbot.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/posterbot.lisp b/posterbot.lisp index d2d3531..be61382 100644 --- a/posterbot.lisp +++ b/posterbot.lisp @@ -33,6 +33,8 @@ the downloaded file." (t type))))) (defun handle-link-candiate (word) + "Checks if WORD is an HTTP URI pointing to an image resource. If it +is, downloads the image and posts it to the current room." (let ((link (ppcre:scan-to-strings +image-link-regex+ word))) (when link (let* ((file-path (download-link link)) |