;ELC ;;; Compiled by mockbuild@arm04-builder09.arm.fedoraproject.org on Thu Aug 29 12:46:08 2013 ;;; from file /builddir/build/BUILD/desktop-file-utils-0.22/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)" (#$ . 576)) (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-]+\\)" (#$ . 2303)) #@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\\)\\>\\)" (#$ . 2807)) #@62 Regular expression for matching desktop entry group headers. (defconst desktop-entry-group-header-re "^\\[\\(X-[^][]+\\|\\(?:Desktop \\(?:Entry\\|Action [a-zA-Z]+\\)\\)\\)\\]" (#$ . 3183)) #@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) (#$ . 3378)) #@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) (#$ . 4067)) #@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 (#$ . 4290) nil]) #@47 Validate desktop entry in the current buffer. (defalias 'desktop-entry-validate #[nil "\301\302!\210\302!\207" [compile-command require compile] 2 (#$ . 5450) nil]) (provide 'desktop-entry-mode)