Your IP : 216.73.217.94
site-lisp/autoconf-mode.el 0000644 00000010330 15272317113 0011536 0 ustar 00 ;;; autoconf-mode.el --- autoconf code editing commands for Emacs
;; Author: Martin Buchholz (martin@xemacs.org)
;; Maintainer: Martin Buchholz
;; Keywords: languages, faces, m4, configure
;; This file is part of Autoconf
;; Copyright (C) 2001, 2006, 2009-2012 Free Software Foundation, Inc.
;;
;; 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 3 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, see <http://www.gnu.org/licenses/>.
;; A major mode for editing autoconf input (like configure.in).
;; Derived from m4-mode.el by Andrew Csillag (drew@staff.prodigy.com)
;;; Your should add the following to your Emacs configuration file:
;; (autoload 'autoconf-mode "autoconf-mode"
;; "Major mode for editing autoconf files." t)
;; (setq auto-mode-alist
;; (cons '("\\.ac\\'\\|configure\\.in\\'" . autoconf-mode)
;; auto-mode-alist))
;;; Code:
;;thank god for make-regexp.el!
(defvar autoconf-font-lock-keywords
`(("\\bdnl \\(.*\\)" 1 font-lock-comment-face t)
("\\$[0-9*#@]" . font-lock-variable-name-face)
("\\b\\(m4_\\)?\\(builtin\\|change\\(com\\|quote\\|word\\)\\|d\\(e\\(bug\\(file\\|mode\\)\\|cr\\|f\\(ine\\|n\\)\\)\\|iv\\(ert\\|num\\)\\|nl\\|umpdef\\)\\|e\\(rrprint\\|syscmd\\|val\\)\\|f\\(ile\\|ormat\\)\\|gnu\\|i\\(f\\(def\\|else\\)\\|n\\(c\\(lude\\|r\\)\\|d\\(ex\\|ir\\)\\)\\)\\|l\\(en\\|ine\\)\\|m\\(4\\(exit\\|wrap\\)\\|aketemp\\|kstemp\\)\\|p\\(atsubst\\|opdef\\|ushdef\\)\\|regexp\\|s\\(hift\\|include\\|ubstr\\|ys\\(cmd\\|val\\)\\)\\|tra\\(ceo\\(ff\\|n\\)\\|nslit\\)\\|un\\(d\\(efine\\|ivert\\)\\|ix\\)\\)\\b" . font-lock-keyword-face)
("^\\(\\(m4_\\)?define\\(_default\\)?\\|A._DEFUN\\|m4_defun\\(_once\\|_init\\)?\\)(\\[?\\([A-Za-z0-9_]+\\)" 5 font-lock-function-name-face)
"default font-lock-keywords")
)
(defvar autoconf-mode-syntax-table nil
"syntax table used in autoconf mode")
(setq autoconf-mode-syntax-table (make-syntax-table))
(modify-syntax-entry ?\" "\"" autoconf-mode-syntax-table)
;;(modify-syntax-entry ?\' "\"" autoconf-mode-syntax-table)
(modify-syntax-entry ?# "<\n" autoconf-mode-syntax-table)
(modify-syntax-entry ?\n ">#" autoconf-mode-syntax-table)
(modify-syntax-entry ?\( "()" autoconf-mode-syntax-table)
(modify-syntax-entry ?\) ")(" autoconf-mode-syntax-table)
(modify-syntax-entry ?\[ "(]" autoconf-mode-syntax-table)
(modify-syntax-entry ?\] ")[" autoconf-mode-syntax-table)
(modify-syntax-entry ?* "." autoconf-mode-syntax-table)
(modify-syntax-entry ?_ "_" autoconf-mode-syntax-table)
(defvar autoconf-mode-map
(let ((map (make-sparse-keymap)))
(define-key map '[(control c) (\;)] 'comment-region)
map))
(defun autoconf-current-defun ()
"Autoconf value for `add-log-current-defun-function'.
This tells add-log.el how to find the current macro."
(save-excursion
(if (re-search-backward "^\\(m4_define\\(_default\\)?\\|m4_defun\\(_once\\|_init\\)?\\|A._DEFUN\\)(\\[*\\([A-Za-z0-9_]+\\)" nil t)
(buffer-substring (match-beginning 4)
(match-end 4))
nil)))
;;;###autoload
(defun autoconf-mode ()
"A major-mode to edit Autoconf files like configure.ac.
\\{autoconf-mode-map}
"
(interactive)
(kill-all-local-variables)
(use-local-map autoconf-mode-map)
(make-local-variable 'add-log-current-defun-function)
(setq add-log-current-defun-function 'autoconf-current-defun)
(make-local-variable 'comment-start)
(setq comment-start "# ")
(make-local-variable 'parse-sexp-ignore-comments)
(setq parse-sexp-ignore-comments t)
(make-local-variable 'font-lock-defaults)
(setq major-mode 'autoconf-mode)
(setq mode-name "Autoconf")
(setq font-lock-defaults `(autoconf-font-lock-keywords nil))
(set-syntax-table autoconf-mode-syntax-table)
(run-hooks 'autoconf-mode-hook))
(provide 'autoconf-mode)
;;; autoconf-mode.el ends here
site-lisp/autotest-mode.elc 0000644 00000004743 15272317113 0011746 0 ustar 00 ;ELC
;;; Compiled by mockbuild@buildfarm02.cloudlinux.com on Thu Sep 11 10:09:25 2014
;;; from file /builddir/build/BUILD/autoconf-2.69/lib/emacs/elc.31229/autotest-mode.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar autotest-font-lock-keywords '(("\\bdnl\\b\\(.*\\)" 1 font-lock-comment-face t) ("\\$[0-9*#@]" . font-lock-variable-name-face) ("^\\(m4_define\\|m4_defun\\)(\\[*\\([A-Za-z0-9_]+\\)" 2 font-lock-function-name-face) ("^AT_SETUP(\\[+\\([^]]+\\)" 1 font-lock-function-name-face) ("^AT_DATA(\\[+\\([^]]+\\)" 1 font-lock-variable-name-face) ("\\b\\(_?m4_[_a-z0-9]*\\|_?A[ST]_[_A-Z0-9]+\\)\\b" . font-lock-keyword-face) "default font-lock-keywords"))
#@36 syntax table used in autotest mode
(defvar autotest-mode-syntax-table nil (#$ . 1016))
(byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\207" [autotest-mode-syntax-table make-syntax-table modify-syntax-entry 34 "\"" 35 "<\n" 10 ">#" 40 "()" 41 ")(" 91 "(]" 93 ")[" 42 "." 95 "_"] 4)
(defvar autotest-mode-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key [(control c) (\;)] comment-region] 4))
#@118 Autotest value for `add-log-current-defun-function'.
This tells add-log.el how to find the current test group/macro.
(defalias 'autotest-current-defun #[nil "\212\300\301\302\303#\205 \304\224\304\225{)\207" [re-search-backward "^\\(m4_define\\|m4_defun\\|AT_SETUP\\)(\\[+\\([^]]+\\)" nil t 2] 4 (#$ . 1577)])
#@78 A major-mode to edit Autotest files like testsuite.at.
\{autotest-mode-map}
(defalias 'autotest-mode #[nil "\306 \210\307!\210\310\301!\210\311\310\302!\210\312\310\303!\210\313\310\314!\210\315\316\317\f\320!\210\321\322!\207" [autotest-mode-map add-log-current-defun-function comment-start parse-sexp-ignore-comments major-mode mode-name kill-all-local-variables use-local-map make-local-variable autotest-current-defun "# " t font-lock-defaults autotest-mode "Autotest" (autotest-font-lock-keywords nil) set-syntax-table run-hooks autotest-mode-hook autotest-mode-syntax-table] 2 (#$ . 1894) nil])
(provide 'autotest-mode)
site-lisp/autotest-mode.el 0000644 00000007344 15272317113 0011603 0 ustar 00 ;;; autotest-mode.el --- autotest code editing commands for Emacs
;; Author: Akim Demaille (akim@freefriends.org)
;; Keywords: languages, faces, m4, Autotest
;; This file is part of Autoconf
;; Copyright (C) 2001, 2009-2012 Free Software Foundation, Inc.
;;
;; 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 3 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, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; A major mode for editing autotest input (like testsuite.at).
;; Derived from autoconf-mode.el, by Martin Buchholz (martin@xemacs.org).
;;; Your should add the following to your Emacs configuration file:
;; (autoload 'autotest-mode "autotest-mode"
;; "Major mode for editing autotest files." t)
;; (setq auto-mode-alist
;; (cons '("\\.at\\'" . autotest-mode) auto-mode-alist))
;;; Code:
(defvar autotest-font-lock-keywords
`(("\\bdnl\\b\\(.*\\)" 1 font-lock-comment-face t)
("\\$[0-9*#@]" . font-lock-variable-name-face)
("^\\(m4_define\\|m4_defun\\)(\\[*\\([A-Za-z0-9_]+\\)" 2 font-lock-function-name-face)
("^AT_SETUP(\\[+\\([^]]+\\)" 1 font-lock-function-name-face)
("^AT_DATA(\\[+\\([^]]+\\)" 1 font-lock-variable-name-face)
("\\b\\(_?m4_[_a-z0-9]*\\|_?A[ST]_[_A-Z0-9]+\\)\\b" . font-lock-keyword-face)
"default font-lock-keywords")
)
(defvar autotest-mode-syntax-table nil
"syntax table used in autotest mode")
(setq autotest-mode-syntax-table (make-syntax-table))
(modify-syntax-entry ?\" "\"" autotest-mode-syntax-table)
;;(modify-syntax-entry ?\' "\"" autotest-mode-syntax-table)
(modify-syntax-entry ?# "<\n" autotest-mode-syntax-table)
(modify-syntax-entry ?\n ">#" autotest-mode-syntax-table)
(modify-syntax-entry ?\( "()" autotest-mode-syntax-table)
(modify-syntax-entry ?\) ")(" autotest-mode-syntax-table)
(modify-syntax-entry ?\[ "(]" autotest-mode-syntax-table)
(modify-syntax-entry ?\] ")[" autotest-mode-syntax-table)
(modify-syntax-entry ?* "." autotest-mode-syntax-table)
(modify-syntax-entry ?_ "_" autotest-mode-syntax-table)
(defvar autotest-mode-map
(let ((map (make-sparse-keymap)))
(define-key map '[(control c) (\;)] 'comment-region)
map))
(defun autotest-current-defun ()
"Autotest value for `add-log-current-defun-function'.
This tells add-log.el how to find the current test group/macro."
(save-excursion
(if (re-search-backward "^\\(m4_define\\|m4_defun\\|AT_SETUP\\)(\\[+\\([^]]+\\)" nil t)
(buffer-substring (match-beginning 2)
(match-end 2))
nil)))
;;;###autoload
(defun autotest-mode ()
"A major-mode to edit Autotest files like testsuite.at.
\\{autotest-mode-map}
"
(interactive)
(kill-all-local-variables)
(use-local-map autotest-mode-map)
(make-local-variable 'add-log-current-defun-function)
(setq add-log-current-defun-function 'autotest-current-defun)
(make-local-variable 'comment-start)
(setq comment-start "# ")
(make-local-variable 'parse-sexp-ignore-comments)
(setq parse-sexp-ignore-comments t)
(make-local-variable 'font-lock-defaults)
(setq major-mode 'autotest-mode)
(setq mode-name "Autotest")
(setq font-lock-defaults `(autotest-font-lock-keywords nil))
(set-syntax-table autotest-mode-syntax-table)
(run-hooks 'autotest-mode-hook))
(provide 'autotest-mode)
;;; autotest-mode.el ends here
site-lisp/desktop-file-utils/desktop-entry-mode.elc 0000644 00000013004 15272317113 0016420 0 ustar 00 ;ELC
;;; Compiled by mockbuild@buildfarm02.cloudlinux.com on Sun Jun 9 13:31:28 2019
;;; from file /builddir/build/BUILD/desktop-file-utils-0.23/misc/desktop-entry-mode.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@34 Version of `desktop-entry-mode'.
(defconst desktop-entry-mode-version "1.0 (spec 1.0)" (#$ . 565))
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312\313\304\301&\210\300\314\302\315\316\317\304\301\304\320& \210\321\322\323\324\304\314%\210\321\325\326\327\304\314%\210\321\330\331\332\304\314%\210\321\333\334\335\304\314%\210\321\336\337\340\304\314%\207" [custom-declare-group desktop-entry nil "Support for editing freedesktop.org desktop entry files." :group languages custom-declare-variable desktop-entry-validate-command "desktop-file-validate" "*Command for validating desktop entry files." :type string desktop-entry-faces "Font lock faces for `desktop-entry-mode'." :prefix "desktop-entry-" faces custom-declare-face desktop-entry-group-header-face ((((class color) (background light)) (:foreground "mediumblue" :bold t)) (((class color) (background dark)) (:foreground "lightblue" :bold t)) (t (:bold t))) "*Face for highlighting desktop entry group headers." desktop-entry-deprecated-keyword-face ((((class color)) (:background "yellow" :foreground "black" :strikethru t))) "*Face for highlighting deprecated desktop entry keys." desktop-entry-unknown-keyword-face ((((class color)) (:foreground "red3" :underline t)) (t (:underline t))) "*Face for highlighting unknown desktop entry keys." desktop-entry-value-face ((((class color) (background light)) (:foreground "darkgreen")) (((class color) (background dark)) (:foreground "lightgreen"))) "*Face for highlighting desktop entry values." desktop-entry-locale-face ((((class color) (background light)) (:foreground "dimgray")) (((class color) (background dark)) (:foreground "lightgray"))) "*Face for highlighting desktop entry locales."] 10)
#@45 Expression for matching desktop entry keys.
(defconst desktop-entry-keywords "\\(?:\\<\\(C\\(?:ategories\\|omment\\)\\|D\\(?:ev\\|ocPath\\)\\|Exec\\|FSType\\|GenericName\\|Hidden\\|I\\(?:con\\|nitialPreference\\)\\|KeyWords\\|M\\(?:imeType\\|ountPoint\\)\\|N\\(?:ame\\|o\\(?:Display\\|tShowIn\\)\\)\\|OnlyShowIn\\|Path\\|ReadOnly\\|S\\(?:erviceTypes\\|tartup\\(?:Notify\\|WMClass\\)\\)\\|T\\(?:erminal\\|ryExec\\|ype\\)\\|U\\(?:RL\\|nmountIcon\\)\\|Version\\)\\>\\|X-[A-Za-z0-9-]+\\)" (#$ . 2292))
#@56 Expression for matching deprecated desktop entry keys.
(defconst desktop-entry-deprecated-keywords "\\(\\<Type\\s-*=\\s-*MimeType\\>\\|\\<\\(BinaryPattern\\|DefaultApp\\|E\\(?:ncoding\\|xtensions\\)\\|FilePattern\\|M\\(?:apNotify\\|iniIcon\\)\\|P\\(?:\\(?:attern\\|rotocol\\)s\\)\\|S\\(?:ortOrder\\|wallow\\(?:Exec\\|Title\\)\\)\\|TerminalOptions\\)\\>\\)" (#$ . 2796))
#@62 Regular expression for matching desktop entry group headers.
(defconst desktop-entry-group-header-re "^\\[\\(X-[^][]+\\|\\(?:Desktop \\(?:Entry\\|Action [a-zA-Z]+\\)\\)\\)\\]" (#$ . 3172))
#@54 Highlighting rules for `desktop-entry-mode' buffers.
(defconst desktop-entry-font-lock-keywords (byte-code "\303\304B\305P\306B\305 P\307B\310\311B\n\312B\313\314B\315\316B\257\207" [desktop-entry-deprecated-keywords desktop-entry-keywords desktop-entry-group-header-re "^\\s-*#.*$" (0 'font-lock-comment-face) "^" (0 'desktop-entry-deprecated-keyword-face) (0 'font-lock-keyword-face) "^[A-Za-z0-9-]+" (0 'desktop-entry-unknown-keyword-face) (1 'desktop-entry-group-header-face) "^[A-Za-z0-9-]+?\\s-*=\\s-*\\(.*\\)" (1 'desktop-entry-value-face) "^[A-Za-z0-9-]+?\\[\\([^]]+\\)\\]\\s-*=\\s-*\\(.*\\)" ((1 'desktop-entry-locale-face) (2 'desktop-entry-value-face))] 8) (#$ . 3367))
#@84 Imenu generic expression for `desktop-entry-mode'.
See `imenu-generic-expression'.
(defvar desktop-entry-imenu-generic-expression (byte-code "\301\302BBC\207" [desktop-entry-group-header-re nil (1)] 3) (#$ . 4056))
#@395 Major mode for editing freedesktop.org desktop entry files.
See <http://www.freedesktop.org/Standards/desktop-entry-spec> for more
information. See `desktop-entry-mode-version' for information about which
version of the specification this mode is up to date with.
Turning on desktop entry mode calls the value of the variable
`desktop-entry-mode-hook' with no args, if that value is non-nil.
(defalias 'desktop-entry-mode #[nil "\306\300!\210\307\306\303!\210 \310\nQ\306\304!\210\311\306\305!\210\312\306\313!\210\314 \306\315!\210\316
\317\320\306\300!\210\306\321!\210\322\323\324!\207" [imenu-generic-expression desktop-entry-validate-command buffer-file-name compile-command compilation-buffer-name-function comment-start make-local-variable ((nil "^\\s-*\\(.*\\)\\s-*=" 1)) " " #[(x) "\301\302!\303Q\207" [buffer-file-name "*desktop-file-validate " file-name-nondirectory "*"] 3] "# " comment-end "" comment-start-skip "#+ *" desktop-entry-mode "Desktop Entry" font-lock-defaults (desktop-entry-font-lock-keywords) run-hooks desktop-entry-mode-hook major-mode mode-name desktop-entry-imenu-generic-expression] 3 (#$ . 4279) nil])
#@47 Validate desktop entry in the current buffer.
(defalias 'desktop-entry-validate #[nil "\301\302!\210\302!\207" [compile-command require compile] 2 (#$ . 5439) nil])
(provide 'desktop-entry-mode)
site-lisp/desktop-file-utils/desktop-entry-mode.el 0000644 00000017206 15272317113 0016265 0 ustar 00 ;;; desktop-entry-mode.el --- freedesktop.org desktop entry editing
;; Copyright (C) 2003-2004, 2006-2007 Ville Skyttä, <scop at xemacs.org>
;; Author: Ville Skyttä, <scop at xemacs.org>
;; Keywords: unix, desktop entry
;; This file is part of XEmacs.
;; XEmacs 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, or (at your option)
;; any later version.
;; XEmacs 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 XEmacs; see the file COPYING. If not, write to the Free
;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
;; MA 02110-1301 USA.
;;; Commentary:
;; This mode provides basic functionality, eg. syntax highlighting and
;; validation for freedesktop.org desktop entry files.
;;
;; To install it:
;;
;; In XEmacs:
;; Just install the XEmacs `text-modes' package, this mode is included.
;; See <http://www.xemacs.org/Documentation/packageGuide.html>.
;;
;; In GNU Emacs:
;; Place this file in your load path somewhere (eg. site-lisp), and add
;; the following to your .emacs:
;;
;; (autoload 'desktop-entry-mode "desktop-entry-mode" "Desktop Entry mode" t)
;; (add-to-list 'auto-mode-alist
;; '("\\.desktop\\(\\.in\\)?$" . desktop-entry-mode))
;; (add-hook 'desktop-entry-mode-hook 'turn-on-font-lock)
;;
;; For more information about desktop entry files, see
;; <http://www.freedesktop.org/Standards/desktop-entry-spec>
;;
;; This version is up to date with version 1.0 of the specification.
;;; Code:
(eval-when-compile
(require 'regexp-opt))
(defconst desktop-entry-mode-version "1.0 (spec 1.0)"
"Version of `desktop-entry-mode'.")
(defgroup desktop-entry nil
"Support for editing freedesktop.org desktop entry files."
:group 'languages)
(defcustom desktop-entry-validate-command "desktop-file-validate"
"*Command for validating desktop entry files."
:type 'string
:group 'desktop-entry)
(defgroup desktop-entry-faces nil
"Font lock faces for `desktop-entry-mode'."
:prefix "desktop-entry-"
:group 'desktop-entry
:group 'faces)
(defface desktop-entry-group-header-face
'((((class color) (background light)) (:foreground "mediumblue" :bold t))
(((class color) (background dark)) (:foreground "lightblue" :bold t))
(t (:bold t)))
"*Face for highlighting desktop entry group headers."
:group 'desktop-entry-faces)
(defface desktop-entry-deprecated-keyword-face
'((((class color)) (:background "yellow" :foreground "black" :strikethru t))
)
"*Face for highlighting deprecated desktop entry keys."
:group 'desktop-entry-faces)
(defface desktop-entry-unknown-keyword-face
'((((class color)) (:foreground "red3" :underline t))
(t (:underline t))
)
"*Face for highlighting unknown desktop entry keys."
:group 'desktop-entry-faces)
(defface desktop-entry-value-face
'((((class color) (background light)) (:foreground "darkgreen"))
(((class color) (background dark)) (:foreground "lightgreen"))
)
"*Face for highlighting desktop entry values."
:group 'desktop-entry-faces)
(defface desktop-entry-locale-face
'((((class color) (background light)) (:foreground "dimgray"))
(((class color) (background dark)) (:foreground "lightgray"))
)
"*Face for highlighting desktop entry locales."
:group 'desktop-entry-faces)
(defconst desktop-entry-keywords
(eval-when-compile
(concat
"\\(?:"
(regexp-opt
'(
"Type"
"Version"
"Name"
"GenericName"
"NoDisplay"
"Comment"
"Icon"
"Hidden"
"OnlyShowIn"
"NotShowIn"
"TryExec"
"Exec"
"Path"
"Terminal"
"MimeType"
"Categories"
"StartupNotify"
"StartupWMClass"
"URL"
;; Reserved for use with KDE
"ServiceTypes"
"DocPath"
"KeyWords"
"InitialPreference"
;; Used by KDE for entries of the FSDevice type
"Dev"
"FSType"
"MountPoint"
"ReadOnly"
"UnmountIcon"
) 'words)
"\\|X-[A-Za-z0-9-]+\\)"))
"Expression for matching desktop entry keys.")
(defconst desktop-entry-deprecated-keywords
(eval-when-compile
(concat
"\\(\\<Type\\s-*=\\s-*MimeType\\>\\|"
(regexp-opt
'(
"Patterns"
"DefaultApp"
"Encoding"
"MiniIcon"
"TerminalOptions"
"Protocols"
"Extensions"
"BinaryPattern"
"MapNotify"
"SwallowTitle"
"SwallowExec"
"SortOrder"
"FilePattern"
) 'words)
"\\)"))
"Expression for matching deprecated desktop entry keys.")
(defconst desktop-entry-group-header-re
"^\\[\\(X-[^\][]+\\|\\(?:Desktop \\(?:Entry\\|Action [a-zA-Z]+\\)\\)\\)\\]"
"Regular expression for matching desktop entry group headers.")
(defconst desktop-entry-font-lock-keywords
(list
(cons "^\\s-*#.*$" '(0 'font-lock-comment-face))
(cons (concat "^" desktop-entry-deprecated-keywords)
'(0 'desktop-entry-deprecated-keyword-face))
(cons (concat "^" desktop-entry-keywords) '(0 'font-lock-keyword-face))
(cons "^[A-Za-z0-9-]+" '(0 'desktop-entry-unknown-keyword-face))
(cons desktop-entry-group-header-re '(1 'desktop-entry-group-header-face))
(cons "^[A-Za-z0-9-]+?\\s-*=\\s-*\\(.*\\)"
'(1 'desktop-entry-value-face))
(cons "^[A-Za-z0-9-]+?\\[\\([^\]]+\\)\\]\\s-*=\\s-*\\(.*\\)"
'((1 'desktop-entry-locale-face)
(2 'desktop-entry-value-face)))
)
"Highlighting rules for `desktop-entry-mode' buffers.")
(defvar desktop-entry-imenu-generic-expression
`((nil ,desktop-entry-group-header-re 1))
"Imenu generic expression for `desktop-entry-mode'.
See `imenu-generic-expression'.")
;;;###autoload
(defun desktop-entry-mode ()
"Major mode for editing freedesktop.org desktop entry files.
See <http://www.freedesktop.org/Standards/desktop-entry-spec> for more
information. See `desktop-entry-mode-version' for information about which
version of the specification this mode is up to date with.
Turning on desktop entry mode calls the value of the variable
`desktop-entry-mode-hook' with no args, if that value is non-nil."
(interactive)
(set (make-local-variable 'imenu-generic-expression)
'((nil "^\\s-*\\(.*\\)\\s-*=" 1)))
(set (make-local-variable 'compile-command)
(concat desktop-entry-validate-command " " buffer-file-name))
(set (make-local-variable 'compilation-buffer-name-function)
(lambda (x) (concat "*desktop-file-validate "
(file-name-nondirectory buffer-file-name) "*")))
(set (make-local-variable 'comment-start) "# ")
(set (make-local-variable 'comment-end) "")
(set (make-local-variable 'comment-start-skip) "#+ *")
(setq major-mode 'desktop-entry-mode mode-name "Desktop Entry")
(set (make-local-variable 'imenu-generic-expression)
desktop-entry-imenu-generic-expression)
(unless (featurep 'xemacs) ;; font-lock support for GNU Emacs
(set (make-local-variable 'font-lock-defaults)
'(desktop-entry-font-lock-keywords)))
(run-hooks 'desktop-entry-mode-hook))
(defun desktop-entry-validate ()
"Validate desktop entry in the current buffer."
(interactive)
(require 'compile)
(compile compile-command))
;;;###autoload(add-to-list 'auto-mode-alist '("\\.desktop\\(\\.in\\)?$" . desktop-entry-mode))
(provide 'desktop-entry-mode)
;;; desktop-entry-mode.el ends here
site-lisp/site-start.d/desktop-entry-mode-init.el 0000644 00000000234 15272317113 0016014 0 ustar 00 (autoload 'desktop-entry-mode "desktop-entry-mode" "Desktop Entry mode" t)
(add-to-list 'auto-mode-alist '("\\.desktop\\(\\.in\\)?$" . desktop-entry-mode))
site-lisp/autoconf-mode.elc 0000644 00000005617 15272317113 0011715 0 ustar 00 ;ELC
;;; Compiled by mockbuild@buildfarm02.cloudlinux.com on Thu Sep 11 10:09:25 2014
;;; from file /builddir/build/BUILD/autoconf-2.69/lib/emacs/elc.31229/autoconf-mode.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar autoconf-font-lock-keywords '(("\\bdnl \\(.*\\)" 1 font-lock-comment-face t) ("\\$[0-9*#@]" . font-lock-variable-name-face) ("\\b\\(m4_\\)?\\(builtin\\|change\\(com\\|quote\\|word\\)\\|d\\(e\\(bug\\(file\\|mode\\)\\|cr\\|f\\(ine\\|n\\)\\)\\|iv\\(ert\\|num\\)\\|nl\\|umpdef\\)\\|e\\(rrprint\\|syscmd\\|val\\)\\|f\\(ile\\|ormat\\)\\|gnu\\|i\\(f\\(def\\|else\\)\\|n\\(c\\(lude\\|r\\)\\|d\\(ex\\|ir\\)\\)\\)\\|l\\(en\\|ine\\)\\|m\\(4\\(exit\\|wrap\\)\\|aketemp\\|kstemp\\)\\|p\\(atsubst\\|opdef\\|ushdef\\)\\|regexp\\|s\\(hift\\|include\\|ubstr\\|ys\\(cmd\\|val\\)\\)\\|tra\\(ceo\\(ff\\|n\\)\\|nslit\\)\\|un\\(d\\(efine\\|ivert\\)\\|ix\\)\\)\\b" . font-lock-keyword-face) ("^\\(\\(m4_\\)?define\\(_default\\)?\\|A._DEFUN\\|m4_defun\\(_once\\|_init\\)?\\)(\\[?\\([A-Za-z0-9_]+\\)" 5 font-lock-function-name-face) "default font-lock-keywords"))
#@36 syntax table used in autoconf mode
(defvar autoconf-mode-syntax-table nil (#$ . 1412))
(byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\207" [autoconf-mode-syntax-table make-syntax-table modify-syntax-entry 34 "\"" 35 "<\n" 10 ">#" 40 "()" 41 ")(" 91 "(]" 93 ")[" 42 "." 95 "_"] 4)
(defvar autoconf-mode-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key [(control c) (\;)] comment-region] 4))
#@107 Autoconf value for `add-log-current-defun-function'.
This tells add-log.el how to find the current macro.
(defalias 'autoconf-current-defun #[nil "\212\300\301\302\303#\205 \304\224\304\225{)\207" [re-search-backward "^\\(m4_define\\(_default\\)?\\|m4_defun\\(_once\\|_init\\)?\\|A._DEFUN\\)(\\[*\\([A-Za-z0-9_]+\\)" nil t 4] 4 (#$ . 1973)])
#@78 A major-mode to edit Autoconf files like configure.ac.
\{autoconf-mode-map}
(defalias 'autoconf-mode #[nil "\306 \210\307!\210\310\301!\210\311\310\302!\210\312\310\303!\210\313\310\314!\210\315\316\317\f\320!\210\321\322!\207" [autoconf-mode-map add-log-current-defun-function comment-start parse-sexp-ignore-comments major-mode mode-name kill-all-local-variables use-local-map make-local-variable autoconf-current-defun "# " t font-lock-defaults autoconf-mode "Autoconf" (autoconf-font-lock-keywords nil) set-syntax-table run-hooks autoconf-mode-hook autoconf-mode-syntax-table] 2 (#$ . 2322) nil])
(provide 'autoconf-mode)