[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev 51e636a 63/64: Deleted eev-pdflike-old.el.
From: |
Stefan Monnier |
Subject: |
[elpa] externals/eev 51e636a 63/64: Deleted eev-pdflike-old.el. |
Date: |
Sun, 7 Apr 2019 16:59:14 -0400 (EDT) |
branch: externals/eev
commit 51e636a59cc7d8374e95b156cb2034436e11e676
Author: Eduardo Ochs <address@hidden>
Commit: Eduardo Ochs <address@hidden>
Deleted eev-pdflike-old.el.
---
ChangeLog | 2 +
VERSION | 4 +-
eev-pdflike-old.el | 441 -----------------------------------------------------
eev-pkg.el | 2 +-
4 files changed, 5 insertions(+), 444 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 2262867..f0af696 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
2019-04-01 Eduardo Ochs <address@hidden>
+ * eev-pdflike-old.el: deleted this file.
+
* README: added a section "eev without eev-mode".
* eev-intro.el (find-eev-intro): small changes.
diff --git a/VERSION b/VERSION
index 307e85d..5844baa 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Tue Apr 2 00:31:14 GMT 2019
-Mon Apr 1 21:31:14 -03 2019
+Tue Apr 2 01:05:44 GMT 2019
+Mon Apr 1 22:05:44 -03 2019
diff --git a/eev-pdflike-old.el b/eev-pdflike-old.el
deleted file mode 100644
index 7df0197..0000000
--- a/eev-pdflike-old.el
+++ /dev/null
@@ -1,441 +0,0 @@
-;;; 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 <address@hidden>
-;; Maintainer: Eduardo Ochs <address@hidden>
-;; 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:
diff --git a/eev-pkg.el b/eev-pkg.el
index ede38ab..1d6c2e8 100644
--- a/eev-pkg.el
+++ b/eev-pkg.el
@@ -1,4 +1,4 @@
-(define-package "eev" "20190314" "Support for e-scripts (eepitch blocks, elisp
hyperlinks, etc)"
+(define-package "eev" "20190401" "Support for e-scripts (eepitch blocks, elisp
hyperlinks, etc)"
'((emacs "24.3"))
:keywords
'("lisp" "e-scripts")
- [elpa] externals/eev 7c396d0 26/64: Many changes in the intros; added eev-load.el, (continued)
- [elpa] externals/eev 7c396d0 26/64: Many changes in the intros; added eev-load.el, Stefan Monnier, 2019/04/07
- [elpa] externals/eev 8a09aa4 59/64: Made the files eev-code.el and eev-brxxx.el more compatible with lexical binding., Stefan Monnier, 2019/04/07
- [elpa] externals/eev fb9f4c6 64/64: Added an explanation of why eev is not in ELPA yet., Stefan Monnier, 2019/04/07
- [elpa] externals/eev b0f124e 48/64: Added material to `find-escripts-intro' and `find-eev-quick-intro'., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 9d39df9 36/64: Several clean-ups in eev-elinks.el and eev-tlinks.el., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 39a2cea 60/64: New file: eev-template0.el., Stefan Monnier, 2019/04/07
- [elpa] externals/eev c77ca3b 27/64: Rewrote eev-pdflike.el, added sections about it to (find-eev-quick-intro)., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 7162184 51/64: Added `find-texworkspdf-page'., Stefan Monnier, 2019/04/07
- [elpa] externals/eev b9baae6 17/64: First commit after an HD crash; lots of changes, Stefan Monnier, 2019/04/07
- [elpa] externals/eev 2518e75 50/64: Use "eev-beginner.el" instead of "eev-readme.el"., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 51e636a 63/64: Deleted eev-pdflike-old.el.,
Stefan Monnier <=
- [elpa] externals/eev b56266f 54/64: Added `eev-beginner' (our first autoload)., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 5dbba21 40/64: Added `find-eunicodeucs'; added lots of documentation., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 14d1125 46/64: Converted several elisp files to utf-8., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 22702eb 31/64: Made all secondary intros point to sections of find-eev-quick-intro., Stefan Monnier, 2019/04/07
- [elpa] externals/eev a5f9343 30/64: Small changes in `find-eev-install-links' and in eev-intro.el., Stefan Monnier, 2019/04/07
- [elpa] externals/eev af88c9b 01/64: Initial commit for eev2, Stefan Monnier, 2019/04/07