From d6e22bf3c9ed7dbbc2fb14ab5a8639f576075340 Mon Sep 17 00:00:00 2001 From: Kaushal Modi Date: Mon, 15 Jul 2019 15:59:45 -0400 Subject: [PATCH] Revert "Just use the input f-or-b-name" This reverts commit be4d99436d47f1d203e947b541525d29e6ee7782. --- ox-hugo.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/ox-hugo.el b/ox-hugo.el index c0168de..2171354 100644 --- a/ox-hugo.el +++ b/ox-hugo.el @@ -3705,7 +3705,8 @@ Return output file's name." ;; (message "[org-hugo-export-to-md DBG] section-dir = %s" section-dir) (unless subtreep ;; Below stuff applies only to *per-file* export flow. - (let* ((title (format "%s" (or (car (plist-get info :title)) ""))) + (let* ((fname (or f-or-b-name (file-name-nondirectory (buffer-file-name)))) + (title (format "%s" (or (car (plist-get info :title)) ""))) (all-tags-1 (plist-get info :hugo-tags)) (all-tags (when all-tags-1 (split-string @@ -3719,9 +3720,9 @@ Return output file's name." (setq matched-exclude-tag exclude-tag) (setq do-export nil)))) (if do-export - (message "[ox-hugo] Exporting `%s' (%s)" title f-or-b-name) + (message "[ox-hugo] Exporting `%s' (%s)" title fname) (message "[ox-hugo] %s was not exported as it is tagged with an exclude tag `%s'" - f-or-b-name matched-exclude-tag)))) + fname matched-exclude-tag)))) (when do-export (prog1 (org-export-to-file 'hugo outfile async subtreep visible-only)