/[eclipse]/eclipse/.eclipse
ViewVC logotype

Contents of /eclipse/.eclipse

Parent Directory Parent Directory | Revision Log Revision Log


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

  ViewVC Help
Powered by ViewVC 1.1.5