From db7dbb33b0cc73aeea9e6212479ad32af89290d5 Mon Sep 17 00:00:00 2001
From: Colin Okay <cbeok@protonmail.com>
Date: Tue, 14 Apr 2020 22:25:49 -0500
Subject: support for some tenor links

---
 posterbot.asd  |  2 +-
 posterbot.lisp | 29 ++++++++++++++++++++++++++---
 2 files changed, 27 insertions(+), 4 deletions(-)

diff --git a/posterbot.asd b/posterbot.asd
index 942c399..0d243c2 100644
--- a/posterbot.asd
+++ b/posterbot.asd
@@ -6,6 +6,6 @@
   :license  "AGPL"
   :version "0.0.1"
   :serial t
-  :depends-on (#:granolin #:cl-ppcre #:alexandria #:cl-fad #:drakma)
+  :depends-on (#:granolin #:cl-ppcre #:alexandria #:cl-fad #:drakma #:plump #:clss)
   :components ((:file "package")
                (:file "posterbot")))
diff --git a/posterbot.lisp b/posterbot.lisp
index 0af7d07..aee341c 100644
--- a/posterbot.lisp
+++ b/posterbot.lisp
@@ -72,6 +72,10 @@
   (ppcre:create-scanner "https://giphy.com/gifs/([a-z0-9]+-)*([a-zA-Z0-9]+)" 
                         :case-insensitive-mode t))
 
+(defparameter +tenor-link-regex+
+  (ppcre:create-scanner "https://tenor.com/view/.+"
+                        :case-insensitive-mode t))
+
 (defun download-link (link)
   "Downloads the file at LINK to a temporary file. Returns the path to
 the downloaded file.  If there is an error thrown at any point, returns NIL."
@@ -81,9 +85,10 @@ the downloaded file.  If there is an error thrown at any point, returns NIL."
               (file-stream  (drakma:http-request link :want-stream t)))
           (loop :for bytes = (read-sequence buffer file-stream)
              :while (plusp bytes) :do (write-sequence buffer out))))
-    (error (c) (progn
-                 (format *error-output* "While downloading image file at ~a.~%Encountered Error: ~a~%~%" link c)
-                 nil))))
+    (error (c)
+      (format *error-output*
+              "While downloading image file at ~a.~%Encountered Error: ~a~%~%"
+              link c))))
 
 
 (defun filename-from-link (link)
@@ -99,16 +104,34 @@ the downloaded file.  If there is an error thrown at any point, returns NIL."
                   ((equal type "svg") "svg+xml")
                   (t type)))))
 
+(defun fetch-link-from-tenor-page (page-uri)
+  "Scrapes an image link from a the HTML served up by tenor."
+  (handler-case
+      (let* ((dom (plump:parse (drakma:http-request page-uri)))
+             (elems (clss:select "#single-gif-container .Gif > img" dom)))
+        (and (plusp (length elems))
+             (plump:attribute (elt elems 0) "src")
+             (first (ppcre:split "\\\?"  (plump:attribute (elt elems 0) "src")))))
+    (error (e)
+      (format *error-output*
+              "Error while processing tenor link ~a~%Error: ~a~%~%"
+              page-uri
+              e))))
 
 (defun check-word-for-link (word)
   (cond ((ppcre:scan-to-strings +image-link-regex+ word)
          (ppcre:scan-to-strings +image-link-regex+ word))
+
         ((ppcre:scan-to-strings +giphy-link-regex+ word)
          (multiple-value-bind (string matches)
              (ppcre:scan-to-strings +giphy-link-regex+ word)
            (declare (ignore string))
            (when (plusp (length matches))
              (format nil "https://media.giphy.com/media/~a/giphy.gif" (elt matches 1)))))
+
+        ((ppcre:scan-to-strings +tenor-link-regex+ word)
+         (fetch-link-from-tenor-page word))
+
         (t nil)))
 
 (defun handle-link-candiate (word)
-- 
cgit v1.2.3