(provide "winkey2")

(in-package "editor")

;;; winkey.lからコピー
(defvar *default-selection-keymap*
	(let ((keymap (make-sparse-keymap)))
		(define-key keymap #\C-c 'copy-selection-to-clipboard)
		(define-key keymap #\C-x 'kill-selection-to-clipboard)
		keymap))

(setq-default selection-keymap *default-selection-keymap*)
(global-set-key #\C-z 'undo)
(global-set-key #\C-v 'paste-from-clipboard)
(define-key esc-map #\C-x #'ctl-x-prefix)
(define-key esc-map #\C-c #'specific-command-prefix)


;;; Windowsっぽい設定
(global-set-key #\C-a 'selection-whole-buffer)
(global-set-key #\C-f 'search-dialog)
;(global-set-key #\C-N 'new-file)
(global-set-key #\C-n 'find-file)
(global-set-key #\C-o 'open-filer)
(global-set-key #\C-p 'print-selected-buffer-dialog)
(global-set-key #\C-r 'replace-dialog)
(global-set-key #\C-s 'save-buffer-dialog)
(global-set-key #\Home 'beginning-of-virtual-line)
(global-set-key #\End 'end-of-virtual-line)
(global-set-key #\C-Home 'beginning-of-buffer)
(global-set-key #\C-End 'end-of-buffer)
(global-set-key #\S-Home 'selection-beginning-of-virtual-line)
(global-set-key #\S-End 'selection-end-of-virtual-line)
(global-set-key #\S-C-Home 'selection-beginning-of-buffer)
(global-set-key #\S-C-End 'selection-end-of-buffer)
(global-set-key #\F3 'search-forward-again)
(global-set-key #\S-F3 'search-backward-again)
(global-set-key #\M-F4 'kill-xyzzy)
(global-set-key #\C-F4 'close-selected-buffer)
(global-set-key #\C-Left 'backward-word)
(global-set-key #\C-Right 'forward-word)
(global-set-key #\S-C-Left 'selection-backward-word)
(global-set-key #\S-C-Right 'selection-forward-word)