Browse Source

Update

master
10sr 4 years ago
parent
commit
895e60dcce
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 changed files with 22 additions and 21 deletions
  1. +22
    -21
      emacs.el

+ 22
- 21
emacs.el View File

@@ -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:


Loading…
Cancel
Save