#$@%#$%!

Ngiler SH3LL 360
: / usr / share / emacs / site-lisp / desktop-file-utils /

Information Server
MySQL : OFF Perl : OFF CURL : ON WGET : OFF PKEXEC : OFF

Directive	Local Value
IP Address	162.0.209.101
System	Linux premium169.web-hosting.com 4.18.0-553.50.1.lve.el8.x86_64 #1 SMP Thu Apr 17 19:10:24 UTC 2025 x86_64
User	luxeelil
PHP Version	8.0.30
Software	LiteSpeed
Doc root	Writable

Edit File : desktop-entry-mode.el \| Size : 7.63 KB
;;; 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 Back

Edit File : desktop-entry-mode.el | Size : 7.63 KB

;;; desktop-entry-mode.el --- freedesktop.org desktop entry editing

;; 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

Back