tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ox.el: Remove .gpg extension from the exported file-name 

* ox.el (org-export-output-file-name): Remove .gpg extension.

Reported-by: Adalricus Ovicula <adalricus@inventati.org>
Link: https://orgmode.org/list/87a74x7g6v.fsf@xenon.ovicula/
This commit is contained in:
Bastien Guerry 2021-04-27 10:04:27 +02:00
parent 13a1a4fb96
commit e8c24b66af
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ox.el
View File

@ -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