(paip:open-pdf 1) to open pdf via browser.

Author: snmsts

lisp/open-pdf.lisp

@@ -0,0 +1,15 @@
+(defvar *paip-pdf-uri* "https://github.com/norvig/paip-lisp/raw/master/")
+                        
+(defun open-pdf (&optional (part 1))
+  (let* ((name (format nil "PAIP-part~A.pdf" part))
+         (path (namestring
+                (merge-pathnames
+                 name
+                 (asdf:system-source-directory (asdf:find-system :paip))))))
+    (when (<= 1 part 2)
+      (unless (probe-file path)
+        #+quicklisp(ql:quickload :dexador)
+        (uiop:symbol-call :dex :fetch (format nil "~A~A" *paip-pdf-uri* name) path))
+      #+quicklisp(ql:quickload :trivial-open-browser)
+      (uiop:symbol-call :trivial-open-browser :open-browser path)
+      path)))

paip.asd

@@ -1,7 +1,7 @@
 (defpackage paip
   (:use :cl)
   (:shadow :defconstant)
-  (:export :requires :*paip-files* :do-examples))
+  (:export :requires :*paip-files* :do-examples :open-pdf))
 
 (in-package :paip)
 
@@ -28,5 +28,6 @@
                 :components
                 ((:file "auxfns")
                  (:file "tutor")
-                 (:file "examples"))))
+                 (:file "examples")
+                 (:file "open-pdf"))))
   :description "Lisp code for the textbook \"Paradigms of Artificial Intelligence Programming\"")