;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require pdf-view pdf-util imenu] 2) #@39 Keymap used in `pdf-misc-minor-mode'. (defvar pdf-misc-minor-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [map make-sparse-keymap define-key "I" pdf-misc-display-metadata "" pdf-misc-print-document] 4) (#$ . 177)) #@107 Non-nil if Pdf-Misc minor mode is enabled. Use the command `pdf-misc-minor-mode' to change this variable. (defvar pdf-misc-minor-mode nil (#$ . 426)) (make-variable-buffer-local 'pdf-misc-minor-mode) #@567 FIXME: Not documented. This is a minor mode. If called interactively, toggle the `Pdf-Misc minor mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `pdf-misc-minor-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'pdf-misc-minor-mode #[(&optional arg) "\305  \306=\203\n?\202 \247\203 \307W\203\310\202\311\312\303!\2032\313\302 \"\n\2032\302 B\314\315\n\203<\316\202=\317\"\210\320\321!\203b\305 \203Q\305 \232\203b\322\323\324\n\203]\325\202^\326\f#\210))\327 \210\n\207" [#1=#:last-message arg pdf-misc-minor-mode local-minor-modes local current-message toggle 1 nil t boundp delq run-hooks pdf-misc-minor-mode-hook pdf-misc-minor-mode-on-hook pdf-misc-minor-mode-off-hook called-interactively-p any " in current buffer" message "Pdf-Misc minor mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 633) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar pdf-misc-minor-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [pdf-misc-minor-mode-map pdf-misc-minor-mode-hook variable-documentation put "Hook run after entering or leaving `pdf-misc-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode pdf-misc-minor-mode boundp] 6) #@139 Non-nil if Pdf-Misc-Size-Indication minor mode is enabled. Use the command `pdf-misc-size-indication-minor-mode' to change this variable. (defvar pdf-misc-size-indication-minor-mode nil (#$ . 2442)) (make-variable-buffer-local 'pdf-misc-size-indication-minor-mode) #@627 Provide a working size indication in the mode-line. This is a minor mode. If called interactively, toggle the `Pdf-Misc-Size-Indication minor mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `pdf-misc-size-indication-minor-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'pdf-misc-size-indication-minor-mode #[(&optional arg) "\306  \307=\203\n?\202 \247\203 \310W\203\311\202\312\313\303!\2032\314\302 \"\n\2032\302 B\315 \210\n\203F\302\f\236\204M\316\fB\202M\317\302\f\320\321$\322\323\n\203W\324\202X\325\"\210\326\327!\203}\306 \203l\306 \232\203}\330\331\332\n\203x\333\202y\334 #\210))\335 \210\n\207" [#1=#:last-message arg pdf-misc-size-indication-minor-mode local-minor-modes mode-line-position local current-message toggle 1 nil t boundp delq pdf-util-assert-pdf-buffer (pdf-misc-size-indication-minor-mode (:eval (pdf-misc-size-indication))) cl-remove :key car-safe run-hooks pdf-misc-size-indication-minor-mode-hook pdf-misc-size-indication-minor-mode-on-hook pdf-misc-size-indication-minor-mode-off-hook called-interactively-p any " in current buffer" message "Pdf-Misc-Size-Indication minor mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 2714) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar pdf-misc-size-indication-minor-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [pdf-misc-size-indication-minor-mode-map pdf-misc-size-indication-minor-mode-hook variable-documentation put "Hook run after entering or leaving `pdf-misc-size-indication-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode pdf-misc-size-indication-minor-mode boundp] 6) #@50 Return size indication string for the mode-line. (defalias 'pdf-misc-size-indication #[nil "\302\303\304\"\305U\306\307 8\307 A@Z\302\303\304\"\\\310\304!AY\211\203'\203'\311\202I \203/\312\202I\2037\313\202I\314\315\316\317\320\302\303\304\"!\310\304!A\245_!\"*\207" [bot top window-vscroll nil t 0 3 window-inside-pixel-edges pdf-view-image-size " All" " Top" " Bot" format " %d%%%%" ceiling 100 float] 9 (#$ . 4968)]) #@52 The keymap used in `pdf-misc-menu-bar-minor-mode'. (defvar pdf-misc-menu-bar-minor-mode-map (make-sparse-keymap) (#$ . 5406)) (easy-menu-do-define nil pdf-misc-menu-bar-minor-mode-map "Menu for PDF Tools." '("PDF Tools" ["Go Backward" pdf-history-backward :visible (bound-and-true-p pdf-history-minor-mode) :active (and (bound-and-true-p pdf-history-minor-mode) (not (pdf-history-end-of-history-p)))] ["Go Forward" pdf-history-forward :visible (bound-and-true-p pdf-history-minor-mode) :active (not (pdf-history-end-of-history-p))] ["--" nil :visible (derived-mode-p 'pdf-virtual-view-mode)] ["Next file" pdf-virtual-buffer-forward-file :visible (derived-mode-p 'pdf-virtual-view-mode) :active (pdf-virtual-document-next-file (pdf-view-current-page))] ["Previous file" pdf-virtual-buffer-backward-file :visible (derived-mode-p 'pdf-virtual-view-mode) :active (not (eq 1 (pdf-view-current-page)))] ["--" nil :visible (bound-and-true-p pdf-history-minor-mode)] ["Add text annotation" pdf-annot-mouse-add-text-annotation :visible (bound-and-true-p pdf-annot-minor-mode) :keys "\\[pdf-annot-add-text-annotation]"] ("Add markup annotation" :active (pdf-view-active-region-p) :visible (and (bound-and-true-p pdf-annot-minor-mode) (pdf-info-markup-annotations-p)) ["highlight" pdf-annot-add-highlight-markup-annotation] ["squiggly" pdf-annot-add-squiggly-markup-annotation] ["underline" pdf-annot-add-underline-markup-annotation] ["strikeout" pdf-annot-add-strikeout-markup-annotation]) ["--" nil :visible (bound-and-true-p pdf-annot-minor-mode)] ["Display Annotations" pdf-annot-list-annotations :help "List all annotations" :visible (bound-and-true-p pdf-annot-minor-mode)] ["Display Attachments" pdf-annot-attachment-dired :help "Display attachments in a dired buffer" :visible (featurep 'pdf-annot)] ["Display Metadata" pdf-misc-display-metadata :help "Display information about the document" :visible (featurep 'pdf-misc)] ["Display Outline" pdf-outline :help "Display documents outline" :visible (featurep 'pdf-outline)] "--" ("Render Options" ["Printed Mode" (lambda nil (interactive) (pdf-view-printer-minor-mode 'toggle)) :style toggle :selected pdf-view-printer-minor-mode :help "Display the PDF as it would be printed."] ["Midnight Mode" (lambda nil (interactive) (pdf-view-midnight-minor-mode 'toggle)) :style toggle :selected pdf-view-midnight-minor-mode :help "Apply a color-filter appropriate for past midnight reading."]) "--" ["Copy region" pdf-view-kill-ring-save :keys "\\[kill-ring-save]" :active (pdf-view-active-region-p)] "--" ["Isearch document" isearch-forward :visible (bound-and-true-p pdf-isearch-minor-mode)] ["Occur document" pdf-occur :visible (featurep 'pdf-occur)] "--" ["Locate TeX source" pdf-sync-backward-search-mouse :visible (and (featurep 'pdf-sync) (equal last-command-event last-nonmenu-event))] ["--" nil :visible (and (featurep 'pdf-sync) (equal last-command-event last-nonmenu-event))] ["Print" pdf-misc-print-document :active (and (pdf-view-buffer-file-name) (file-readable-p (pdf-view-buffer-file-name)))] ["Create image" pdf-view-extract-region-image :help "Create an image of the page or the selected region(s)."] ["Create virtual PDF" pdf-virtual-buffer-create :help "Create a PDF containing all documents in this directory." :visible (bound-and-true-p pdf-virtual-global-minor-mode)] "--" ["Revert buffer" pdf-view-revert-buffer :visible (pdf-info-writable-annotations-p)] "--" ["Customize" pdf-tools-customize])) #@125 Non-nil if Pdf-Misc-Menu-Bar minor mode is enabled. Use the command `pdf-misc-menu-bar-minor-mode' to change this variable. (defvar pdf-misc-menu-bar-minor-mode nil (#$ . 8871)) (make-variable-buffer-local 'pdf-misc-menu-bar-minor-mode) #@603 Display a PDF Tools menu in the menu-bar. This is a minor mode. If called interactively, toggle the `Pdf-Misc-Menu-Bar minor mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `pdf-misc-menu-bar-minor-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'pdf-misc-menu-bar-minor-mode #[(&optional arg) "\305  \306=\203\n?\202 \247\203 \307W\203\310\202\311\312\303!\2032\313\302 \"\n\2032\302 B\314 \210\315\316\n\203?\317\202@\320\"\210\321\322!\203e\305 \203T\305 \232\203e\323\324\325\n\203`\326\202a\327\f#\210))\330 \210\n\207" [#1=#:last-message arg pdf-misc-menu-bar-minor-mode local-minor-modes local current-message toggle 1 nil t boundp delq pdf-util-assert-pdf-buffer run-hooks pdf-misc-menu-bar-minor-mode-hook pdf-misc-menu-bar-minor-mode-on-hook pdf-misc-menu-bar-minor-mode-off-hook called-interactively-p any " in current buffer" message "Pdf-Misc-Menu-Bar minor mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 9115) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar pdf-misc-menu-bar-minor-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [pdf-misc-menu-bar-minor-mode-map pdf-misc-menu-bar-minor-mode-hook variable-documentation put "Hook run after entering or leaving `pdf-misc-menu-bar-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode pdf-misc-menu-bar-minor-mode boundp] 6) (defvar pdf-misc-context-menu-minor-mode-map (byte-code "\301 \302\303\304#\210)\207" [kmap make-sparse-keymap define-key [down-mouse-3] pdf-misc-popup-context-menu] 4)) #@133 Non-nil if Pdf-Misc-Context-Menu minor mode is enabled. Use the command `pdf-misc-context-menu-minor-mode' to change this variable. (defvar pdf-misc-context-menu-minor-mode nil (#$ . 11269)) (make-variable-buffer-local 'pdf-misc-context-menu-minor-mode) #@661 Provide a right-click context menu in PDF buffers. This is a minor mode. If called interactively, toggle the `Pdf-Misc-Context-Menu minor mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `pdf-misc-context-menu-minor-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. \{pdf-misc-context-menu-minor-mode-map} (defalias 'pdf-misc-context-menu-minor-mode #[(&optional arg) "\305  \306=\203\n?\202 \247\203 \307W\203\310\202\311\312\303!\2032\313\302 \"\n\2032\302 B\314 \210\315\316\n\203?\317\202@\320\"\210\321\322!\203e\305 \203T\305 \232\203e\323\324\325\n\203`\326\202a\327\f#\210))\330 \210\n\207" [#1=#:last-message arg pdf-misc-context-menu-minor-mode local-minor-modes local current-message toggle 1 nil t boundp delq pdf-util-assert-pdf-buffer run-hooks pdf-misc-context-menu-minor-mode-hook pdf-misc-context-menu-minor-mode-on-hook pdf-misc-context-menu-minor-mode-off-hook called-interactively-p any " in current buffer" message "Pdf-Misc-Context-Menu minor mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 11530) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar pdf-misc-context-menu-minor-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [pdf-misc-context-menu-minor-mode-map pdf-misc-context-menu-minor-mode-hook variable-documentation put "Hook run after entering or leaving `pdf-misc-context-menu-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode pdf-misc-context-menu-minor-mode boundp] 6) #@55 Popup a context menu at position determined by EVENT. (defalias 'pdf-misc-popup-context-menu #[(event) "\301\302\303\304\"AAB!\207" [pdf-misc-menu-bar-minor-mode-map popup-menu keymap lookup-key [menu-bar PDF\ Tools]] 5 (#$ . 13613) "@e"]) #@54 Display all available metadata in a separate buffer. (defalias 'pdf-misc-display-metadata #[nil "\306 \210p\307 r\310\311!q\210\312\313\314\315\316 \"\"\317\320 \"\321\322 \210\323!!\312\"\324\325!\210\326\321\327\"\210 \321#\211$\203\203$@\211#@#A%\211&\330=\203Y\331\332%\333#%\334&!G`\\T\335 T\336\"'(\317\f&%#c\210\337(`\"\210,$A\211$\204=.\325b\210\340p!\210) *\207" [buffer md inhibit-read-only pad fmt window pdf-util-assert-pdf-buffer pdf-info-metadata get-buffer-create "*PDF-Metadata*" t apply max mapcar #[(d) "\301@!G\207" [d symbol-name] 2] format "%%%ds:%%s\n" nil erase-buffer buffer-name font-lock-mode 1 font-lock-add-keywords (("^ *\\(\\(?:\\w\\|-\\)+\\):" (1 font-lock-keyword-face))) keywords mapconcat identity ", " symbol-name make-string 32 fill-region display-buffer header-line-format buffer-read-only d --dolist-tail-- val key fill-prefix beg] 6 (#$ . 13860) nil]) (byte-code "\300\301\302\303\304\305%\210\306\307\302\310\304\301\311\312&\210\306\313\302\314\304\301\311\315&\207" [custom-declare-group pdf-misc nil "Miscellaneous options for PDF documents." :group pdf-tools custom-declare-variable pdf-misc-print-programm "The program used for printing.\n\nIt is called with one argument, the PDF file." :type file pdf-misc-print-programm-args "List of additional arguments passed to `pdf-misc-print-program'." (repeat string)] 8) (defalias 'pdf-misc-print-programm #[(&optional interactive-p) "\203\n\305!\206> \205>\306\307\310\305\311\"\"@\307\312\313\314\n\307\315\307\316&!\211\205=\305\f!\205=\317\320!\203:\321\300\f\"\210\f\211+\207" [pdf-misc-print-programm interactive-p default buffer-file-name programm executable-find delq nil mapcar ("gtklp" "xpp" "gpr") expand-file-name read-file-name "Print with: " t file-executable-p y-or-n-p "Save choice using customize ?" customize-save-variable] 9]) (defalias 'pdf-misc-print-document #[(filename &optional interactive-p) ";\203 \305!\204\306\307\310\300E\"\210\311 !\312\nC\"\211\204%\313\314!\210\315\316\317\320\f %\210\321\322\f\323\324 \325##*\207" [filename interactive-p pdf-misc-print-programm-args args programm file-readable-p signal wrong-type-argument (and string file-readable) pdf-misc-print-programm append error "No print program available" apply start-process "printing" nil message "Print job started: %s %s" mapconcat identity " "] 8 nil (list (pdf-view-buffer-file-name) t)]) (provide 'pdf-misc)