all repos — nixfiles @ 48fa52879053991c9d59a70d243bcd470b2196c7

System and user configuration, managed by nix and home-manager

Emacs: Show compiled file path after tangling

Alan Pearce
commit

48fa52879053991c9d59a70d243bcd470b2196c7

parent

321e46792fd1aed34793b12574550272e77523cb

1 file changed, 4 insertions(+), 4 deletions(-)

jump to
M tag-emacs/emacs.d/init.org → tag-emacs/emacs.d/init.org
@@ -2431,11 +2431,11 @@ (when (string-suffix-p "init.org" (buffer-file-name))
       (message "Tangling init")
       ;; Avoid running hooks when tangling.
       (let ((prog-mode-hook nil)
-            (dest (concat user-emacs-directory "init.el")))
+            (dest (expand-file-name "init.el" user-emacs-directory)))
         (require 'ob-tangle)
         (org-babel-tangle-file (buffer-file-name) dest)
         (if (byte-compile-file dest)
-            dest
+            (byte-compile-dest-file dest)
           (with-current-buffer byte-compile-log-buffer
             (buffer-string))))))
 

@@ -2450,11 +2450,11 @@ (async-start
        `(lambda ()
           ;; Avoid running hooks when tangling.
           (let ((prog-mode-hook nil)
-                (dest (concat user-emacs-directory "init.el")))
+                (dest (expand-file-name "init.el" user-emacs-directory)))
             (require 'ob-tangle)
             (org-babel-tangle-file ,(buffer-file-name) dest)
             (if (byte-compile-file dest)
-                dest
+                (byte-compile-dest-file dest)
               (with-current-buffer byte-compile-log-buffer
                 (buffer-string)))))
        (lambda (result)