7. pdf-url-p 関数 ypooo.hatenablog.com (defun pdf-url-p (url-str) (handler-case (let* ((uri (puri:parse-uri url-str)) (path (or (puri:uri-path uri) ""))) (cl-ppcre:scan "(?i)\\.pdf($|\\?)" path)) (error () nil))) 目的: 与えられたURL文字列がPDFファイルを指しているかどうかを判定します。 Lispのコンセ…