diff --git a/emacs.el b/emacs.el index 4969688..3597027 100644 --- a/emacs.el +++ b/emacs.el @@ -960,6 +960,23 @@ found, otherwise returns nil." t)) (recently-mode 1)) +(defvar my-cousel-recently-history nil "History of `my-counsel-recently'.") + +(when (and (require 'recently nil t) + (fboundp 'ivy-read)) + (defun my-counsel-recently () + "Consel `recently'." + (interactive) + (ivy-read "Recently: " (recently-list) + :require-match t + :history 'my-cousel-recently-history + :preselect default-directory + :action (lambda (x) (find-file x)) + :caller 'my-counsel-recently)) + + (define-key ctl-x-map (kbd "C-r") 'my-counsel-recently) + ) + (when (safe-require-or-eval 'editorconfig) (set-variable 'editorconfig-get-properties-function 'editorconfig-core-get-properties-hash) @@ -2623,7 +2640,7 @@ Any output will be written to current buffer." ;; (define-key mozc-mode-map (kbd "C-p") (kbd "")) ;; (define-key mozc-mode-map (kbd "C-n") (kbd "SPC")) ) - ;; (setq default-input-method "japanese-mozc") + (setq default-input-method "japanese-mozc") (custom-set-variables '(mozc-leim-title "あ")) (defun turn-on-input-method () (interactive) @@ -2639,28 +2656,12 @@ Any output will be written to current buffer." (set-variable 'mozc-candidate-style 'popup) ;; これいる? - (require 'mozc-im) - (setq default-input-method "japanese-mozc-im") - (global-set-key (kbd "C-j") 'toggle-input-method) - + ;; (require 'mozc-im) + ;; (setq default-input-method "japanese-mozc-im") + ;; (global-set-key (kbd "C-j") 'toggle-input-method) + ;; 日本語 ) -(defvar my-cousel-recently-history nil "History of `my-counsel-recently'.") - -(when (and (require 'recently nil t) - (fboundp 'ivy-read)) - (defun my-counsel-recently () - "Consel `recently'." - (interactive) - (ivy-read "Recently: " (recently-list) - :require-match t - :history 'my-cousel-recently-history - :preselect default-directory - :action (lambda (x) (find-file x)) - :caller 'my-counsel-recently)) - - (define-key ctl-x-map (kbd "C-r") 'my-counsel-recently) - ) ;; Local Variables: