PATH:
home
/
ediuae
/
pearlandpetalbeautyspa.com
/
8f1b7c
site-start.d/desktop-entry-mode-init.el 0000644 00000000234 15160561024 0014101 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-start.d/autoconf-init.el 0000644 00000001067 15160561024 0012172 0 ustar 00 ;; Activate autoconf-mode ;; Uncomment the following code if you feel that autoconf-mode.el does better ;; job than Emacs's default autoconf.el. ;; (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)) ;; Activate autotest-mode (autoload 'autotest-mode "autotest-mode" "Major mode for editing autotest files." t) (setq auto-mode-alist (cons '("\.at\'" . autotest-mode) auto-mode-alist)) desktop-file-utils/desktop-entry-mode.el 0000644 00000017206 15160561024 0014352 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 libidn/idna.el 0000644 00000014500 15160561024 0007242 0 ustar 00 ;;; idna.el --- Internationalizing Domain Names in Applications. ;; Copyright (C) 2003-2016 Simon Josefsson ;; Keywords: idna, idn, domain name, internationalization ;; This file is part of GNU Libidn. ;; 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 simple wrapper around the command line "idn" utility in GNU ;; Libidn to make IDNA ToASCII and ToUnicode operations available in ;; Emacs. ;; Example: ;; ;; (idna-to-ascii "r�ksm�rg�s.gnu.org") ;; => "xn--rksmrgs-5wao1o.gnu.org" ;; ;; (idna-to-ascii "www.gnu.org") ;; => "www.gnu.org" ;; ;; (idna-to-unicode "xn--rksmrgs-5wao1o.gnu.org") ;; => "r�ksm�rg�s.gnu.org" ;; ;; (idna-to-unicode "www.gnu.org") ;; => "www.gnu.org" ;; Todo: Support AllowUnassigned and UseSTD3ASCIIRules somehow? ;; This package is useless unless your emacs has at least partial ;; support for the UTF-8 coding system. ;; Report bugs to bug-libidn@gnu.org. ;;; Code: (defgroup idna nil "Internationalizing Domain Names in Applications.") (defcustom idna-program "idn" "Name of the GNU Libidn \"idn\" application." :type 'string :group 'idna) (defcustom idna-environment '("CHARSET=UTF-8") "List of environment variable definitions prepended to `process-environment'." :type '(repeat string) :group 'idna) (defcustom idna-to-ascii-parameters '("--quiet" "--idna-to-ascii" "--usestd3asciirules") "Parameters passed to `idna-program' to invoke IDNA ToASCII mode." :type '(repeat string) :group 'idna) (defcustom idna-to-unicode-parameters '("--quiet" "--idna-to-unicode" "--usestd3asciirules") "Parameters passed `idna-program' to invoke IDNA ToUnicode mode." :type '(repeat string) :group 'idna) ;; Internal process handling: (defvar idna-to-ascii-process nil "Internal variable holding process for ToASCII.") (defvar idna-to-ascii-response nil "Internal variable holding response data received from ToASCII process.") (defun idna-to-ascii-response-clear () (setq idna-to-ascii-response nil)) (defun idna-to-ascii-response () (while (and (eq (process-status idna-to-ascii-process) 'run) (null idna-to-ascii-response)) (accept-process-output idna-to-ascii-process 1)) idna-to-ascii-response) (defun idna-to-ascii-filter (process string) (setq idna-to-ascii-response (concat idna-to-ascii-response string))) (defun idna-to-ascii-process () (if (and idna-to-ascii-process (eq (process-status idna-to-ascii-process) 'run)) idna-to-ascii-process (if idna-to-ascii-process (condition-case () (kill-process idna-to-ascii-process) (error))) (when (setq idna-to-ascii-process (let ((process-environment (append idna-environment process-environment))) (apply 'start-process "idna" nil idna-program idna-to-ascii-parameters))) (set-process-filter idna-to-ascii-process 'idna-to-ascii-filter) (set-process-coding-system idna-to-ascii-process 'utf-8 'utf-8) (process-kill-without-query idna-to-ascii-process)) idna-to-ascii-process)) (defvar idna-to-unicode-process nil "Internal variable holding process for ToASCII.") (defvar idna-to-unicode-response nil "Internal variable holding response data received from ToASCII process.") (defun idna-to-unicode-response-clear () (setq idna-to-unicode-response nil)) (defun idna-to-unicode-response () (while (and (eq (process-status idna-to-unicode-process) 'run) (null idna-to-unicode-response)) (accept-process-output idna-to-unicode-process 1)) idna-to-unicode-response) (defun idna-to-unicode-filter (process string) (setq idna-to-unicode-response (concat idna-to-unicode-response string))) (defun idna-to-unicode-process () (if (and idna-to-unicode-process (eq (process-status idna-to-unicode-process) 'run)) idna-to-unicode-process (if idna-to-unicode-process (condition-case () (kill-process idna-to-unicode-process) (error))) (when (setq idna-to-unicode-process (let ((process-environment (append idna-environment process-environment))) (apply 'start-process "idna" nil idna-program idna-to-unicode-parameters))) (set-process-filter idna-to-unicode-process 'idna-to-unicode-filter) (set-process-coding-system idna-to-unicode-process 'utf-8 'utf-8) (process-kill-without-query idna-to-unicode-process)) idna-to-unicode-process)) ;; IDNA Elisp API: (defun idna-to-ascii (str) "Returns an ASCII Compatible Encoding (ACE) of STR. It is computed by the IDNA ToASCII operation, after converting the input to UTF-8." (let ((proc (idna-to-ascii-process)) string) (if (null proc) (error "Cannot start idn application (to-ascii)") (idna-to-ascii-response-clear) (process-send-string proc (concat str "\n")) (setq string (idna-to-ascii-response)) (if (and string (string= (substring string (1- (length string))) "\n")) (substring string 0 (1- (length string))) string)))) (defun idna-to-unicode (str) "Returns a possibly multibyte string after decoding STR. It is computed by the IDNA ToUnicode operation." (let ((proc (idna-to-unicode-process)) string) (if (null proc) (error "Cannot start idn application (to-unicode)") (idna-to-unicode-response-clear) (process-send-string proc (concat str "\n")) (setq string (idna-to-unicode-response)) (if (and string (string= (substring string (1- (length string))) "\n")) (substring string 0 (1- (length string))) string)))) (defun idna-shutdown () "Kill the IDNA related processes." (interactive) (if (and idna-to-ascii-process (eq (process-status idna-to-ascii-process) 'run)) (kill-process idna-to-ascii-process)) (if (and idna-to-unicode-process (eq (process-status idna-to-unicode-process) 'run)) (kill-process idna-to-unicode-process))) (provide 'idna) ;;; idna.el ends here libidn/punycode.el 0000644 00000014172 15160561024 0010162 0 ustar 00 ;;; punycode.el --- An ASCII compatible Unicode encoding format. ;; Copyright (C) 2003-2016 Simon Josefsson ;; Keywords: punycode, idna, idn, unicode, encoding ;; This file is part of GNU Libidn. ;; 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 simple wrapper around the command line "idn" utility in GNU ;; Libidn to make punycode operations available in Emacs. ;; Example: ;; ;; (punycode-encode "r�ksm�rg�s") ;; => "rksmrgs-5wao1o" ;; ;; (punycode-encode "foo") ;; => "foo-" ;; ;; (punycode-decode "rksmrgs-5wao1o") ;; => "r�ksm�rg�s" ;; ;; (punycode-decode "foo-") ;; => "foo" ;; This package is useless unless your emacs has at least partial ;; support for the UTF-8 coding system. ;; Report bugs to bug-libidn@gnu.org. ;;; Code: (defgroup punycode nil "Punycode: An ASCII compatible Unicode encoding format.") (defcustom punycode-program "idn" "Name of the GNU Libidn \"idn\" application." :type 'string :group 'punycode) (defcustom punycode-environment '("CHARSET=UTF-8") "List of environment variable definitions prepended to `process-environment'." :type '(repeat string) :group 'punycode) (defcustom punycode-encode-parameters '("--quiet" "--punycode-encode") "Parameters passed to `punycode-program' to invoke punycode encoding mode." :type '(repeat string) :group 'punycode) (defcustom punycode-decode-parameters '("--quiet" "--punycode-decode") "Parameters passed to `punycode-program' to invoke punycode decoding mode." :type '(repeat string) :group 'punycode) ;; Internal process handling: (defvar punycode-encode-process nil "Internal variable holding process for punycode encoding.") (defvar punycode-encode-response nil "Internal variable holding response data received from punycode process.") (defun punycode-encode-response-clear () (setq punycode-encode-response nil)) (defun punycode-encode-response () (while (and (eq (process-status punycode-encode-process) 'run) (null punycode-encode-response)) (accept-process-output punycode-encode-process 1)) punycode-encode-response) (defun punycode-encode-filter (process string) (setq punycode-encode-response (concat punycode-encode-response string))) (defun punycode-encode-process () (if (and punycode-encode-process (eq (process-status punycode-encode-process) 'run)) punycode-encode-process (if punycode-encode-process (condition-case () (kill-process punycode-encode-process) (error))) (when (setq punycode-encode-process (let ((process-environment (append punycode-environment process-environment))) (apply 'start-process "punycode" nil punycode-program punycode-encode-parameters))) (set-process-filter punycode-encode-process 'punycode-encode-filter) (set-process-coding-system punycode-encode-process 'utf-8 'utf-8) (process-kill-without-query punycode-encode-process)) punycode-encode-process)) (defvar punycode-decode-process nil "Internal variable holding process for punycode encoding.") (defvar punycode-decode-response nil "Internal variable holding response data received from punycode process.") (defun punycode-decode-response-clear () (setq punycode-decode-response nil)) (defun punycode-decode-response () (while (and (eq (process-status punycode-decode-process) 'run) (null punycode-decode-response)) (accept-process-output punycode-decode-process 1)) punycode-decode-response) (defun punycode-decode-filter (process string) (setq punycode-decode-response (concat punycode-decode-response string))) (defun punycode-decode-process () (if (and punycode-decode-process (eq (process-status punycode-decode-process) 'run)) punycode-decode-process (if punycode-decode-process (condition-case () (kill-process punycode-decode-process) (error))) (when (setq punycode-decode-process (let ((process-environment (append punycode-environment process-environment))) (apply 'start-process "punycode" nil punycode-program punycode-decode-parameters))) (set-process-filter punycode-decode-process 'punycode-decode-filter) (set-process-coding-system punycode-decode-process 'utf-8 'utf-8) (process-kill-without-query punycode-decode-process)) punycode-decode-process)) ;; Punycode Elisp API: (defun punycode-encode (str) "Returns a Punycode encoding of STR." (let ((proc (punycode-encode-process)) string) (if (null proc) (error "Cannot start idn application") (punycode-encode-response-clear) (process-send-string proc (concat str "\n")) (setq string (punycode-encode-response)) (if (and string (string= (substring string (1- (length string))) "\n")) (substring string 0 (1- (length string))) string)))) (defun punycode-decode (str) "Returns a possibly multibyte string which is the punycode decoding of STR." (let ((proc (punycode-decode-process)) string) (if (null proc) (error "Cannot start idn application") (punycode-decode-response-clear) (process-send-string proc (concat str "\n")) (setq string (punycode-decode-response)) (if (and string (string= (substring string (1- (length string))) "\n")) (substring string 0 (1- (length string))) string)))) (defun punycode-shutdown () "Kill the punycode related process." (interactive) (if (and punycode-decode-process (eq (process-status punycode-decode-process) 'run)) (kill-process punycode-decode-process)) (if (and punycode-encode-process (eq (process-status punycode-encode-process) 'run)) (kill-process punycode-encode-process))) (provide 'punycode) ;;; punycode.el ends here libidn/idna.elc 0000644 00000011076 15160561024 0007412 0 ustar 00 ;ELC ;;; Compiled ;;; in Emacs version 26.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\301&\210\304\313\314\315\310\316\312\301&\210\304\317\320\321\310\322\312\301&\210\304\323\324\325\310\326\312\301&\207" [custom-declare-group idna nil "Internationalizing Domain Names in Applications." custom-declare-variable idna-program "idn" "Name of the GNU Libidn \"idn\" application." :type string :group idna-environment '("CHARSET=UTF-8") "List of environment variable definitions prepended to `process-environment'." (repeat string) idna-to-ascii-parameters '("--quiet" "--idna-to-ascii" "--usestd3asciirules") "Parameters passed to `idna-program' to invoke IDNA ToASCII mode." (repeat string) idna-to-unicode-parameters '("--quiet" "--idna-to-unicode" "--usestd3asciirules") "Parameters passed `idna-program' to invoke IDNA ToUnicode mode." (repeat string)] 8) #@48 Internal variable holding process for ToASCII. (defvar idna-to-ascii-process nil (#$ . 1246)) #@72 Internal variable holding response data received from ToASCII process. (defvar idna-to-ascii-response nil (#$ . 1346)) (defalias 'idna-to-ascii-response-clear #[nil "\301\211\207" [idna-to-ascii-response nil] 2]) (defalias 'idna-to-ascii-response #[nil "\302!\303=\203 \204 \304\305\"\210\202 \207" [idna-to-ascii-process idna-to-ascii-response process-status run accept-process-output 1] 3]) (defalias 'idna-to-ascii-filter #[(process string) " P\211\207" [idna-to-ascii-response string] 2]) (defalias 'idna-to-ascii-process #[nil "\203 \305!\306=\203 \207\203\"