From a2601b6d5a2581ae20f7bc443de1a98961ce82b5 Mon Sep 17 00:00:00 2001
From: "Tom Breton (Tehom)" <tehom@panix.com>
Date: Thu, 9 Sep 2010 17:22:49 -0400
Subject: [PATCH] Renaming tehom-org-html-* => org-html-*

---
 l2r.el | 55 +++++++++++++++++++++----------------------------------
 1 file changed, 21 insertions(+), 34 deletions(-)

diff --git a/l2r.el b/l2r.el
index 57c116a..59f8b06 100644
--- a/l2r.el
+++ b/l2r.el
@@ -30,9 +30,6 @@
 
 ;;;_ , Requires
 
-(when (not (fboundp 'rtest:deftest))
-    (defmacro rtest:deftest (&rest dummy))
-    (defmacro rtest:if-avail (&rest dummy)))
 (require 'tinydb/persist)
 
 ;;;_. Body
@@ -54,46 +51,36 @@ remote URLs"
 
 ;;;_  . org2blog-l2r-remote-url
 (defun org2blog-l2r-remote-url (path)
-   ""
-   '
-   (tehom-persist-buffer-as-const-list
-      org2blog-l2r-alist-file
-      org2blog-l2r-alist
-      (let* (  (abs-path (expand-file-name path))
-	       (cell (assoc abs-path org2blog-l2r-alist)))
-	 (when cell (second cell))))
-
-   (tinydb-alist-assoc org2blog-l2r-tq (expand-file-name path)))
-
+   "Return the persisting translation of PATH."
+   (cadr
+      (tinydb-alist-assoc org2blog-l2r-tq (expand-file-name path))))
+
+;;;_  . org2blog-l2r-cvt-link
+(defun org2blog-l2r-cvt-link (opt-plist type path)
+   "Convert arguments to (type path) list of the remote url."
+   (declare (ignored opt-plist))
+   ;;Maybe duck if type is not file?
+   (let
+      ((cvted-path
+	  (org2blog-l2r-remote-url path)))
+      (when cvted-path
+	 (list type cvted-path))))
 
 ;;;_  . org2blog-l2r-store-remote-url
 (defun org2blog-l2r-store-remote-url (filepath url)
-   ""
+   "Persistingly store the translation from FILEPATH to URL."
    (assert (file-name-absolute-p filepath) t)
    (tinydb-alist-pushnew
       org2blog-l2r-tq filepath (list url)))
 ;;;_  . org2blog-l2r-store-remote-url-yx
-;;Just an arg-conformant version
+;;Just 
 ;;;###autoload
-(defun org2blog-l2r-store-remote-url-yx (url args)
-   ""
-   ;;Maybe push-replace instead?
+(defun org2blog-l2r-store-remote-url-yx (url filepath)
+   "Persistingly store the translation from FILEPATH to URL.
+An arg-conformant version of `org2blog-l2r-store-remote-url'"
+   (assert (file-name-absolute-p filepath) t)
    (tinydb-alist-pushnew
-      org2blog-l2r-tq (car args) url))
-
-;;;_  . org2blog-l2r-acq-and-store
-;;$$OBSOLESCENT
-(defun org2blog-l2r-acq-and-store (acq-regexp local-file)
-   ""
-   (save-excursion
-      (goto-char (point-min))
-      (when
-	 (search-forward-regexp acq-regexp nil t)
-	 (let*
-	    (  (abs-local-file (expand-file-name local-file))
-	       (remote-url (match-string 1)))
-	    (org2blog-l2r-store-remote-url abs-local-file remote-url)))))
-
+      org2blog-l2r-tq filepath (list url)))
 
 ;;;_. Footers
 ;;;_ , Provides
-- 
2.11.4.GIT