       (message "Cannot get latest version of package %s" pkg-name)
       nil)))
 
-(defun kui/pop-as-assoc (keys seq)
-  "Pop head elements in SEQ as alist which has KEYS.
+(defun kui/pop-as-alist (keys seq)
+  "Pop head elements of SEQ as alist which has KEYS.
 
 Example:
 
-	(kui/pop-as-assoc '(:a :b) '(:a 1 :b 2 :c 3))
+	(kui/pop-as-alist '(:a :b) '(:a 1 :b 2 :c 3))
 	;; => ((:a . 1) (:b . 2))
-	(kui/pop-as-assoc '(:a :b) '(:d 1 :e 2 :a 3 :b 4))
+	(kui/pop-as-alist '(:a :b) '(:d 1 :e 2 :a 3 :b 4))
 	;; => nil"
   (let ((first (nth 0 seq)))
     (if (cl-find first keys)
         (cons `(,(nth 0 seq) . ,(nth 1 seq))
-              (kui/pop-as-assoc keys (nthcdr 2 seq)))
+              (kui/pop-as-alist keys (nthcdr 2 seq)))
       nil)))
 
 ;; インストール済みでアップデート可能なパッケージをリストアップ

    (electric-indent-mode t))
  (add-hook 'ruby-mode-hook 'kui/ruby-init)

  (with-pkg 'robe
    (add-hook 'ruby-mode-hook 'robe-mode)
    (add-hook 'robe-mode-hook 'ac-robe-setup))


  (global-set-key "\C-s" 'helm-occur)
  (global-set-key "\M-x" 'helm-M-x)

  (kui/after-loaded 'helm
    (define-key helm-map "\C-h" 'delete-backward-char)
    (define-key helm-map "TAB" 'helm-execute-persistent-action))
  (kui/after-loaded 'helm-files
    (define-key helm-find-files-map "\C-h" 'delete-backward-char)
    (define-key helm-find-files-map "TAB" 'helm-execute-persistent-action))
  )

;; whitespace-mode
(kui/with-pkg 'whitespace
  ;; n 列以上はハイライトで警告
  ;; (setq whitespace-line-column 90)

