Changeset 14934 for lang/gauche

Timestamp:

06/30/08 23:42:59 (5 months ago)

Author:

kiyoka

Message:

Released 0.2.9

Location:

lang/gauche/oldtype/branches/stable

Files:

• Kahua/oldtype/oldtype/oldtype-mode.el (modified) (4 diffs)
• Kahua/oldtype/oldtype/oldtype.css (modified) (2 diffs)
• Kahua/oldtype/oldtype/oldtype.kahua (modified) (2 diffs)
• Kahua/oldtype/oldtype/version.kahua (modified) (1 diff)
• command/blog (modified) (1 diff)

lang/gauche/oldtype/branches/stable/Kahua/oldtype/oldtype/oldtype-mode.el

@@ -29 +29 @@
 ;;
 ;; ChangeLog:
+;;   [0.0.6]
+;;     1. Improved URL to [URL|TITLE] conversion feature.  ( C-c C-c key )
+;;        oldtype-mode.el fetches remote title page and insert TITLE.
+;;
 ;;   [0.0.5]
 ;;     1. Fixed bug: [return] key breaks japanese input method UI.
@@ -598 +602 @@
     (if (not found)
         (newline))))
+
+
+;;
+;; [fetch command]
+;;   w3m -no-graph -halfdump -o ext_halfdump=1 -o strict_iso2022=0 -o fix_width_conv=1 URL
+;;       | awk '-F<' '/title_alt/ { print $2; }' | tail -1 | awk '-F"' '{ print $2; }'
+;;
+(defun oldtype-fetch-html-title (url)
+  (cond 
+   ((string-match "http://" url)
+    (with-temp-buffer
+      (shell-command 
+       (concat
+        (format "w3m -no-graph -halfdump -o ext_halfdump=1 -o strict_iso2022=0 -o fix_width_conv=1 \'%s\' |" url)
+        "awk \'-F\<\' \'/title_alt/ { print $2; }\' |"
+        "tail -1 |"
+        "awk \'-F\"\' \'{ printf(\"%s\", $2); }\'")
+       (current-buffer))
+      (replace-string "[" "<" nil (point-min) (point-max))
+      (replace-string "]" ">" nil (point-min) (point-max))
+      (buffer-substring-no-properties (point-min) (point-max))))
+   (t
+    "No Title")))
+
 
 (defun oldtype-mode-hookfunc ()
@@ -673 +701 @@
           (let* ((asin  (match-string 2))
                  (url   (match-string 0))
-                 (title (if (boundp 'w3m-version)
-                            (or (w3m-arrived-title url)
-                                "NoTitle")
-                          "NoTitle")))
-            (delete-region (match-beginning 1) (match-end 3))
-            (goto-char (match-beginning 1))
+                 (s     (match-beginning 1))
+                 (e     (match-end 3))
+                 (title (oldtype-fetch-html-title url)))
+            (delete-region s e)
+            (goto-char s)
             (insert (format "##(amazon %s)  %s" asin title))))
          ;; http://www.youtube.com/watch ...  youtube-command
@@ -685 +712 @@
           (let* ((video (match-string 2))
                  (url   (match-string 0))
-                 (title (if (boundp 'w3m-version)
-                            (or (w3m-arrived-title url)
-                                "NoTitle")
-                          "NoTitle")))
-            (delete-region (match-beginning 1) (match-end 3))
-            (goto-char (match-beginning 1))
+                 (s     (match-beginning 1))
+                 (e     (match-end 3))
+                 (title (oldtype-fetch-html-title url)))
+            (delete-region s e)
+            (goto-char s)
             (insert (format "##(youtube %s)  %s" video title))))
          ;; http://host/path/of/contents... anchor-keyword
          ((string-match      (concat "^" _url_file-pattern) str)
           (re-search-forward             _url_file-pattern (point-at-eol) t)
-          (if (boundp 'w3m-version)
-              (let* ((url   (match-string 1))
-                     (title (or (w3m-arrived-title url)
-                                "NoTitle")))
-                (delete-region (match-beginning 1) (match-end 1))
-                (goto-char (match-beginning 1))
-                (insert (format "[[%s|%s]]" url title)))
-            (message "OldType: Please install emacs-w3m.")))
+          (let* ((url   (match-string 1))
+                 (s     (match-beginning 1))
+                 (e     (match-end 1))
+                 (title (oldtype-fetch-html-title url)))
+            (delete-region s e)
+            (goto-char s)
+            (insert (format "[[%s|%s]]" url title))))
          (t
           (message "OldType: Please move cursor to [[URL|Name]]  or [[WikiName]] *.png  or  ##(... )  keywword.' "))))))

lang/gauche/oldtype/branches/stable/Kahua/oldtype/oldtype/oldtype.css

@@ -201 +201 @@
 
 hr {
+        margin-left: 0;
+        text-align: left;
         border-color: #8888bb;
         border-style: dotted none none none;
         border-width: thin;
-        height: 0px;
-        width:  60em;
+        height: 1em;
+        width:  80%;
 }
 
 div.footer {
-        padding-top: 0.5em;
+        padding-top: 1.5em;
         border-color: #8888bb;
         border-style: dotted none none none;
@@ -632 +634 @@
 
 
-hr {
-        clear: both;
-}
 
 

lang/gauche/oldtype/branches/stable/Kahua/oldtype/oldtype/oldtype.kahua

@@ -342 +342 @@
     (lambda (x)
       (not (or
+            (#/^----*$/ x)
             (#/^[ ]*$/ x)
             (#/^[ ]*##/ x))))
@@ -394 +395 @@
                              (list index-page)
                              entry-pages))
-         (build-date-utc (last
-                          (sort
-                           (map
-                            (lambda (e)
-                              (utc-of
-                               (get-latest-log
-                                (timeline-of e))))
-                            entry-pages)))))
+         (build-date-utc
+          (last
+           (sort
+            (map
+             (lambda (e)
+               (utc-of
+                (get-latest-log
+                 (timeline-of e))))
+             entry-pages))))
+         (build-date-utc
+          (- build-date-utc (* 60 5))))  ;; build date is 5 minutes ago from latest entry
     (rss/ (@/ (version "2.0")
               (xmlns:atom "http://www.w3.org/2005/Atom"))

lang/gauche/oldtype/branches/stable/Kahua/oldtype/oldtype/version.kahua

@@ -7 +7 @@
 
 ;;---------------------------------------------------------
-(define *oldtype-version* "0.2.8")
+(define *oldtype-version* "0.2.9")

lang/gauche/oldtype/branches/stable/command/blog

@@ -30 +30 @@
            (lambda ()
              (when (#/[.][0-9]+/ filename)
-               (display "----") (newline)
-               (display 
-                (string-append "* [[" (oldtype:otpath->wikiname filename) "]]")))
+               (begin
+                 (display "----") (newline)
+                 (newline)
+                 (newline)
+                 (display 
+                  (string-append "* [[" (oldtype:otpath->wikiname filename) "]]"))))
              (for-each print (port->string-list (current-input-port))))))
        entrylist))))