From e8c24b66afd804d58b379266e6efeb147d60a102 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 27 Apr 2021 10:04:27 +0200 Subject: [PATCH] ox.el: Remove .gpg extension from the exported file-name * ox.el (org-export-output-file-name): Remove .gpg extension. Reported-by: Adalricus Ovicula Link: https://orgmode.org/list/87a74x7g6v.fsf@xenon.ovicula/ --- lisp/ox.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ox.el b/lisp/ox.el index c99e8d111..c0fd33dbb 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -6406,7 +6406,12 @@ When optional argument PUB-DIR is set, use it as the publishing directory. Return file name as a string." - (let* ((visited-file (buffer-file-name (buffer-base-buffer))) + (let* ((visited-file + ;; If a buffer is visiting a .gpg file, remove the .gpg + ;; extension from the name of the exported file. + (replace-regexp-in-string + "\\.gpg\\'" "" + (buffer-file-name (buffer-base-buffer)))) (base-name (concat (file-name-sans-extension