-
Notifications
You must be signed in to change notification settings - Fork 0
/
eclipserc
110 lines (85 loc) · 2.77 KB
/
eclipserc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
(in-package :ECLIPSE-INTERNALS)
;;;;; Base configuration
;; Global definitions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Keyboard shortcuts
;; circulate windows : Alt-Tab / A
(define-key-combo :switch-win-up
:keys '(:TAB)
:modifiers '(:ALT-LEFT))
(define-key-combo :switch-win-down
:keys '(:A)
:modifiers '(:ALT-LEFT))
;; change of virtual screen : Ctrl-LeftArrow / RightArrow
(define-key-combo :switch-screen-left
:keys '(:LEFT)
:modifiers '(:CONTROL-LEFT))
(define-key-combo :switch-screen-right
:keys '(:RIGHT)
:modifiers '(:CONTROL-LEFT))
;; move mouse pointer : Ctrl-Alt-LeftArrow / RightArrow
(define-key-combo :move-right
:keys '(:RIGHT)
:modifiers '(:and :ALT-LEFT :CONTROL-LEFT))
(define-key-combo :move-left
:keys '(:LEFT)
:modifiers '(:and :ALT-LEFT :CONTROL-LEFT))
(define-key-combo :move-up
:keys '(:UP)
:modifiers '(:and :ALT-LEFT :CONTROL-LEFT))
(define-key-combo :move-down
:keys '(:DOWN)
:modifiers '(:and :ALT-LEFT :CONTROL-LEFT))
;; mouse click : Ctrl-Alt-Z / X / C (left middle right)
(define-key-combo :left-click
:keys '(:W)
:modifiers '(:and :ALT-LEFT :CONTROL-LEFT))
(define-key-combo :middle-click
:keys '(:X)
:modifiers '(:and :ALT-LEFT :CONTROL-LEFT))
(define-key-combo :right-click
:keys '(:C)
:modifiers '(:and :ALT-LEFT :CONTROL-LEFT))
(define-key-combo :scroll-up
:keys '(:a)
:modifiers '(:and :ALT-LEFT :CONTROL-LEFT))
(define-key-combo :scroll-down
:keys '(:q)
:modifiers '(:and :ALT-LEFT :CONTROL-LEFT))
;; example of user define keystroke:
;(define-key-combo :raise-pointered-window
; :keys '(:F4)
; :modifiers 0
; :default-modifiers-p nil
; :fun #'(lambda (event)
; (put-on-top (event-child event))))
;; mouse strokes for moving and resizing windows.
(define-mouse-combo :move-window
:button 2
:modifiers '(:SHIFT-LEFT :SHIFT-RIGHT))
(define-mouse-combo :resize-window
:button 3
:modifiers '(:SHIFT-LEFT :SHIFT-RIGHT))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Custom variables.
(setf (number-of-virtual-screens) 4
*move-mode* :box
*resize-mode* :opaque
*focus-type* :none
*verbose-move* nil
*verbose-resize* nil
*warp-pointer-when-cycle* nil
*focus-new-mapped-window* t
*change-desktop-message-active-p* nil
(decoration-theme) "microGUI")
;; Application menu
(setf *menu-1-items*
(list (cons "Emacs" (run-application "emacs"))
(cons "Netscape" (run-application "netscape"))
(cons "Gv" (run-application "gv"))
(cons "XMMS" (run-application "xmms"))
(cons "Xterm" (run-application "xterm"))
))
;; Desktop-names
;(setf (workspace-names) '("Main" "Work" "Internet" "Games"))