sekka 1.5.3 → 1.5.4

data/emacs/sekka.el

@@ -27,6 +27,7 @@
 (require 'http-get)
 (require 'popup)
 (require 'url-parse)
+(require 'concurrent)
 
 ;;; 
 ;;;
@@ -513,20 +514,20 @@ non-nil で明示的に呼びだすまでGoogleIMEは起動しない。"
   
 ;;
 ;; ユーザー語彙をサーバーに登録する。
-;;   only-first が t の時は、1ブロック目だけを登録する
 (defun sekka-register-userdict-internal (&optional only-first)
-  (let* ((str      (sekka-get-jisyo-str sekka-jisyo-filename))
-	 (str-lst  (sekka-divide-into-few-line str)))
-    (mapcar
-     (lambda (x)
-       ;;(message "Requesting to sekka server...")
-       (sekka-debug-print (format "register [%s]\n" x))
-       (let ((result (sekka-rest-request "register" `((dict . ,x)))))
-	 (sekka-debug-print (format "register-result:%S\n" result))
-	 (message result)))
-     (if only-first
-	 (list (car str-lst))
-       str-lst))
+  (lexical-let ((str      (sekka-get-jisyo-str sekka-jisyo-filename)))
+    (lexical-let ((str-lst  (if only-first
+				(list (car (sekka-divide-into-few-line str)))
+			      (sekka-divide-into-few-line str)))
+		  (x '()))
+      (cc:thread 100
+	(while (< 0 (length str-lst))
+	  (setq x (pop str-lst))
+	  ;;(message "Requesting to sekka server...")
+	  (sekka-debug-print (format "register [%s]\n" x))
+	  (lexical-let ((result (sekka-rest-request "register" `((dict . ,x)))))
+	    (sekka-debug-print (format "register-result:%S\n" result))
+	    (message result)))))
     t))
 
 
@@ -561,21 +562,7 @@ non-nil で明示的に呼びだすまでGoogleIMEは起動しない。"
 	(while (< 0 (length str-lst))
 	  (push 
 	   (concat
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-	    )
+	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" )
 	   result))
 	(reverse result))
     '()))
@@ -1650,7 +1637,7 @@ point から行頭方向に同種の文字列が続く間を漢字変換しま
 (setq default-input-method "japanese-sekka")
 
 (defconst sekka-version
-  "1.5.3" ;;SEKKA-VERSION
+  "1.5.4" ;;SEKKA-VERSION
   )
 (defun sekka-version (&optional arg)
   "入力モード変更"

data/lib/sekka/sekkaversion.rb

@@ -1,4 +1,4 @@
 class SekkaVersion
-  def  self.version()     "1.5.3"  end
+  def  self.version()     "1.5.4"  end
   def  self.dictVersion() "1.4.0"  end
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: sekka
 version: !ruby/object:Gem::Version
-  version: 1.5.3
+  version: 1.5.4
 platform: ruby
 authors:
 - Kiyoka Nishiyama
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2014-05-28 00:00:00.000000000 Z
+date: 2014-06-11 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: eventmachine
@@ -198,6 +198,8 @@ files:
 - bin/sekka-jisyo
 - bin/sekka-path
 - bin/sekka-server
+- emacs/concurrent.el
+- emacs/deferred.el
 - emacs/http-cookies.el
 - emacs/http-get.el
 - emacs/popup.el