Elisp/org-auto-tangle
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cleanup old unsed code + fix package name

Browse Source
This commit is contained in:
Ionut Adrian Ciolan 2025-06-29 22:21:41 +03:00
parent 8052c2a94f
commit 065dac8b04
1 changed files with 1 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
iadrian-org-tangle.el → iadrian-org-auto-tangle.el
View File

@ -148,7 +148,7 @@ Assume buffer is in Org mode. Narrowing, if any, is ignored."
;; Fix async tangling failing over TRAMP
(defun iadrian-org-auto-tangle-async (file)
"Tangle FILE asynchronously unless it's a TRAMP path (then fallback to sync)."
"iAdrian_PATCH: Tangle FILE asynchronously unless it's a TRAMP path (then fallback to sync)."
(if (file-remote-p file)
;; Use current buffer over TRAMP. Slower but safe
(with-current-buffer (get-file-buffer file)
@ -182,38 +182,6 @@ Assume buffer is in Org mode. Narrowing, if any, is ignored."
(lambda (tangle-time)
(message "%s %s seconds" message-string tangle-time))))))
;(defun iadrian-org-auto-tangle-async (file)
; "Invoke `org-babel-tangle-file' asynchronously on FILE."
; (message "Tangling %s..." (buffer-file-name))
; (async-start
; (let* ((buf-vars (plist-get (iadrian-org-auto-tangle--get-inbuffer-options)
; :with-vars))
; (with-vars (if buf-vars
; (mapcar #'intern
; (org-uniquify (org-split-string
; (symbol-name buf-vars) ":")))
; iadrian-org-auto-tangle-with-vars))
; (preserved (mapcar (lambda (v)
; (cons v (symbol-value v)))
; (append '(org-src-preserve-indentation
; org-babel-pre-tangle-hook
; org-babel-post-tangle-hook)
; with-vars)))
; (evaluate (not (member file iadrian-org-auto-tangle-babel-safelist))))
; (lambda ()
; (require 'org)
; (let ((start-time (current-time))
; (non-essential t)
; (org-confirm-babel-evaluate evaluate))
; (cl-progv (mapcar #'car preserved) (mapcar #'cdr preserved)
; (org-babel-tangle-file file))
; (format "%.2f" (float-time (time-since start-time))))))
; (let ((message-string (format "Tangling %S completed after" file)))
; (lambda (tangle-time)
; (message "%s %s seconds" message-string tangle-time)))))
(defun iadrian-org-auto-tangle-tangle-if-needed ()
"Call iadrian-org-auto-tangle-async if needed.