summaryrefslogtreecommitdiff
path: root/.config/nyxt/unpdf.lisp
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2023-10-16 20:45:23 +0300
committerThanos Apollo <[email protected]>2023-10-16 20:45:23 +0300
commitfdd11abce2a0205bbc96077ca9c4cf1e85e8b98e (patch)
tree3edfe8ed0e07d3c3951676c2543a2f9d2894d0c1 /.config/nyxt/unpdf.lisp
parentfe9b8acaa2c05665d51695f3b3ce10b5a6fcc2d7 (diff)
Remove nyxt
Diffstat (limited to '.config/nyxt/unpdf.lisp')
-rw-r--r--.config/nyxt/unpdf.lisp86
1 files changed, 0 insertions, 86 deletions
diff --git a/.config/nyxt/unpdf.lisp b/.config/nyxt/unpdf.lisp
deleted file mode 100644
index 8b46457..0000000
--- a/.config/nyxt/unpdf.lisp
+++ /dev/null
@@ -1,86 +0,0 @@
-(in-package #:nyxt-user)
-
-;; I'm definining a new scheme to redirect PDF requests to. What it does is:
-;; - Get the original file (if the URL is a filesystem path, simply use it).
-;; - Save it to disk (if remote).
-;; - Run pdftotext over the file.
-;; - Display pdftotext output in a nice HTML page with interlinkable
-;; page numbers and page contents as <pre> tags.
-(define-internal-scheme "unpdf"
- (lambda (url buffer)
- (let* ((url (quri:uri url))
- (original-url (quri:uri (quri:url-decode (quri:uri-path url))))
- (local-p (or (null (quri:uri-scheme original-url))
- (string= "file" (quri:uri-scheme original-url))))
- (original-content (unless local-p
- (dex:get (quri:render-uri original-url) :force-binary t))))
- (flet ((display-pdf-contents (file)
- (if (uiop:file-exists-p file)
- (let ((pages (ignore-errors
- (uiop:split-string
- (uiop:run-program `("pdftotext" "-nodiag" ,(uiop:native-namestring file) "-")
- :output '(:string :stripped t))
- :separator '(#\Page)))))
- (spinneret:with-html-string
- (:head
- (:style (style buffer))
- ;; A class to override the <pre> colors.
- (:style (theme:themed-css (theme *browser*)
- #+(or nyxt-2 nyxt-3-pre-release-1)
- (.override
- :background-color theme:background
- :color theme:on-background
- :font-size "150%"
- :line-height "150%")
- #+(and nyxt-3 (not (or nyxt-2 nyxt-3-pre-release-1)))
- `(.override
- :background-color ,theme:background
- :color ,theme:on-background
- :font-size "150%"
- :line-height "150%"))))
- (loop for page in pages
- for number from 1
- unless (uiop:emptyp page)
- do (:section
- :id (princ-to-string number)
- (:h2.override (:a :href (format nil "#~d" number)
- (princ-to-string number)))
- (:pre.override (or page ""))))))
- "")))
- (if local-p
- (display-pdf-contents (pathname (quri:uri-path original-url)))
- (uiop:with-temporary-file (:pathname path :type "pdf" :keep t)
- (log:debug "Temp file for ~a is ~a" url path)
- (alexandria:write-byte-vector-into-file
- (coerce original-content '(vector (unsigned-byte 8))) path :if-exists :supersede)
- (display-pdf-contents path))))))
- :local-p t)
-
-(define-command-global unpdf-download-this ()
- "A helper for unpdf: pages to download the original PDF to the regular destination.
-
-Unpdf redirects all requests, even those that you need to read
-elsewhere, thus I need this command."
- (let* ((buffer (current-buffer))
- (url (url buffer)))
- (if (string= "unpdf" (quri:uri-scheme url))
- (ffi-buffer-download buffer (quri:uri-path url))
- ;; I need to turn it into a mode someday...
- (echo-warning "This command is for unpdf: pages only, it's useless elsewhere!"))))
-
-(defun redirect-pdf (request-data)
- (if (and (toplevel-p request-data)
- (uiop:string-prefix-p "application/pdf" (mime-type request-data)))
- ;; I should somehow prompt about downloading instead...
- (progn
- (echo "Redirecting to the unpdf URL...")
- (make-buffer-focus :url (quri:uri (str:concat "unpdf:" (render-url (url request-data)))))
- ;; Return nil to prevent Nyxt from downloading this PDF.
- nil)
- request-data))
-
-(define-configuration :web-buffer
- ((request-resource-hook (hooks:add-hook %slot-value% 'redirect-pdf))))
-
-(define-configuration nyxt/mode/file-manager:file-source
- ((supported-media-types `("pdf" ,@%slot-value%))))