Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/xdg.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@29 

(fn ENVIRON DEFAULT-PATH)
(defalias 'xdg--dir-home '(macro . #[514 "\300\301!\302
\303DDC\304\305\306D\307\310DDE\311DFE\207" [make-symbol "env" let getenv if or null not file-name-absolute-p expand-file-name] 11 (#$ . 408)]))
(put 'xdg--dir-home 'edebug-form-spec '(stringp stringp))
#@66 Return the base directory for user specific configuration files.
(defalias 'xdg-config-home #[0 "\300\301!\211\203
\302
!\204\303\304!\202\211\207" [getenv "XDG_CONFIG_HOME" file-name-absolute-p expand-file-name "~/.config"] 3 (#$ . 708)])
#@58 Return the base directory for user specific cache files.
(defalias 'xdg-cache-home #[0 "\300\301!\211\203
\302
!\204\303\304!\202\211\207" [getenv "XDG_CACHE_HOME" file-name-absolute-p expand-file-name "~/.cache"] 3 (#$ . 959)])
#@57 Return the base directory for user specific data files.
(defalias 'xdg-data-home #[0 "\300\301!\211\203
\302
!\204\303\304!\202\211\207" [getenv "XDG_DATA_HOME" file-name-absolute-p expand-file-name "~/.local/share"] 3 (#$ . 1199)])
#@39 Return the value of $XDG_RUNTIME_DIR.
(defalias 'xdg-runtime-dir #[0 "\300\301!\207" [getenv "XDG_RUNTIME_DIR"] 2 (#$ . 1443)])
#@52 Return the config directory search path as a list.
(defalias 'xdg-config-dirs #[0 "\300\301!\211\203
\211\302\230\203\303\202\304
!\207" [getenv "XDG_CONFIG_DIRS" "" ("/etc/xdg") parse-colon-path] 3 (#$ . 1577)])
#@50 Return the data directory search path as a list.
(defalias 'xdg-data-dirs #[0 "\300\301!\211\203
\211\302\230\203\303\202\304
!\207" [getenv "XDG_DATA_DIRS" "" ("/usr/local/share/" "/usr/share/") parse-colon-path] 3 (#$ . 1801)])
#@145 Return the canonical URI for FILENAME.
If FILENAME has absolute file name /foo/bar.jpg, its canonical URI is
file:///foo/bar.jpg

(fn FILENAME)
(defalias 'xdg-thumb-uri #[257 "\300\301!P\207" ["file://" expand-file-name] 4 (#$ . 2043)])
#@72 Return the appropriate thumbnail filename for FILENAME.

(fn FILENAME)
(defalias 'xdg-thumb-name #[257 "\300\301!!\302P\207" [md5 xdg-thumb-uri ".png"] 4 (#$ . 2287)])
#@76 Return modification time of FILENAME as an Emacs timestamp.

(fn FILENAME)
(defalias 'xdg-thumb-mtime #[257 "\300
!\301
8\207" [file-attributes 5] 4 (#$ . 2462)])
#@66 Regexp matching non-comment lines in xdg-user-dirs config files.
(defconst xdg-line-regexp "XDG_\\(?1:\\(?:D\\(?:ESKTOP\\|O\\(?:CUMENTS\\|WNLOAD\\)\\)\\|MUSIC\\|P\\(?:ICTURES\\|UBLICSHARE\\)\\|\\(?:TEMPLATE\\|VIDEO\\)S\\)\\)_DIR=\"\\(?2:\\(?:\\(?:\\$HOME\\)?/\\)\\(?:[^\"]\\|\\\\\"\\)*?\\)\"" (#$ . 2631))
#@37 Alist of directory keys and values.
(defvar xdg-user-dirs nil (#$ . 2943))
#@12 

(fn STR)
(defalias 'xdg--substitute-home-env #[257 "\300
!\203\207\301 \302\303\304\305\306!\307\"\310$\216\311\312\"\205#\313\314\315\316\303%)\207" [file-name-absolute-p match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "^\\$HOME/" replace-match "~/" t nil] 8 (#$ . 3024)])
#@123 Return pair of user-dirs key to directory value in LINE, otherwise nil.
This should be called at the beginning of a line.
(defalias 'xdg--user-dirs-parse-line #[0 "\301\302w\210g\303U?\205&\304!\205&\305\306!\305\307!
\205$\211\205$
\310!B\266\202\207" [xdg-line-regexp "[:blank:]" nil 35 looking-at match-string 1 2 xdg--substitute-home-env] 5 (#$ . 3371)])
#@61 Return alist of xdg-user-dirs from FILENAME.

(fn FILENAME)
(defalias 'xdg--user-dirs-parse-file #[257 "\300\211\301!\203<\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313!\210eb\210m\204:\314 \262:\2034B\262\300y\210\202\"*\210\207" [nil file-readable-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents xdg--user-dirs-parse-line] 10 (#$ . 3742)])
#@54 Return the directory referred to by NAME.

(fn NAME)
(defalias 'xdg-user-dir #[257 "\204\f\301\302\303\304 \"!\305
\"A\211\205\302
!\207" [xdg-user-dirs xdg--user-dirs-parse-file expand-file-name "user-dirs.dirs" xdg-config-home assoc] 5 (#$ . 4211)])
#@50 Regexp matching desktop file group header names.
(defconst xdg-desktop-group-regexp "\\[\\(?1:[ -Z\\^-~]+?\\)]" (#$ . 4475))
#@53 Regexp matching desktop file entry key-value pairs.
(defconst xdg-desktop-entry-regexp "\\(?1:[0-9A-Za-z-]+\\)[[:blank:]]*=[[:blank:]]*\\(?2:.*\\)" (#$ . 4606))
#@70 Return hash table of group of desktop entries in the current buffer.
(defalias 'xdg-desktop-read-group #[0 "\302\303\304\"m\204C\305!\204C\306\307w\210l\204=g\310U\204=\305	!\203/\311\312\313!\312\314!#\210\202=\305\315!\204=\316\317`\320 {\"\210\307y\210\202\211\207" [xdg-desktop-group-regexp xdg-desktop-entry-regexp make-hash-table :test equal looking-at "[:blank:]" nil 35 puthash match-string 1 2 "\\(?1:[[:alnum:]-]+\\)[[:blank:]]*\\[" error "Malformed line: %s" point-at-eol] 5 (#$ . 4773)])
#@160 Return group contents of desktop file FILENAME as a hash table.
Optional argument GROUP defaults to the string "Desktop Entry".

(fn FILENAME &optional GROUP)
(defalias 'xdg-desktop-read-file #[513 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312!\210eb\210\313\314 w\2031l\204+g\315U\2031\316y\210\202\317!\204?\320\321`\322 {\"\210
\203S\323\316\324#\203S\325\326!\232\203C\316y\210\327 *\207" [xdg-desktop-group-regexp generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents-literally "[:blank:]" line-end-position 35 nil looking-at error "Expected group name!  Instead saw: %s" point-at-eol re-search-forward t match-string 1 xdg-desktop-read-group] 9 (#$ . 5291)])
#@78 Partition VALUE into elements delimited by unescaped semicolons.

(fn VALUE)
(defalias 'xdg-desktop-strings #[257 "\301
\301\302\303\206\n\304\305Q\"\203\306\307\225\"\202
\266\202\262\310\311\312\313#\314\"\211\203<\211@\311\313\314#B\262
A\266\202\202&\210\315
@\301\316\302#)\266\203\204R\211A\262
\211\237\207" [inhibit-changing-match-data nil string-match "\\`\\(?:" "[ 	\n
]+" "\\)" substring 0 split-string replace-regexp-in-string "\\\\;" "" ";" "[^[:blank:]]" t] 9 (#$ . 6079)])
#@256 Table of MIME type to desktop file associations.
The table is an alist with keys being MIME major types ("application",
"audio", etc.), and values being hash tables.  Each hash table has
MIME subtypes as keys and lists of desktop file absolute filenames.
(defvar xdg-mime-table nil (#$ . 6595))
#@179 Return a list of files containing MIME/Desktop associations.
The list is in order of descending priority: user config, then
admin config, and finally system cached associations.
(defalias 'xdg-mime-apps-files #[0 "\300 \301\302!\303
\203\304\305\"\262\306B\211\203g\211@\307
\310 \"B\262\307\304\311\"\312 \"B\262\313 \211\203E\211@\307\"B\262
A\266\202\2020\210\211\203_\211@\307\304\311\"\"B\262
A\266\202\202G\210
A\266\202\202\210\211\203~\211@\307\314\"B\262
A\266\202\202i\210\211\237\207" [xdg-data-dirs getenv "XDG_CURRENT_DESKTOP" nil format "%s-mimeapps.list" "mimeapps.list" expand-file-name xdg-config-home "applications/%s" xdg-data-home xdg-config-dirs "applications/mimeinfo.cache"] 11 (#$ . 6897)])
#@212 Return a list of desktop file names associated with MIME.
The associations are searched in the list of file names FILES,
which is expected to be ordered by priority as in
`xdg-mime-apps-files'.

(fn MIME FILES)
(defalias 'xdg-mime-collect-associations #[514 "\300!\301P\302\211\211\211\211\211\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314	!\211\203a
\211@\315
!\203Z
\316
\302\211\211\317%\210eb\210\302m\204\335\211\204\335g\320U\203S`Tf\262	\302y\210\202:\321!\204`\302y\210\202:\322\323\324!!\211\203\314\211@\211\325\267\202\304\211\235\203\n\202\203\211B\262\202\304\211\n\235\203\224	\202\230\211\nB\262\n\202\304\211	\235\203\251\202\255\211	B\262	\202\304\211\235\203\276\202\302\211B\262\210
A\266\202\202e\210\302y\306U\203:g\320U\203\315\202:\210\211\203
\211@\211\235\204\376\211\235\203\370\n\202\374\211B\262
A\266\202\202\337\210\211\203!
\211@\211\235\204
\211B\262
A\266\202\202
\210\211\2037
\211@\326
\f\"\262
A\266\202\202#
\210\211\203M
\211@\211B\262
A\266\202\202:
\210\302\262\302\262\302\262\302\262
A\266\202\202\"\210*\210\327!\207" [regexp-quote "=\\([^[:cntrl:]]*\\)$" nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 reverse file-readable-p insert-file-contents-literally t 91 looking-at xdg-desktop-strings match-string 1 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (68 115 65 136 82 157 77 178)) delete delete-dups] 18 (#$ . 7651)])
#@225 Return list of desktop files associated with MIME, otherwise nil.
The list is in order of descending priority, and each element is
an absolute file name of a readable file.
Results are cached in `xdg-mime-table'.

(fn MIME)
(defalias 'xdg-mime-apps #[257 "\301
\302\"\303 \304 \305@A\211@
A
\300\306N\305\211:\203G@\262\307!\203@\310\311!\312
8\262
!
\203=

]\202>\211\266\202A\262\202\266\202
\203T\313\"\203V\305\266\314
\"\204h\211\315\316\317\"BB\320\321!\314\"A\322#\211\262\n=?\266\202\203\205\202\316\203\215\305\262\323\324\325 B\"\326\f\n\"\237\211\203\262\211@\327
\"\nB\262\n
A\266\202\202\234\210\203\277\330\300\306\331 #\210\332\333\305\"\314\"A#\262
\266\202\266\204\207" [xdg-mime-table split-string "/" xdg-data-dirs xdg-mime-apps-files nil mtime file-readable-p float-time file-attributes 5 time-less-p assoc make-hash-table :test equal make-symbol "def" gethash mapcar #[257 "\300\301\"\207" [expand-file-name "applications"] 4 "\n\n(fn DIR)"] xdg-data-home xdg-mime-collect-associations locate-file put current-time puthash delq] 19 (#$ . 9242)])
(provide 'xdg)