Fix org-latex-export-to-pdf spamming kill ring with tex
This commit is contained in:
parent
2e5cc398b4
commit
b8f75be5fe
@ -161,7 +161,7 @@
|
|||||||
|
|
||||||
(use-package org
|
(use-package org
|
||||||
:defer
|
:defer
|
||||||
:bind ((:map org-mode-map ("C-z" . org-latex-export-to-pdf))
|
:bind ((:map org-mode-map ("C-z" . org-latex-export-to-pdf-no-kr))
|
||||||
(:map org-src-mode-map ("C-z" . org-src-export-to-pdf)))
|
(:map org-src-mode-map ("C-z" . org-src-export-to-pdf)))
|
||||||
:config
|
:config
|
||||||
;; Make windmove work in org-mode:
|
;; Make windmove work in org-mode:
|
||||||
@ -178,9 +178,13 @@
|
|||||||
(defun org-latex-open-pdf ()
|
(defun org-latex-open-pdf ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(call-process "evince" nil 0 nil (org-latex-export-to-pdf)))
|
(call-process "evince" nil 0 nil (org-latex-export-to-pdf)))
|
||||||
|
(defun org-latex-export-to-pdf-no-kr ()
|
||||||
|
(interactive)
|
||||||
|
(org-latex-export-to-pdf)
|
||||||
|
(pop kill-ring)) ; remove most recent element of kill ring
|
||||||
(defun org-src-export-to-pdf ()
|
(defun org-src-export-to-pdf ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(org-src-in-org-buffer (org-latex-export-to-pdf)))
|
(org-src-in-org-buffer (org-latex-export-to-pdf-no-kr)))
|
||||||
(setq org-confirm-babel-evaluate nil)
|
(setq org-confirm-babel-evaluate nil)
|
||||||
(org-babel-do-load-languages
|
(org-babel-do-load-languages
|
||||||
'org-babel-load-languages
|
'org-babel-load-languages
|
||||||
|
Loading…
Reference in New Issue
Block a user