;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@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 (#$ . 84)]))
(put 'xdg--dir-home 'edebug-form-spec '(stringp stringp))
#@375 Return the base directory for user specific configuration files.

According to the XDG Base Directory Specification version
0.8 (8th May 2021):

    "$XDG_CONFIG_HOME defines the base directory relative to
    which user-specific configuration files should be stored.
    If $XDG_CONFIG_HOME is either not set or empty, a default
    equal to $HOME/.config should be used."
(defalias 'xdg-config-home #[0 "\300\301!\211\203
\302
!\204\303\304!\207\207" [getenv "XDG_CONFIG_HOME" file-name-absolute-p expand-file-name "~/.config"] 3 (#$ . 384)])
#@370 Return the base directory for user specific cache files.

According to the XDG Base Directory Specification version
0.8 (8th May 2021):

    "$XDG_CACHE_HOME defines the base directory relative to
    which user-specific non-essential data files should be
    stored.  If $XDG_CACHE_HOME is either not set or empty, a
    default equal to $HOME/.cache should be used."
(defalias 'xdg-cache-home #[0 "\300\301!\211\203
\302
!\204\303\304!\207\207" [getenv "XDG_CACHE_HOME" file-name-absolute-p expand-file-name "~/.cache"] 3 (#$ . 939)])
#@359 Return the base directory for user specific data files.

According to the XDG Base Directory Specification version
0.8 (8th May 2021):

    "$XDG_DATA_HOME defines the base directory relative to which
    user-specific data files should be stored.  If $XDG_DATA_HOME is
    either not set or empty, a default equal to $HOME/.local/share
    should be used."
(defalias 'xdg-data-home #[0 "\300\301!\211\203
\302
!\204\303\304!\207\207" [getenv "XDG_DATA_HOME" file-name-absolute-p expand-file-name "~/.local/share"] 3 (#$ . 1486)])
#@318 Return the value of $XDG_RUNTIME_DIR.

According to the XDG Base Directory Specification version
0.8 (8th May 2021):

    "$XDG_RUNTIME_DIR defines the base directory relative to
    which user-specific non-essential runtime files and other
    file objects (such as sockets, named pipes, ...) should be
    stored."
(defalias 'xdg-runtime-dir #[0 "\300\301!\207" [getenv "XDG_RUNTIME_DIR"] 2 (#$ . 2027)])
#@483 Return the config directory search path as a list.

According to the XDG Base Directory Specification version
0.8 (8th May 2021):

    "$XDG_CONFIG_DIRS defines the preference-ordered set of base
    directories to search for configuration files in addition to
    the $XDG_CONFIG_HOME base directory.  The directories in
    $XDG_CONFIG_DIRS should be separated with a colon ':'.

    "If $XDG_CONFIG_DIRS is either not set or empty, a value equal to
    /etc/xdg should be used."
(defalias 'xdg-config-dirs #[0 "\300\301!\211\203
\211\302\230\203\303\207\304
!\207" [getenv "XDG_CONFIG_DIRS" "" ("/etc/xdg") parse-colon-path] 3 (#$ . 2441)])
#@485 Return the data directory search path as a list.

According to the XDG Base Directory Specification version
0.8 (8th May 2021):

    "$XDG_DATA_DIRS defines the preference-ordered set of base
    directories to search for data files in addition to the
    $XDG_DATA_HOME base directory.  The directories in
    $XDG_DATA_DIRS should be separated with a colon ':'.

    "If $XDG_DATA_DIRS is either not set or empty, a value equal
    to /usr/local/share/:/usr/share/ should be used."
(defalias 'xdg-data-dirs #[0 "\300\301!\211\203
\211\302\230\203\303\207\304
!\207" [getenv "XDG_DATA_DIRS" "" ("/usr/local/share/" "/usr/share/") parse-colon-path] 3 (#$ . 3095)])
#@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 (#$ . 3770)])
#@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 (#$ . 4014)])
#@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 (#$ . 4189)])
#@68 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\\)?/\\)\\(?:[^\"]\\|\\\\\"\\)*?\\)\"" (#$ . 4358))
#@37 Alist of directory keys and values.
(defvar xdg-user-dirs nil (#$ . 4672))
#@12 

(fn STR)
(defalias 'xdg--substitute-home-env #[257 "\300
!\203\207\301 \302\303\"\216\304\305\"\205\306\307\310\311\312%)\207" [file-name-absolute-p match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "^\\$HOME/" replace-match "~/" t nil 0] 8 (#$ . 4753)])
#@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 (#$ . 5069)])
#@63 Return alist of `xdg-user-dirs' from FILENAME.

(fn FILENAME)
(defalias 'xdg--user-dirs-parse-file #[257 "\300\211\301!\2036\302\303\304\"r\211q\210\305\306\"\216\307!\210eb\210m\2044\310 \262:\203.B\262\300y\210\202*\210\207" [nil file-readable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents xdg--user-dirs-parse-line] 7 (#$ . 5440)])
#@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 (#$ . 5883)])
#@50 Regexp matching desktop file group header names.
(defconst xdg-desktop-group-regexp "\\[\\(?1:[ -Z\\^-~]+?\\)]" (#$ . 6147))
#@53 Regexp matching desktop file entry key-value pairs.
(defconst xdg-desktop-entry-regexp "\\(?1:[0-9A-Za-z-]+\\)[[:blank:]]*=[[:blank:]]*\\(?2:.*\\)" (#$ . 6278))
#@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\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 (#$ . 6445)])
#@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\303\"r\211q\210\304\305\"\216\306!\210eb\210\307\310 w\203+l\204%g\311U\203+\312y\210\202\313!\2049\314\315`\316 {\"\210
\203M\317\312\303#\203M\320\321!\232\203=\312y\210\322 *\207" [xdg-desktop-group-regexp generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 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 match-string 1 xdg-desktop-read-group] 7 (#$ . 6959)])
#@78 Partition VALUE into elements delimited by unescaped semicolons.

(fn VALUE)
(defalias 'xdg-desktop-strings #[257 "\301\302!\262\303\304\305\306#\307\"\211\203$\211@\304\306\307#B\262
A\266\202\202\210\310
@\301\311\312#)\266\203\204:\211A\262
\211\237\207" [inhibit-changing-match-data nil string-trim-left split-string string-replace "\\;" "" ";" "[^[:blank:]]" t string-match] 9 (#$ . 7719)])
#@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 (#$ . 8137))
#@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\"C\262\306B\211\203h\211@\307
\310 \"B\262\307\304\311\"\312 \"B\262\313 \211\203F\211@\307\"B\262
A\266\202\2021\210\211\203`\211@\307\304\311\"\"B\262
A\266\202\202H\210
A\266\202\202\210\211\203\211@\307\314\"B\262
A\266\202\202j\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 (#$ . 8439)])
#@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\305\"r\211q\210\306\307\"\216\310	!\211\203R
\211@\311
!\203K
\312
\302\211\211\305%\210eb\210m\204\317g\313U\203H`Tf\262\302y\210\2023\314\n!\204U\302y\210\2023\315\316\317!!\211\203\276\211@	\320\267\202\267\211	\235\203s\202w\211	B\262	\202\267\211\235\203\210\202\214\211B\262\202\267\211\235\203\235\202\241\211B\262\202\267\211\235\203\261\202\265\211B\262
A\266\202\202Z\210\302y\321U\2033g\313U\203\277\2023\211\203\366\211@\211\235\204\357\211\235\203\351\n\202\355\211B\262
A\266\202\202\320\210\211\203
\211@\211\235\204
\211B\262
A\266\202\202\370\210\211\203(
\211@\322
\f\"\262
A\266\202\202
\210\211\203>
\211@\211B\262
A\266\202\202+
\210\302\262\302\262\302\262\302\262
A\266\202\202\210*\210\323!\207" [regexp-quote "=\\([^[:cntrl:]]*\\)$" nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] reverse file-readable-p insert-file-contents-literally 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 103 65 124 82 145 77 166)) 0 delete delete-dups] 18 (#$ . 9194)])
#@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\242\243\211\242
\243\300\306N\305\211:\203G@\262\307!\203@\310\311!\312
8\262
!
\203=

]\266\202\202@\211\266\202A\262\202\266\202
\203T\313\"\203V\305\266\314\"\204h\315\316\317\"BB\320\321!\314\"A\322#\211\262=?\266\202\203\202\207\203\211\305\262\323\324\325 	B\"\326\n\"\237\211\203\256\211@\327
\"B\262
A\266\202\202\230\210\203\272\330\300\306\331 #\210\332\333\305	\"\314\"A#\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] 17 (#$ . 10728)])
(provide 'xdg)