;ELC ;;; Compiled by mockbuild@c6b3.bsys.dev.centos.org on Wed Aug 25 15:37:04 2010 ;;; from file /builddir/build/BUILD/desktop-file-utils-0.15/misc/elc.28443/desktop-entry-mode.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`desktop-entry-mode.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@34 Version of `desktop-entry-mode'. (defconst desktop-entry-mode-version "1.0 (spec 1.0)" (#$ . 650)) (custom-declare-group 'desktop-entry nil "Support for editing freedesktop.org desktop entry files." :group 'languages) #@46 *Command for validating desktop entry files. (custom-declare-variable 'desktop-entry-validate-command '"desktop-file-validate" '(#$ . -874) :type 'string :group 'desktop-entry) (byte-code "\300\301\302\303\304\305\306\307\306\310& \210\311\312\313\314\306\301%\210\311\315\316\317\306\301%\210\311\320\321\322\306\301%\210\311\323\324\325\306\301%\210\311\326\327\330\306\301%\207" [custom-declare-group desktop-entry-faces nil "Font lock faces for `desktop-entry-mode'." :prefix "desktop-entry-" :group 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-]+\\)" (#$ . 2404)) #@56 Expression for matching deprecated desktop entry keys. (defconst desktop-entry-deprecated-keywords "\\(\\\\|\\<\\(BinaryPattern\\|DefaultApp\\|E\\(?:ncoding\\|xtensions\\)\\|FilePattern\\|M\\(?:apNotify\\|iniIcon\\)\\|P\\(?:\\(?:attern\\|rotocol\\)s\\)\\|S\\(?:ortOrder\\|wallow\\(?:Exec\\|Title\\)\\)\\|TerminalOptions\\)\\>\\)" (#$ . 2908)) #@62 Regular expression for matching desktop entry group headers. (defconst desktop-entry-group-header-re "^\\[\\(X-[^][]+\\|\\(?:Desktop \\(?:Entry\\|Action [a-zA-Z]+\\)\\)\\)\\]" (#$ . 3284)) #@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) (#$ . 3479)) #@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) (#$ . 4168)) #@395 Major mode for editing freedesktop.org desktop entry files. See 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 (#$ . 4391) nil]) #@47 Validate desktop entry in the current buffer. (defalias 'desktop-entry-validate #[nil "\301\302!\210\302!\207" [compile-command require compile] 2 (#$ . 5551) nil]) (provide 'desktop-entry-mode)