From 065dac8b04f78e4bb91a78f7440fd2f0dbf5d7cd Mon Sep 17 00:00:00 2001
From: Ionut Adrian Ciolan <iadrian@ciolan.net>
Date: Sun, 29 Jun 2025 22:21:41 +0300
Subject: [PATCH] cleanup old unsed code + fix package name

---
 ...rg-tangle.el => iadrian-org-auto-tangle.el | 34 +------------------
 1 file changed, 1 insertion(+), 33 deletions(-)
 rename iadrian-org-tangle.el => iadrian-org-auto-tangle.el (85%)

diff --git a/iadrian-org-tangle.el b/iadrian-org-auto-tangle.el
similarity index 85%
rename from iadrian-org-tangle.el
rename to iadrian-org-auto-tangle.el
index 3b6b887..82f8c2d 100644
--- a/iadrian-org-tangle.el
+++ b/iadrian-org-auto-tangle.el
@@ -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.