Warning, /sdk/kde-dev-scripts/kde-emacs/kde-emacs-vars.el is written in an unsupported language. File is not indexed.

0001 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0002 ;; kde-emacs-vars.el                                                        ;;
0003 ;;                                                                          ;;
0004 ;; Copyright (C)  2002  Zack Rusin <zack@kde.org>                           ;;
0005 ;;                                                                          ;;
0006 ;; This program is free software; you can redistribute it and/or            ;;
0007 ;; modify it under the terms of the GNU General Public License              ;;
0008 ;; as published by the Free Software Foundation; either version 2           ;;
0009 ;; of the License, or (at your option) any later version.                   ;;
0010 ;;                                                                          ;;
0011 ;; This program is distributed in the hope that it will be useful,          ;;
0012 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of           ;;
0013 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the            ;;
0014 ;; GNU General Public License for more details.                             ;;
0015 ;;                                                                          ;;
0016 ;; You should have received a copy of the GNU General Public License        ;;
0017 ;; along with this program; if not, write to the Free Software              ;;
0018 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA                    ;;
0019 ;; 02110-1301, USA.                                                         ;;
0020 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0021 
0022 (defconst kde-emacs-version "0.2"
0023   "KDE Emacs package version number.")
0024 (defun kde-emacs-version ()
0025   "Returns the version of KDE Emacs package."
0026   (interactive)
0027   (message "KDE Emacs version : %s" kde-emacs-version))
0028 
0029 
0030 (defvar kde-emacs-type
0031   (if (string-match "XEmacs" (emacs-version))
0032       'xemacs
0033     'emacs)
0034   "The type of Emacs we are running on.")
0035 
0036 ;*---------------------------------------------------------------------*/
0037 ;*    Constants ...                                                    */
0038 ;*---------------------------------------------------------------------*/
0039 
0040 (defconst kde-access-labels
0041   "\\<\\(signals\\|Q_SIGNALS\\|k_dcop\\|\\(public\\|protected\\|private\\)\\([     ]+\\(slots\\|Q_SLOTS\\)\\)?\\)\\>:"
0042   "KDE specific access labels regexp.")
0043 
0044 ;*---------------------------------------------------------------------*/
0045 ;*    Group ...                                                        */
0046 ;*---------------------------------------------------------------------*/
0047 (defgroup kde-devel nil
0048   "Development utilities."
0049   :tag "KDE devel"
0050   :prefix "kdedevel-"
0051   :group 'programming)
0052 
0053 (defcustom kde-full-name (or user-full-name
0054                              (getenv "USER")
0055                              "Your Name")
0056   "*Name used by kde-emacs."
0057   :group 'kde-devel
0058   :version "0.1"
0059   :type 'string)
0060 
0061 (defcustom kde-email (or user-mail-address
0062                          (concat (getenv "LOGNAME") "@" (getenv "HOSTNAME"))
0063                          "Your Email")
0064   "*Email address used by kde-emacs."
0065   :group 'kde-devel
0066   :version "0.1"
0067   :type 'string)
0068 
0069 (defcustom magic-keys-mode 't
0070   "Set this variable to true to have some special keybindings. E.g. bind ',' to a function which inserts ', ' when appropriate..."
0071   :group 'kde-devel
0072   :type 'boolean)
0073 
0074 (defcustom magic-parens-mode 't
0075   "Set this variable to true to bind '(' and ')' to functions which insert spaces when appropriate. Depends on magic-keys-mode being set."
0076   :group 'kde-devel
0077   :type 'boolean)
0078 
0079 (defcustom kde-emacs-delete-trailing-whitespace 't
0080   "Set this variable to true to automatically delete trailing whitespace when a buffer is loaded from a file or when it is written. On GNU
0081 Emacs, it is worth seeing delete-trailing-whitespace function."
0082   :group 'kde-devel
0083   :type 'boolean)
0084 
0085 (defcustom kde-emacs-make "make"
0086   "Specifies the make command which KDE Emacs will use"
0087   :group 'kde-devel
0088   :type 'string)
0089 
0090 ;;Make styles a list of the format (radio (const kde-c++) (const kde-c) style)
0091 ;;and assign it to type.
0092 (defcustom kde-c++-style "kde-c++"
0093   "Set this variable to the CC Mode style you would like loaded when you open a C++ KDE source code file..."
0094   :group 'kde-devel
0095   :type 'string)
0096 
0097 (defcustom kde-c-style "kde-c"
0098   "Set this variable to the CC Mode style you would like loaded when you open a C KDE source code file..."
0099   :group 'kde-devel
0100   :type 'string)
0101 
0102 (defcustom kde-use-pc-select 't
0103   "Set this to nil if you really hate PC Select Mode. Does not have any effect on GNU Emacs 24+ (shift-select-mode, enabled by default, should be used instead)."
0104   :group 'kde-devel
0105   :type 'boolean)
0106 
0107 (defcustom kde-emacs-newline-semicolon nil
0108   "Set this to true to have typing \";\" automatically insert
0109 a newline."
0110   :group 'kde-devel
0111   :type 'boolean)
0112 
0113 (defcustom kde-emacs-use-qtcreator-shortcuts nil
0114   "Set this to true to get from kde-emacs-bindings.el the same shortcuts as Qt Creator."
0115   :group 'kde-devel
0116   :type 'boolean)
0117 
0118 (defcustom kde-header-protection-parts-to-show 1
0119   "Set this variable to the number of parts from the file name you want to be used for the defined word in the 
0120 header-protection function..  E.g. setting this to 3 makes header-protection define KIG_MISC_NEWTYPE_H for a 
0121 file named /home/domi/src/kdenonbeta/kig/misc/newtype.h"
0122   :group 'kde-devel
0123   :type 'integer)
0124 
0125 (defcustom kde-emacs-after-parent-string " "
0126   "Set this to whatever you want to have inserted after the first parenthesis. Works only if
0127 magic-keys-mode is set to true. "
0128   :group 'kde-devel
0129   :type 'string)
0130 
0131 (defcustom kde-include-directory nil
0132   "Set this to the directory holding the includes for the current module/project/whatever."
0133   :group 'kde-devel
0134   :type 'string)
0135 
0136 (defcustom kde-source-directory nil
0137   "Set this to the directory holding the sources for the current module/project/whatever."
0138   :group 'kde-devel
0139   :type 'string)
0140 
0141 (defcustom kde-make-member-default-impl "    \n"
0142   "Default implementation added by agulbra-make-member. FUNCTION gets replaced by the full signature of the function/method."
0143   :group 'kde-devel
0144   :type 'string)
0145 
0146 ; a grep in the part of kde-source I have gives: 
0147 ; 5579 files uses .cpp, 1402 uses .cc, 10 uses .cxx, and 1 uses .C
0148 (defconst kde-prefered-source-extension "cpp"
0149   "Source extension which kde-* functions should use for creating new files.")
0150 
0151 (provide 'kde-emacs-vars)