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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; kde-emacs-vars.el ;;
;; ;;
;; Copyright (C) 2002 Zack Rusin <zack@kde.org> ;;
;; ;;
;; This program is free software; you can redistribute it and/or ;;
;; modify it under the terms of the GNU General Public License ;;
;; as published by the Free Software Foundation; either version 2 ;;
;; of the License, or (at your option) any later version. ;;
;; ;;
;; This program is distributed in the hope that it will be useful, ;;
;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;
;; GNU General Public License for more details. ;;
;; ;;
;; You should have received a copy of the GNU General Public License ;;
;; along with this program; if not, write to the Free Software ;;
;; Foundation, Inc., 51 Franklin Steet, Fifth Floor, Boston, MA ;;
;; 02110-1301, USA. ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst kde-emacs-version "0.2"
"KDE Emacs package version number.")
(defun kde-emacs-version ()
"Returns the version of KDE Emacs package."
(interactive)
(message "KDE Emacs version : %s" kde-emacs-version))
(defvar kde-emacs-type
(eval-when-compile
(if (string-match "XEmacs" (emacs-version))
'xemacs
'emacs))
"The type of Emacs we are running on.")
;*---------------------------------------------------------------------*/
;* Constants ... */
;*---------------------------------------------------------------------*/
(defconst kde-access-labels
"\\<\\(Q_SIGNALS\\|k_dcop\\|\\(public\\|protected\\|private\\)\\([ ]+Q_SLOTS\\)?\\)\\>:"
"KDE specific access labels regexp.")
(defconst kde-source-files '("cpp" "cc" "cxx" "CC" "C" "c")
"List of source-file extensions.")
(defconst kde-header-files '("h" "H" "hh" "hxx" "hpp")
"List of header-file extensions.")
;*---------------------------------------------------------------------*/
;* Group ... */
;*---------------------------------------------------------------------*/
(defgroup kde-devel nil
"Development utilities."
:tag "KDE devel"
:prefix "kdedevel-"
:group 'programming)
(defcustom kde-full-name (or user-full-name
(getenv "USER")
"Your Name")
"*Name used by kde-emacs."
:group 'kde-devel
:version "0.1"
:type 'string)
(defcustom kde-email (or user-mail-address
(concat (getenv "LOGNAME") "@" (getenv "HOSTNAME"))
"Your Email")
"*Email address used by kde-emacs."
:group 'kde-devel
:version "0.1"
:type 'string)
(defcustom kde-cvs-root (concat (getenv "HOME") "/cvs/kde")
"*Root Directory of KDE CVS Respiratory"
:group 'kde-devel
:type 'string)
(defcustom magic-keys-mode 't
"Set this variable to true to have some special keybindings. E.g. bind '(' to a function which inserts '( ' when appropriate..."
:group 'kde-devel
:type 'boolean)
(defcustom kde-emacs-make "make"
"Specifies the make command which KDE Emacs will use"
:group 'kde-devel
:type 'string)
;;Make styles a list of the format (radio (const kde-c++) (const kde-c) style)
;;and assign it to type.
(defcustom kde-c++-style "kde-c++"
"Set this variable to the CC Mode style you would like loaded when you open a C++ KDE source code file..."
:group 'kde-devel
:type 'string)
(defcustom kde-c-style "kde-c"
"Set this variable to the CC Mode style you would like loaded when you open a C KDE source code file..."
:group 'kde-devel
:type 'string)
(defcustom kde-use-pc-select 't
"Set this to nil if you really hate PC Select Mode..."
:group 'kde-devel
:type 'boolean)
(defcustom kde-emacs-newline-semicolon nil
"Set this to true to have typing \";\" automatically insert
a newline."
:group 'kde-devel
:type 'boolean)
(defcustom kde-header-protection-parts-to-show 1
"Set this variable to the number of parts from the file name you want to be used for the defined word in the
header-protection function.. E.g. setting this to 3 makes header-protection define KIG_MISC_NEWTYPE_H for a
file named /home/domi/src/kdenonbeta/kig/misc/newtype.h"
:group 'kde-devel
:type 'integer)
(defcustom kde-emacs-after-tqparent-string " "
"Set this to whatever you want to have inserted after the first parenthesis. Works only if
magic-keys-mode is set to true. "
:group 'kde-devel
:type 'string)
(defcustom kde-include-directory nil
"Set this to the directory holding the includes for the current module/project/whatever."
:group 'kde-devel
:type 'string)
(defcustom kde-source-directory nil
"Set this to the directory holding the sources for the current module/project/whatever."
:group 'kde-devel
:type 'string)
(defcustom kde-make-member-default-impl " \n"
"Default implementation added by agulbra-make-member. FUNCTION gets replaced by the full signature of the function/method."
:group 'kde-devel
:type 'string)
; a grep in the part of kde-source I have gives:
; 5579 files uses .cpp, 1402 uses .cc, 10 uses .cxx, and 1 uses .C
(defconst kde-prefered-source-extension "cpp"
"Source extension which kde-* functions should use for creating new files.")
(provide 'kde-emacs-vars)
|
