emacs/sekka.el in sekka-1.5.4 vs emacs/sekka.el in sekka-1.5.5

@@ -131,14 +131,18 @@
 (defvar sekka-muhenkan-key nil     "*Non-nil であれば、リアルタイムガイド表示中は指定したキーで無変換のままスペースを挿入する。アルファベット文字１文字を指定すること")
 (defvar sekka-sticky-shift nil     "*Non-nil であれば、Sticky-Shiftを有効にする")
 (defvar sekka-mode nil             "漢字変換トグル変数")
 (defun sekka-modeline-string ()
   ;; 接続先sekka-serverのホスト名を表示する。
-  (format " Sekka[%s]" (if current-sekka-server-url
-			   (url-host
-			    (url-generic-parse-url current-sekka-server-url))
-			 "")))
+  (format " Sekka[%s%s]"
+	  (if current-sekka-server-url
+	      (url-host
+	       (url-generic-parse-url current-sekka-server-url))
+	    "")
+	  (if sekka-uploading-flag
+	      "(UPLOADING)"
+	    "")))
 (defvar sekka-select-mode nil      "候補選択モード変数")
 (or (assq 'sekka-mode minor-mode-alist)
     (setq minor-mode-alist (cons
 			    '(sekka-mode (:eval (sekka-modeline-string)))
 			    minor-mode-alist)))
@@ -187,10 +191,14 @@
 
 
 ;;; 現在のsekka-serverの接続先
 (defvar current-sekka-server-url     nil)
 
+;;; 辞書のアップロード中かどうか
+(defvar sekka-uploading-flag         nil)
+
+
 ;;; 候補選択モード用
 (defvar sekka-history-stack '())        ; 過去に変換した、場所と変換候補の状態を保存しておくスタック
 ;; データ構造は以下の通り。
 ;; alistのlistとなる。 alistのキーは、sekka-* というバッファローカル変数のバックアップとなる)
 ;; 新しいものは先頭に追加され、検索も先頭から行われる。即ち、古い情報も残るがいつかstackのlimitを超えるとあふれて捨てられる。
@@ -518,18 +526,21 @@
   (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 '()))
+      (setq sekka-uploading-flag t)
+      (redraw-modeline)
       (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)))))
+	    (sekka-debug-print (format "register-result:%S\n" result))))
+	(setq sekka-uploading-flag nil)
+	(redraw-modeline)))
     t))
 
 
 ;;
 ;; ユーザー語彙をサーバーから全て削除する
@@ -1635,10 +1646,10 @@
 ;; input-method として登録する。
 (set-language-info "Japanese" 'input-method "japanese-sekka")
 (setq default-input-method "japanese-sekka")
 
 (defconst sekka-version
-  "1.5.4" ;;SEKKA-VERSION
+  "1.5.5" ;;SEKKA-VERSION
   )
 (defun sekka-version (&optional arg)
   "入力モード変更"
   (interactive "P")
   (message sekka-version))