| @@ -960,6 +960,23 @@ found, otherwise returns nil." | |||||
| t)) | t)) | ||||
| (recently-mode 1)) | (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) | (when (safe-require-or-eval 'editorconfig) | ||||
| (set-variable 'editorconfig-get-properties-function | (set-variable 'editorconfig-get-properties-function | ||||
| 'editorconfig-core-get-properties-hash) | '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 "<up>")) | ;; (define-key mozc-mode-map (kbd "C-p") (kbd "<up>")) | ||||
| ;; (define-key mozc-mode-map (kbd "C-n") (kbd "SPC")) | ;; (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 "あ")) | (custom-set-variables '(mozc-leim-title "あ")) | ||||
| (defun turn-on-input-method () | (defun turn-on-input-method () | ||||
| (interactive) | (interactive) | ||||
| @@ -2639,28 +2656,12 @@ Any output will be written to current buffer." | |||||
| (set-variable 'mozc-candidate-style 'popup) | (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: | ;; Local Variables: | ||||