(require "perl")

(in-package "editor")

; use windows-like keybind
(load-library "winkey")

; use incremental search
(load-library "isearch")

; adjust indent level
(setq c-indent-level 4
      c-continued-statement-offset 0
      c-brace-offset -4
      c-argdecl-indent 0
      c-label-offset 0
      c-brace-imaginary-offset 0
      *c-indent-tabs-mode* nil)

; nice undo
(setq *move-forward-after-undo-deletion* t)

; nice newline
(defun perl-newline-and-indent ()
  (interactive)
  (newline)
  (c-indent-line))
(define-key *perl-mode-map* #\RET 'perl-newline-and-indent)

; Windows-like key-binding
(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-o 'open-file-dialog)
(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 #\C-y 'redo)
(global-set-key #\C-\\ 'call-last-kbd-macro)
(global-set-key #\Home 'beginning-of-line)
(global-set-key #\End 'end-of-line)
(global-set-key #\S-Home 'selection-beginning-of-line)
(global-set-key #\S-End 'selection-end-of-line)
(global-set-key #\F3 'repeat-forward-search)
(global-set-key #\S-F3 'repeat-backward-search)
(global-set-key #\F7 'kill-selection-to-clipboard)
(global-set-key #\F8 'copy-selection-to-clipboard)
(global-set-key #\F9 'paste-from-clipboard)
(global-set-key #\F12 'rename)

; My key-binding
(global-set-key '(#\C-x #\C-x) 'execute-subprocess)
(global-set-key '(#\C-x #\C-c) 'kill-buffer)