зеркало из
https://github.com/iharh/notes.git
synced 2025-10-31 13:46:08 +02:00
123 строки
2.9 KiB
EmacsLisp
123 строки
2.9 KiB
EmacsLisp
(require 'misc)
|
|
|
|
|
|
(global-set-key [C-tab] 'next-buffer)
|
|
|
|
;;(define-key global-map [prior] 'scroll-down)
|
|
;;(define-key global-map [next] 'scroll-up)
|
|
|
|
;; we use (lambda () (interactive) ... ) here only because global needs it
|
|
|
|
(global-set-key [next]
|
|
(lambda () (interactive)
|
|
(condition-case nil (scroll-up)
|
|
(end-of-buffer (goto-char (point-max)))
|
|
)
|
|
)
|
|
)
|
|
|
|
(global-set-key [prior]
|
|
(lambda () (interactive)
|
|
(condition-case nil (scroll-down)
|
|
(beginning-of-buffer (goto-char (point-min)))
|
|
)
|
|
)
|
|
)
|
|
|
|
|
|
(global-set-key [C-f4]
|
|
(lambda () (interactive)
|
|
;; use (defconst ...) for predefined buffers list
|
|
(if
|
|
(and
|
|
(not (one-window-p))
|
|
(member (buffer-name) ;;(string-equal (buffer-name) "*Help*")
|
|
'(
|
|
"*Apropos*" "*Man*" "*Help*" "*Buffer List*" "*Compile-Log*" "*info*" "*vc*"
|
|
"*vc-diff*" "*diff*"
|
|
"*Backtrace*" "*RE-Builder*"
|
|
)
|
|
)
|
|
)
|
|
(kill-buffer-and-window)
|
|
(kill-this-buffer)
|
|
)
|
|
)
|
|
)
|
|
|
|
(global-set-key [M-f4] 'save-buffers-kill-emacs)
|
|
|
|
(global-set-key [f5] ;; Ñ-right
|
|
(lambda () (interactive)
|
|
(message "Hello f5 - this is undefined and used for testing only now!")
|
|
)
|
|
)
|
|
|
|
(global-set-key [C-right] ;; Ñ-right
|
|
(lambda ()
|
|
(interactive "^") ; very important for shift-translation
|
|
(forward-to-word 1)
|
|
)
|
|
)
|
|
|
|
;;(global-set-key [M-f4]
|
|
;; (lambda () (interactive)
|
|
;;'("*Help*" "*Apropos*" "*Man " "*Buffer List*" "*Compile-Log*" "*info*" "*vc*" "*vc-diff*" "*diff*")
|
|
|
|
;; print buffer names
|
|
;;(dolist (li (buffer-list))
|
|
;; (message (buffer-name li))
|
|
;;)
|
|
|
|
;; (funcall - dynamically call func by name/id
|
|
|
|
;;(progn
|
|
;; (message "Current buffer name is:")
|
|
;; (message (buffer-name)) ;; current-buffer
|
|
;;)
|
|
|
|
;; (when cond action1 action2 ...)
|
|
;; (if cont then-action else-action)
|
|
;; (message (buffer-list))
|
|
|
|
;; see (defun clean-buffer-list () at midnight.el - line 166
|
|
;; )
|
|
;;)
|
|
|
|
|
|
(global-set-key (kbd "C-w") 'kill-this-buffer) ; was mapped to kill-region
|
|
;(global-set-key (kbd "C-o") 'find-file) ; was mapped to open-line - insert a new line
|
|
|
|
;(global-set-key (kbd "C-a") 'mark-whole-buffer) ; mapped to move-beginning-of-line
|
|
|
|
;(global-set-key "\C-s" 'save-buffer) ; conflict with emacs search
|
|
;(global-set-key "\C-f" 'isearch-forward)
|
|
;(define-key isearch-mode-map "\C-f" 'isearch-repeat-forward)
|
|
|
|
|
|
|
|
(global-set-key (kbd "M-DEL") 'undo)
|
|
;;(global-set-key (kbd "M-S-DEL") 'redo)
|
|
|
|
(global-set-key (kbd "C-x <up>") 'windmove-up)
|
|
(global-set-key (kbd "C-x <down>") 'windmove-down)
|
|
;(global-set-key (kbd "C-x <right>") 'windmove-right)
|
|
;(global-set-key (kbd "C-x <left>") 'windmove-left)
|
|
|
|
|
|
;; view-mode-hook
|
|
(add-hook 'help-mode-hook
|
|
(lambda ()
|
|
(local-set-key (kbd "b") 'help-go-back)
|
|
(local-set-key (kbd "f") 'help-go-forward)
|
|
)
|
|
)
|
|
|
|
;; cc-mode-common-hook - c-mode-hook don't work - try c++-mode-hook also
|
|
(add-hook 'c-mode-common-hook
|
|
(lambda ()
|
|
(local-set-key (kbd "RET") 'newline-and-indent) ;; for indent via ret
|
|
;; (local-set-key [M-f4] (lambda () (interactive) (message "Hello!!!")))
|
|
)
|
|
)
|