;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(require 'rx)
#@43 Update the nix fetch expression at point.
(defalias 'nix-update-fetch #[nil "\212\306\307\310\311#\2055\312\225Sb\210`\313\314!\315 \210\214	`}\210\316\317\320\303\n!eb\306\321P\310\311#\2038 \322\n\310\311\310\314%\202\\ db\210\323\324!\210\325 b\210\326\327\330!\203O \313\314!\331 b\210\332\f\333\n\324\261)#!\334\267\202\334\335\336!\335\337!\335\340!\211\205u \341\230)@AB\342\343\311\"CrCq\210\344\216\345\346BA#\210\311D\347\350\351@\203\240 \352\202\241 \353\354QBA\355$p\"\210\345\356BA#\210)eb\210\357 .\202\335\335\336!\335\337!AB\342\343\311\"ErEq\210\360\216\345\361BA#\210\311D\347\350\362BA\355$p\"\210\345\363BA#\210)eb\210\357 -\202\335\335\364!F\342\343\311\"GrGq\210\365\216\345\366F\"\210\311D\347\350\367F\355#p\"\210\345\370F\"\210)eb\210\357 ,\202\335\335\364!F\342\343\311\"HrHq\210\371\216\345\372F\"\210\311D\347\350\373F\"p\"\210\345\374F\"\210)eb\210\327\375!\203n\310y\210\202b\376\377\201L !B\201M \325 \331 {,BD\202\335\335\201N !I\342\343\311\"JrJq\210\201O \216\345\201P I\"\210\311D\347\350\201Q I\"p\"\210\345\201R I\"\210)eb\210\327\375!\203\307\310y\210\202\273\376\377\201L !B\201M \325 \331 {,BD\202\335\310K\201S K\236\203\367\320\201T \201U \201S K\"\"\210\376K\236\203$\320\201V \201U \376K\">\201W \201X >\"\203\313\314>\"\202!>)\"\210\320\201Y \201U \201M K\"\")\"+)\207" [type begin value field leader subs re-search-forward "\\(compileEmacsWikiFile\\|fetch\\(?:url\\|git\\|FromGit\\(?:\\(?:Hu\\|La\\)b\\)\\)\\)[[:space:]]+{" nil t 0 match-string 1 forward-sexp cl-flet (get-field (field) (goto-char (point-min)) (when (re-search-forward (concat field "\\s-+=\\s-+\"?\\(.+?\\)\"?\\s-*;") nil t) (match-string 1))) set-field "\\s-+=\\s-+\"?\\(.+?\\)\"?\\s-*;" replace-match search-backward ";" line-beginning-position "    " looking-at "^\\(\\s-+\\)" line-end-position 10 " = " #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("fetchFromGitHub" 100 "fetchFromGitLab" 191 "fetchgit" 255 "fetchurl" 308 "compileEmacsWikiFile" 387)) get-field "owner" "repo" "fetchSubmodules" "true" generate-new-buffer " *temp*" #[nil "\301!\205	 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] message "Fetching GitHub repository: %s/%s ..." shell-command format "nix-prefetch-git --no-deepClone" " --fetch-submodules" "" " --quiet git://github.com/%s/%s.git %s" "refs/heads/master" "Fetching GitHub repository: %s/%s ...done" json-read-object #[nil "\301!\205	 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] "Fetching GitLab repository: %s/%s ..." "nix-prefetch-git --no-deepClone --quiet https://gitlab.com/%s/%s.git %s" "Fetching GitLab repository: %s/%s ...done" "url" #[nil "\301!\205	 \302!\207" [#3=#:temp-buffer buffer-name kill-buffer] 2] "Fetching Git URL: %s ..." "nix-prefetch-git --no-deepClone --quiet '%s' %s" "Fetching Git URL: %s ...done" #[nil "\301!\205	 \302!\207" [#4=#:temp-buffer buffer-name kill-buffer] 2] "Fetching URL %s: ..." "nix-prefetch-url '%s'" "Fetching URL %s: ...done" "^\\(path is\\|warning\\)" date format-time-string submodules repo owner #1# inhibit-redisplay #2# url #3# #4# name #5=#:temp-buffer data "%Y-%m-%dT%H:%M:%S%z" sha256 "name" #[nil "\301!\205	 \302!\207" [#5# buffer-name kill-buffer] 2] "Fetching EmacsWiki file %s: ..." "nix-prefetch-url 'https://www.emacswiki.org/emacs/download/%s'" "Fetching EmacsWiki file %s: ...done" rev "rev" alist-get "# date" string-match "\\`\"\\(.+\\)\"\\'" "sha256"] 12 (#$ . 101) nil])
(provide 'nix-update)