null+****@clear*****
null+****@clear*****
Wed Jun 27 00:40:49 JST 2012
yuta yamada 2012-06-27 00:40:49 +0900 (Wed, 27 Jun 2012) New Revision: 9da016330a7e7ca1fcca8f20a2d9d812836fad1d https://github.com/logaling/logalimacs/commit/9da016330a7e7ca1fcca8f20a2d9d812836fad1d Log: loga-add/update: Move add and update logic to new function Modified files: logalimacs.el Modified: logalimacs.el (+4 -1) =================================================================== --- logalimacs.el 2012-06-26 23:34:49 +0900 (deab634) +++ logalimacs.el 2012-06-27 00:40:49 +0900 (34d0194) @@ -204,7 +204,7 @@ (cons search-word (loga-to-shell loga (concat task " " word-and-options)))) (cdar loga-word-cache)) ((:add :update) - (minibuffer-message (loga-to-shell loga (concat task " " (loga-input)))) + (loga-add/update task)) ((:show :list) (loga-make-buffer (loga-to-shell loga task))) ((:config :delete :help :import :new) @@ -212,6 +212,9 @@ ((:register :unregister :version) (minibuffer-message (loga-to-shell loga task)))))) +(defun loga-add/update (task) + (let* ((input (loga-input))) + (loga-to-shell "\\loga" (concat task " " input)))) (defun loga-lookup-attach-option (search-word) (let* ((options '())) (if loga-use-dictionary-option -------------- next part -------------- An HTML attachment was scrubbed...Download
