|
Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
;;; eev-pdflike.el -- hyperlinks to documents made of pages.
;; Copyright (C) 2012,2013 Free Software Foundation, Inc.
;;
;; This file is (not yet?) part of GNU eev.
;;
;; GNU eev is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;;
;; GNU eev is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;
;; Author: Eduardo Ochs <[email protected]>
;; Maintainer: Eduardo Ochs <[email protected]>
;; Version: 2014mar05
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-pdflike.el>
;; htmlized: <http://angg.twu.net/eev-current/eev-pdflike.el.html>
;; See also: <http://angg.twu.net/eev-current/eev-readme.el.html>
;; <http://angg.twu.net/eev-intros/find-eev-intro.html>
;; <http://angg.twu.net/eev-intros/find-pdf-like-intro.html>
;; (find-eev-intro)
;; (find-pdf-like-intro)
;;; Commentary:
;; (code-brfile 'find-fline :local 'brfl)
;; (code-brfile 'find-xpdfpage :local 'brxpdf :dired 'brxpdfd)
;; (code-brurl 'find-firefox :remote 'brm :local 'brml :dired 'brmd)
(require 'eev-brxxx)
;;; _ _ _
;;; __ ____ _ _ __(_) __ _| |__ | | ___ ___
;;; \ \ / / _` | '__| |/ _` | '_ \| |/ _ \/ __|
;;; \ V / (_| | | | | (_| | |_) | | __/\__ \
;;; \_/ \__,_|_| |_|\__,_|_.__/|_|\___||___/
;;
(defvar ee-page-c "{?}")
(defvar ee-page-fname "{?}")
(defvar ee-page-offset 0)
;;; ____ ____ _____ _ _ _
;;; | _ \| _ \| ___| | (_) | _____
;;; | |_) | | | | |_ _____| | | |/ / _ \
;;; | __/| |_| | _|_____| | | < __/
;;; |_| |____/|_| |_|_|_|\_\___|
;;;
;; See: (find-pdf-like-intro)
(defun ee-code-pdftext-rest (rest)
(ee-template0 "
;; {(ee-S `(ee-code-pdftext-rest ,@rest))}
"))
;;; _ __
;;; __ ___ __ __| |/ _|
;;; \ \/ / '_ \ / _` | |_
;;; > <| |_) | (_| | _|
;;; /_/\_\ .__/ \__,_|_|
;;; |_|
;;
;; (find-pdflikedef-links "xpdf" "c fname")
;;
;; find-xpdfpage
;; find-xpdf-page
;; code-xpdf
;;
(defalias 'find-xpdfpage
'find-xpdf-page)
(defun find-xpdf-page (fname &optional page &rest rest)
(find-bgprocess (ee-find-xpdf-page fname page)))
(defvar ee-find-xpdf-page-options '())
(defun ee-find-xpdf-page (fname &optional page)
`("xpdf"
,@ee-find-xpdf-page-options
,fname
,@(if page `(,(format "%d" page)))
))
(defun code-xpdf (c fname &rest rest)
(eval (ee-read (apply 'ee-code-xpdf c fname rest))))
(defun find-code-xpdf (c fname &rest rest)
(find-estring-elisp (apply 'ee-code-xpdf c fname rest)))
(defun ee-code-xpdf (c fname &rest rest)
(concat (ee-template0 "\
;; {(ee-S `(find-code-xpdf ,c ,fname ,@rest))}
;;
\(setq ee-pdflike-last 'find-{c}page)
\(defun find-{c}page (&optional page &rest rest)
(setq ee-pdflike-last 'find-{c}page)
(find-xpdf-page {(ee-pp0 fname)} page))
") (ee-code-pdftext-rest rest)))
(code-brfile 'find-xpdf-page :local 'brxpdfl :dired 'brxpdfd)
;;; _ __
;;; _ __ __| |/ _|
;;; | '_ \ / _` | |_
;;; | |_) | (_| | _|
;;; | .__/ \__,_|_|
;;; |_|
;;
(defalias 'find-pdfpage 'find-xpdfpage)
(defalias 'find-pdf-page 'find-xpdf-page)
(defalias 'code-pdf 'code-xpdf)
(defalias 'find-code-pdf 'find-code-xpdf)
;;; _
;;; _____ _(_)_ __ ___ ___
;;; / _ \ \ / / | '_ \ / __/ _ \
;;; | __/\ V /| | | | | (_| __/
;;; \___| \_/ |_|_| |_|\___\___|
;;;
;;
;; (find-pdflikedef-links "evince" "c fname")
;; (find-man "1 evince")
;;
;; find-evincepage
;; find-evince-page
;; code-evince
;;
(defalias 'find-evincepage
'find-evince-page)
(defun find-evince-page (fname &optional page &rest rest)
(find-bgprocess (ee-find-evince-page fname page)))
(defvar ee-find-evince-page-options '())
(defun ee-find-evince-page (fname &optional page)
`("evince"
,@ee-find-evince-page-options
;; ,@(if page `(,(format "--page-label=%d" page)))
,@(if page `(,(format "--page-index=%d" page)))
,fname))
(defun code-evince (c fname &rest rest)
(eval (ee-read (apply 'ee-code-evince c fname rest))))
(defun find-code-evince (c fname &rest rest)
(find-estring-elisp (apply 'ee-code-evince c fname rest)))
(defun ee-code-evince (c fname &rest rest)
(concat (ee-template0 "\
\(defun find-{c}page (&optional page &rest rest)
(find-evince-page {(ee-pp0 fname)} page))
{(ee-code-pdftext-rest rest)}
") (ee-code-pdftext-rest rest)))
(code-brfile 'find-evince-page :local 'brevincel :dired 'brevinced)
;;; _ _
;;; __ ____| |_ _(_)
;;; \ \/ / _` \ \ / / |
;;; > < (_| |\ V /| |
;;; /_/\_\__,_| \_/ |_|
;;;
;;
;; (find-pdflikedef-links "xdvi" "c fname")
;;
;; find-xdvipage
;; find-xdvi-page
;; code-xdvi
;;
(defalias 'find-xdvipage
'find-xdvi-page)
(defun find-xdvi-page (fname &optional page &rest rest)
(find-bgprocess (ee-find-xdvi-page fname page)))
(defvar ee-find-xdvi-page-options '())
(defun ee-find-xdvi-page (fname &optional page)
`("xdvi"
,@ee-find-xdvi-page-options
,@(if page `(,(format "+%d" page)))
,fname))
(defun code-xdvi (c fname &rest rest)
(eval (ee-read (apply 'ee-code-xdvi c fname rest))))
(defun find-code-xdvi (c fname &rest rest)
(find-estring-elisp (apply 'ee-code-xdvi c fname rest)))
(defun ee-code-xdvi (c fname &rest rest)
(concat (ee-template0 "\
\(defun find-{c}page (&optional page &rest rest)
(find-xdvi-page {(ee-pp0 fname)} page))
{(ee-code-pdftext-rest rest)}
") (ee-code-pdftext-rest rest)))
(code-brfile 'find-xdvi-page :local 'brxdvil :dired 'brxdvid)
(defalias 'code-dvi 'code-xdvi)
(defalias 'find-code-dvi 'find-code-xdvi)
;;; _ _
;;; __| |(_)_ ___ _
;;; / _` || \ \ / / | | |
;;; | (_| || |\ V /| |_| |
;;; \__,_|/ | \_/ \__,_|
;;; |__/
;;
;; (find-pdflikedef-links "djvu" "c fname")
;;
;; find-djvupage
;; find-djvu-page
;; code-djvu
;;
(defalias 'find-djvupage
'find-djvu-page)
(defun find-djvu-page (fname &optional page &rest rest)
(ee-find-djvu-cleanup fname)
(find-bgprocess (ee-find-djvu-page fname page)))
(defvar ee-find-djvu-page-options '())
(defun ee-find-djvu-page (fname &optional page)
`("djview"
,@ee-find-djvu-page-options
,@(if page `(,(format "--page=%d" page)))
,fname))
(defun code-djvu (c fname &rest rest)
(eval (ee-read (apply 'ee-code-djvu c fname rest))))
(defun find-code-djvu (c fname &rest rest)
(find-estring-elisp (apply 'ee-code-djvu c fname rest)))
(defun ee-code-djvu (c fname &rest rest)
(concat (ee-template0 "\
\(defun find-{c}page (&optional page &rest rest)
(find-djvu-page {(ee-pp0 fname)} page))
") (ee-code-pdftext-rest rest)))
(defun ee-find-djvu-cleanup (&optional fname)
"A hack: clean up djview's 'recentFiles=' line in the config file if needed.")
(code-brfile 'find-djvu-page :local 'brdjvul :dired 'brdjvud)
;;;
;;; _ __ ___
;;; | '_ \/ __|
;;; | |_) \__ \
;;; | .__/|___/
;;; |_|
;;
;; (find-pdflikedef-links "ps" "c fname")
;;
;; find-pspage
;; find-ps-page
;; code-ps
;;
(defalias 'find-pspage
'find-ps-page)
(defun find-ps-page (fname &optional page &rest rest)
(find-bgprocess (ee-find-ps-page fname page)))
(defvar ee-find-ps-page-options '())
(defun ee-find-ps-page (fname &optional page)
`("gv"
,@ee-find-ps-page-options
,@(if page `(,(format "--page=%d" page)))
,fname))
(defun code-ps (c fname &rest rest)
(eval (ee-read (apply 'ee-code-ps c fname rest))))
(defun find-code-ps (c fname &rest rest)
(find-estring-elisp (apply 'ee-code-ps c fname rest)))
(defun ee-code-ps (c fname &rest rest)
(concat (ee-template0 "\
\(defun find-{c}page (&optional page &rest rest)
(find-ps-page {(ee-pp0 fname)} page))
") (ee-code-pdftext-rest rest)))
;;; __ _ _ _ _
;;; / _(_)_ __ __| | __ ____ ____ __ | |_ _____ _| |_
;;; | |_| | '_ \ / _` |____\ \/ /\ \/ /\ \/ /____| __/ _ \ \/ / __|
;;; | _| | | | | (_| |_____> < > < > <_____| || __/> <| |_
;;; |_| |_|_| |_|\__,_| /_/\_\/_/\_\/_/\_\ \__\___/_/\_\\__|
;;;
(defun ee-goto-position-page (&optional pos-spec &rest rest)
"Like `ee-goto-position', but interpreting a number as a page number.
\(Note that POS-SPEC is only interpreted as a page if it is a number.)"
(when pos-spec
(cond ((numberp pos-spec)
(goto-char (point-min))
(re-search-forward "[\f]" nil nil (1- pos-spec)))
((stringp pos-spec)
(goto-char (save-excursion ; This used to be just:
(goto-char (point-min)) ; (goto-char (point-min))
(search-forward pos-spec) ; (search-forward pos-spec)
(point)))) ;
(t (error "This is not a valid pos-spec: %S" pos-spec)))
(if rest (ee-goto-rest rest))))
(defun find-sh-page (command &rest pos-spec-list)
"Like `find-sh', but interpreting the car of POS-SPEC-LIST as a page."
(interactive "sShell command: ")
(find-eoutput-reuse
command
`(insert (shell-command-to-string ,command)))
(apply 'ee-goto-position-page pos-spec-list))
;; find-pdf-text
;;
(defalias 'find-pdf-text
'find-pdftotext-text)
(defun find-pdftotext-text (fname &rest rest)
(apply 'find-sh-page (ee-find-pdftotext-text fname) rest))
(defun ee-find-pdftotext-text (fname)
(format "pdftotext -layout -enc Latin1 '%s' -" (ee-expand fname)))
(code-brfile 'find-pdf-text
:local 'brpdftextl
:dired 'brpdftextd)
;; find-djvu-text
;;
(defalias 'find-djvu-text
'find-djvutxt-text)
(defun find-djvutxt-text (fname &rest rest)
(apply 'find-sh-page (ee-find-djvutxt-text fname) rest))
(defun ee-find-djvutxt-text (fname)
(format "djvutxt '%s'" fname))
(code-brfile 'find-djvu-text
:local 'brdjvutextl
:dired 'brdjvutextd)
;; (find-pdflikedef-links "pdf" "c fname")
(defun code-pdf-text (c fname &optional offset &rest rest)
(eval (ee-read (apply 'ee-code-pdf-text c fname offset rest))))
(defun find-code-pdf-text (c fname &optional offset &rest rest)
(find-estring-elisp (apply 'ee-code-pdf-text c fname offset rest)))
(defun ee-code-pdf-text (c fname &optional offset &rest rest)
(setq offset (or offset 0))
(concat (ee-template0 "\
;; {(ee-S `(find-code-pdf-text ,c ,fname ,offset ,@rest))}
\(defun find-{c}text (&optional page &rest rest)
(setq ee-page-c {(ee-pp0 c)})
(setq ee-page-fname {(ee-pp0 fname)})
(setq ee-page-offset {(ee-pp0 offset)})
(apply 'find-pdf-text {(ee-pp0 fname)} page rest))
;; Set the defaults now
;; See: (find-pdf-like-intro \"find-code-pdf-text\")
\(setq ee-page-c {(ee-pp0 c)})
\(setq ee-page-fname {(ee-pp0 fname)})
\(setq ee-page-offset {(ee-pp0 offset)})
")))
(defun code-djvu-text (c fname &optional offset &rest rest)
(eval (ee-read (apply 'ee-code-djvu-text c fname offset rest))))
(defun find-code-djvu-text (c fname &optional offset &rest rest)
(find-estring-elisp (apply 'ee-code-djvu-text c fname offset rest)))
(defun ee-code-djvu-text (c fname &optional offset &rest rest)
(setq offset (or offset 0))
(concat (ee-template0 "\
\(defun find-{c}text (&optional page &rest rest)
(setq ee-page-c {(ee-pp0 c)})
(setq ee-page-fname {(ee-pp0 fname)})
(setq ee-page-offset {(ee-pp0 offset)})
(find-djvu-text {(ee-pp0 fname)} page))
;; Set the defaults now - see (find-pdf-like-intro \"find-code-pdf-text\")
\(setq ee-page-c {(ee-pp0 c)})
\(setq ee-page-fname {(ee-pp0 fname)})
\(setq ee-page-offset {(ee-pp0 offset)})
")))
;; Tests:
;; (find-code-pdf-text "foo" "/tmp/foo.pdf" 3)
;; (code-pdf-text "foo" "/tmp/foo.pdf" 3)
;; (find-footext)
;; (find-footext 2)
;; (find-efunction 'find-page-links)
;; Test:
;; (find-code-xpdf "{c}" "{fname}" :key "{foo}" :key "{bar}")
;; (find-xpdfpage "~/tmp/discussao_proifesgroups.pdf")
;; Garbage?
;; (defun ee-pspage (fname &optional page gvargs)
;; `("gv" ,@gvargs ,@(if page (list (format "--page=%d" page))) ,fname))
;; (defun ee-xpdfpage (fname &optional page xpdfargs)
;; `("xpdf" ,@xpdfargs ,fname ,(format "%s" (or page 1))))
;; (defun ee-djvupage (fname &optional page)
;; `("djview" ,@(if page (list (format "--page=%d" page))) ,fname))
(provide 'eev-pdflike)
;; Local Variables:
;; coding: raw-text-unix
;; ee-anchor-format: "«%s»"
;; ee-anchor-format: "defun %s "
;; no-byte-compile: t
;; End: