[elpa] externals/doc-toc c86a72abda 12/84: Implement replace original or ad toc to copy of pdf

[ELPA Syncer]

branch: externals/doc-toc
commit c86a72abda454a998d999b0da22435d2a78e6752
Author: Daniel Nicolai <dalanicolai@gmail.com>
Commit: Daniel Nicolai <dalanicolai@gmail.com>

    Implement replace original or ad toc to copy of pdf
---
 README.org  |  9 ++++++---
 toc-mode.el | 20 ++++++++++++++++----
 2 files changed, 22 insertions(+), 7 deletions(-)

diff --git a/README.org b/README.org
index 413f316a51..598540dabf 100644
--- a/README.org
+++ b/README.org
@@ -72,7 +72,7 @@ contain a structure like
 1 Chapter 1    1
 Section 1      2  
 #+END_SRC
-Here the indentation can be set with ~M-x replace-regexp~ ~^[^0-9]~ ->  ~\&~ 
(where
+Here the indentation can be set with =M-x replace-regexp= ~^[^0-9]~ ->  ~\&~ 
(where
 there is a space character before the ~\&~).
 
 Type =C-c C-c= when finished
@@ -96,5 +96,8 @@ to (for pdf's a copy of) the original document. Final 
adjusments can be done but
 should not be necessary. For pdf just type =C-c C-c= for adding the contents 
to the
 document. For djvu type =M-x toc-add-to-djvu=.
 
-For pdf the a file =pdfwithtoc.pdf= is created in the same folder as the 
original
-pdf. For djvu, the TOC is simply added to the original djvu file.
+By default, the TOC is simply added to the original file. ONLY FOR PDF's, if 
the
+(customizable) variable ~toc-replace-original-file~ is ~nil~, then the TOC is 
added
+to a copy of the original pdf file with path as defined by the variable
+~toc-destination-file-name~, where either a relative path to the original file
+directory or an absolute path can be given.
diff --git a/toc-mode.el b/toc-mode.el
index 3dc2dba2a2..09947d9e2e 100644
--- a/toc-mode.el
+++ b/toc-mode.el
@@ -24,10 +24,19 @@
 
 ;;; Code:
 
+(defgroup toc-mode nil
+  "Setting for the toc-mode package")
 
+(defcustom toc-replace-original-file t
+  "For PDF include TOC and replace old PDF file.
+For DJVU the old DJVU file is replaced by default"
+  :type 'boolean
+  :group 'toc-mode)
 
-(provide 'document-outliner)
-;;; document-outliner.el ends here
+(defcustom toc-destination-file-name "pdfwithtoc.pdf"
+  "Filename for new PDF if toc-replace-original-file is nil"
+  :type 'file
+  :group 'toc-mode)
 
 ;;;; toc-extract and cleanup
 
@@ -385,7 +394,9 @@ Use with the universal argument (C-u) omits cleanup to get 
the unprocessed text.
   (call-process "pdfoutline" nil "*pdfoutline*" nil
                 (concat (file-name-sans-extension (buffer-name)) ".pdf")
                 (buffer-name)
-                "pdfwithtoc.pdf"))
+                (if toc-replace-original-file
+                    (concat (file-name-sans-extension (buffer-name)) ".pdf")
+                  toc-destination-file-name)))
 
 (defun toc-add-to-djvu ()
   "combine with add-toc-to-djvu in add-toc-to-document when ready"
@@ -447,5 +458,6 @@ Use with the universal argument (C-u) omits cleanup to get 
the unprocessed text.
     ;; (print (mapcar #'(lambda (region) (pdf-info-gettext page region)) 
(pdf-info-line-regions regions)))))
     ;; (mapcar '(lambda (region) (pdf-info-gettext page region)) regions)))
 
-
+(provide 'toc-mode)
+;;; document-outliner.el ends here