?

Log in

No account? Create an account
entries friends calendar profile Elf Sternberg's Pendorwright Projects Previous Previous Next Next
Patch against LJ-Update 3.3 to support tagging. - Elf M. Sternberg
elfs
elfs
Patch against LJ-Update 3.3 to support tagging.

The following is a diff entry against the emacs client lj-update 3.3 that supports tagging. Note that the client makes no effort to check the tags, ensure they're consistent with anything else you've ever done, or enforce comma-correctness. Brad's entry makes it clear that tags can be "short phrases," therefore it's up to you to put commas between your "short phrase" and single-word tags.

diff -rU 2 ljupdate-3.3/lisp/lj-entry.el ljupdate-3.3.tagged/lisp/lj-entry.el
--- ljupdate-3.3/lisp/lj-entry.el       2002-08-19 16:17:36.000000000 -0700
+++ ljupdate-3.3.tagged/lisp/lj-entry.el        2005-06-22 09:23:55.000000000 -0700
@@ -248,4 +248,5 @@
         (moodid (lj--get-entry-property entry "current_moodid"))
         (mood (lj--get-entry-property entry "current_mood"))
+        (taglist (lj--get-entry-property entry "current_taglist"))
         (picture (lj--get-entry-property entry "picture_keyword"))
         (nocomments (lj--get-entry-property entry "opt_nocomments"))
diff -rU 2 ljupdate-3.3/lisp/lj-post.el ljupdate-3.3.tagged/lisp/lj-post.el
--- ljupdate-3.3/lisp/lj-post.el        2002-08-20 11:36:43.000000000 -0700
+++ ljupdate-3.3.tagged/lisp/lj-post.el 2005-06-22 10:17:21.000000000 -0700
@@ -100,4 +100,7 @@
           (add-to-list 'fields `(usejournal . ,community)))

+        (when (not (string-equal taglist ""))
+          (add-to-list 'fields `(prop_taglist . ,taglist)))
+
         (when (not (string-equal picture ""))
           (add-to-list 'fields `(prop_picture_keyword . ,picture)))
@@ -183,4 +186,5 @@
                     (emailp (lj--fetch-header "X-LJ-Receive-Mail-Notification"))
                     (access (lj--fetch-header "X-LJ-Access"))
+                    (taglist (lj--fetch-header "X-LJ-Taglist"))
                    (date-time-alist (lj--fetch-date-and-time-alist)))
                (ljc-mail-sendmail-undelimit-header)
diff -rU 2 ljupdate-3.3/lisp/lj-write.el ljupdate-3.3.tagged/lisp/lj-write.el
--- ljupdate-3.3/lisp/lj-write.el       2002-08-19 16:19:19.000000000 -0700
+++ ljupdate-3.3.tagged/lisp/lj-write.el        2005-06-22 10:15:20.000000000 -0700
@@ -381,5 +381,6 @@
     "X-LJ-Access: " (or (cdr (assoc 'access defaults-alist))
                        lj-default-access-level
-                       "public") "\n"))
+                       "public") "\n"
+    "X-LJ-Taglist: \n"))

   (set (make-local-variable 'lj-composition) t)

Tags: , ,
Current Mood: geeky geeky
Current Music: Morning Musume, We're Alive

2 comments or Leave a comment
Comments
otfrom From: otfrom Date: February 12th, 2006 09:08 pm (UTC) (Link)

Thanks

This is great. I'm using it now.
wnorrix From: wnorrix Date: May 8th, 2006 08:56 pm (UTC) (Link)
Is there some way you can add auto complete for the tags. Woudl be really helpful.
2 comments or Leave a comment