API tools faq
paste
rafaelgdsgs

logs

rafaelgdsgs
Mar 31st, 2025
102
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 204.37 KB | None | 0 0
raw download clone embed print report
  1. Installing Doom Emacs!
  2.  
  3. ✓ Created ~/.config/doom/
  4. - Creating ~/.config/doom/init.el...
  5. ✓ Done!
  6. - Creating ~/.config/doom/config.el...
  7. ✓ Done!
  8. - Creating ~/.config/doom/packages.el...
  9. ✓ Done!
  10. > Generating envvars file
  11. ✓ Generated ~/.config/emacs/.local/env
  12. > Installing plugins
  13. > Installing straight...
  14. > Ensuring packages are installed and built...
  15. > Updating recipe repos...
  16. > Updating recipes for melpa...
  17. > Updating recipes for nongnu-elpa...
  18. > Updating recipes for gnu-elpa-mirror...
  19. > Updating recipes for el-get...
  20. > Updating recipes for emacsmirror-mirror...
  21. > Cloning link-hint.el...
  22. - Checked out 826993a0ab736ab09f53a0623fb44edf2182b07c
  23. > Building link-hint...
  24. > Building link-hint > Cloning avy...
  25. - Checked out 933d1f36cca0f71e4acb5fac707e9ae26c536264
  26. > Building link-hint > Building avy...
  27. INFO Scraping 1 files for loaddefs...
  28. INFO Scraping 1 files for loaddefs...done
  29. GEN avy-autoloads.el
  30. > Building link-hint...
  31. INFO Scraping 1 files for loaddefs...
  32. INFO Scraping 1 files for loaddefs...done
  33. GEN link-hint-autoloads.el
  34. > Cloning ob-async...
  35. - Pinned to 9aac486073f5c356ada20e716571be33a350a982
  36. > Building ob-async...
  37. > Building ob-async > Cloning emacs-async...
  38. - Pinned to 9aac486073f5c356ada20e716571be33a350a982
  39. > Building ob-async > Building async...
  40. INFO Scraping 5 files for loaddefs...
  41. INFO Scraping 5 files for loaddefs...done
  42. GEN async-autoloads.el
  43. > Building ob-async > Cloning org...
  44. - Pinned to 9aac486073f5c356ada20e716571be33a350a982
  45. > Building ob-async > Building org...
  46. INFO Scraping 128 files for loaddefs...
  47. INFO Scraping 128 files for loaddefs...done
  48. GEN org-autoloads.el
  49. GEN org-loaddefs.el
  50. > Building ob-async > Cloning dash.el...
  51. - Pinned to 9aac486073f5c356ada20e716571be33a350a982
  52. > Building ob-async > Building dash...
  53. INFO Scraping 1 files for loaddefs...
  54. INFO Scraping 1 files for loaddefs...done
  55. GEN dash-autoloads.el
  56. > Building ob-async...
  57. INFO Scraping 1 files for loaddefs...
  58. INFO Scraping 1 files for loaddefs...done
  59. GEN ob-async-autoloads.el
  60. > Cloning orgit...
  61. - Pinned to 6ad0dc35c8df54fae4ef27e5145760e22fbbf890
  62. > Building orgit...
  63. > Building orgit > Cloning compat...
  64. - Pinned to 6ad0dc35c8df54fae4ef27e5145760e22fbbf890
  65. > Building orgit > Building compat...
  66. > Building orgit > Building compat > Cloning seq...
  67. - Pinned to 6ad0dc35c8df54fae4ef27e5145760e22fbbf890
  68. > Building orgit > Building compat > Building seq...
  69. INFO Scraping 4 files for loaddefs...
  70. INFO Scraping 4 files for loaddefs...done
  71. GEN seq-autoloads.el
  72. > Building orgit > Building compat...
  73. INFO Scraping 9 files for loaddefs...
  74. INFO Scraping 9 files for loaddefs...done
  75. > Building orgit > Cloning magit...
  76. - Pinned to 6ad0dc35c8df54fae4ef27e5145760e22fbbf890
  77. > Building orgit > Building magit...
  78. > Building orgit > Building magit > Cloning llama...
  79. - Pinned to 6ad0dc35c8df54fae4ef27e5145760e22fbbf890
  80. > Building orgit > Building magit > Building llama...
  81. INFO Scraping 1 files for loaddefs...
  82. INFO Scraping 1 files for loaddefs...done
  83. GEN llama-autoloads.el
  84. > Building orgit > Building magit > Building magit-section...
  85. INFO Scraping 1 files for loaddefs...
  86. INFO Scraping 1 files for loaddefs...done
  87. GEN magit-section-autoloads.el
  88. > Building orgit > Building magit > Cloning transient...
  89. - Pinned to 6ad0dc35c8df54fae4ef27e5145760e22fbbf890
  90. > Building orgit > Building magit > Building transient...
  91. INFO Scraping 1 files for loaddefs...
  92. INFO Scraping 1 files for loaddefs...done
  93. GEN transient-autoloads.el
  94. > Building orgit > Building magit > Cloning with-editor...
  95. - Pinned to 6ad0dc35c8df54fae4ef27e5145760e22fbbf890
  96. > Building orgit > Building magit > Building with-editor...
  97. INFO Scraping 1 files for loaddefs...
  98. INFO Scraping 1 files for loaddefs...done
  99. GEN with-editor-autoloads.el
  100. > Building orgit > Building magit...
  101. INFO Scraping 45 files for loaddefs...
  102. INFO Scraping 45 files for loaddefs...done
  103. GEN magit-autoloads.el
  104. > Building orgit...
  105. INFO Scraping 1 files for loaddefs...
  106. INFO Scraping 1 files for loaddefs...done
  107. GEN orgit-autoloads.el
  108. > Cloning evil-org-mode (for evil-org)...
  109. - Checked out 06518c65ff4f7aea2ea51149d701549dcbccce5d
  110. > Building evil-org...
  111. > Building evil-org > Cloning evil...
  112. - Checked out 682e87fce99f39ea3155f11f87ee56b6e4593304
  113. > Building evil-org > Building evil...
  114. > Building evil-org > Building evil > Cloning goto-chg...
  115. > Building evil-org > Building evil > Building goto-chg...
  116. INFO Scraping 1 files for loaddefs...
  117. INFO Scraping 1 files for loaddefs...done
  118. GEN goto-chg-autoloads.el
  119. > Building evil-org > Building evil...
  120. INFO Scraping 18 files for loaddefs...
  121. INFO Scraping 18 files for loaddefs...done
  122. GEN evil-autoloads.el
  123. > Building evil-org...
  124. INFO Scraping 2 files for loaddefs...
  125. INFO Scraping 2 files for loaddefs...done
  126. GEN evil-org-autoloads.el
  127. > Cloning org-cliplink...
  128. - Pinned to 13e0940b65d22bec34e2de4bc8cba1412a7abfbc
  129. > Building org-cliplink...
  130. INFO Scraping 3 files for loaddefs...
  131. INFO Scraping 3 files for loaddefs...done
  132. GEN org-cliplink-autoloads.el
  133. > Cloning toc-org...
  134. - Pinned to 6d3ae0fc47ce79b1ea06cabe21a3c596395409cd
  135. > Building toc-org...
  136. INFO Scraping 1 files for loaddefs...
  137. INFO Scraping 1 files for loaddefs...done
  138. GEN toc-org-autoloads.el
  139. > Cloning ox-clip...
  140. - Pinned to a549cc8e1747beb6b7e567ffac27e31ba45cb8e8
  141. > Building ox-clip...
  142. > Building ox-clip > Cloning emacs-htmlize...
  143. - Pinned to a549cc8e1747beb6b7e567ffac27e31ba45cb8e8
  144. > Building ox-clip > Building htmlize...
  145. INFO Scraping 1 files for loaddefs...
  146. INFO Scraping 1 files for loaddefs...done
  147. GEN htmlize-autoloads.el
  148. > Building ox-clip...
  149. INFO Scraping 1 files for loaddefs...
  150. INFO Scraping 1 files for loaddefs...done
  151. GEN ox-clip-autoloads.el
  152. > Cloning org-contrib...
  153. - Pinned to 8d14a600a2069ffc494edfc9a12b8e5fc8840bf1
  154. > Building org-contrib...
  155. INFO Scraping 57 files for loaddefs...
  156. INFO Scraping 57 files for loaddefs...done
  157. GEN org-contrib-autoloads.el
  158. > Cloning evil-markdown...
  159. - Pinned to 8e6cc68af83914b2fa9fd3a3b8472573dbcef477
  160. > Building evil-markdown...
  161. INFO Scraping 1 files for loaddefs...
  162. INFO Scraping 1 files for loaddefs...done
  163. GEN evil-markdown-autoloads.el
  164. > Cloning edit-indirect...
  165. - Pinned to 82a28d8a85277cfe453af464603ea330eae41c05
  166. > Building edit-indirect...
  167. INFO Scraping 1 files for loaddefs...
  168. INFO Scraping 1 files for loaddefs...done
  169. GEN edit-indirect-autoloads.el
  170. > Cloning markdown-toc...
  171. - Pinned to d2fb4cbd95e558042307d706f9f47f93687c9fcc
  172. > Building markdown-toc...
  173. > Building markdown-toc > Cloning markdown-mode...
  174. - Pinned to d2fb4cbd95e558042307d706f9f47f93687c9fcc
  175. > Building markdown-toc > Building markdown-mode...
  176. INFO Scraping 1 files for loaddefs...
  177. INFO Scraping 1 files for loaddefs...done
  178. GEN markdown-mode-autoloads.el
  179. > Building markdown-toc > Cloning s.el...
  180. - Pinned to d2fb4cbd95e558042307d706f9f47f93687c9fcc
  181. > Building markdown-toc > Building s...
  182. INFO Scraping 1 files for loaddefs...
  183. INFO Scraping 1 files for loaddefs...done
  184. > Building markdown-toc...
  185. INFO Scraping 1 files for loaddefs...
  186. INFO Scraping 1 files for loaddefs...done
  187. GEN markdown-toc-autoloads.el
  188. > Cloning emacs-buttercup...
  189. - Checked out c467c659b2c5b7029e20909331e072d7301af1d5
  190. > Building buttercup...
  191. INFO Scraping 2 files for loaddefs...
  192. INFO Scraping 2 files for loaddefs...done
  193. GEN buttercup-autoloads.el
  194. > Cloning flycheck-package...
  195. - Pinned to a52e4e95f3151898b36739dfdb4a98b368626fc0
  196. > Building flycheck-package...
  197. > Building flycheck-package > Cloning flycheck...
  198. - Pinned to a52e4e95f3151898b36739dfdb4a98b368626fc0
  199. > Building flycheck-package > Building flycheck...
  200. INFO Scraping 3 files for loaddefs...
  201. INFO Scraping 3 files for loaddefs...done
  202. GEN flycheck-autoloads.el
  203. > Building flycheck-package > Cloning package-lint...
  204. - Pinned to a52e4e95f3151898b36739dfdb4a98b368626fc0
  205. > Building flycheck-package > Building package-lint...
  206. INFO Scraping 1 files for loaddefs...
  207. INFO Scraping 1 files for loaddefs...done
  208. GEN package-lint-autoloads.el
  209. > Building flycheck-package...
  210. INFO Scraping 1 files for loaddefs...
  211. INFO Scraping 1 files for loaddefs...done
  212. GEN flycheck-package-autoloads.el
  213. > Cloning elisp-demos...
  214. - Pinned to 1a108d1c5011f9ced58be2ca98bea1fbd4130a2f
  215. > Building elisp-demos...
  216. INFO Scraping 1 files for loaddefs...
  217. INFO Scraping 1 files for loaddefs...done
  218. GEN elisp-demos-autoloads.el
  219. > Cloning elisp-def...
  220. - Pinned to 1ad4baccbf3d0d13e7607d332ae6bc60a5dd7360
  221. > Building elisp-def...
  222. > Building elisp-def > Cloning f.el...
  223. - Pinned to 1ad4baccbf3d0d13e7607d332ae6bc60a5dd7360
  224. > Building elisp-def > Building f...
  225. INFO Scraping 2 files for loaddefs...
  226. INFO Scraping 2 files for loaddefs...done
  227. > Building elisp-def...
  228. INFO Scraping 1 files for loaddefs...
  229. INFO Scraping 1 files for loaddefs...done
  230. GEN elisp-def-autoloads.el
  231. > Cloning overseer.el...
  232. - Checked out 7fdcf1a6fba6b1569a09c1666b4e51bcde266ed9
  233. > Building overseer...
  234. > Building overseer > Cloning pkg-info...
  235. > Building overseer > Building pkg-info...
  236. > Building overseer > Building pkg-info > Cloning epl...
  237. > Building overseer > Building pkg-info > Building epl...
  238. INFO Scraping 1 files for loaddefs...
  239. INFO Scraping 1 files for loaddefs...done
  240. > Building overseer > Building pkg-info...
  241. INFO Scraping 1 files for loaddefs...
  242. INFO Scraping 1 files for loaddefs...done
  243. GEN pkg-info-autoloads.el
  244. > Building overseer...
  245. INFO Scraping 1 files for loaddefs...
  246. INFO Scraping 1 files for loaddefs...done
  247. GEN overseer-autoloads.el
  248. > Cloning macrostep...
  249. - Pinned to d0928626b4711dcf9f8f90439d23701118724199
  250. > Building macrostep...
  251. INFO Scraping 2 files for loaddefs...
  252. INFO Scraping 2 files for loaddefs...done
  253. GEN macrostep-autoloads.el
  254. > Cloning helpful...
  255. - Pinned to 5ad8a9ce57b6c076428286c3d25968b449ab6fd3
  256. > Building helpful...
  257. > Building helpful > Cloning elisp-refs...
  258. - Pinned to 5ad8a9ce57b6c076428286c3d25968b449ab6fd3
  259. > Building helpful > Building elisp-refs...
  260. INFO Scraping 1 files for loaddefs...
  261. INFO Scraping 1 files for loaddefs...done
  262. GEN elisp-refs-autoloads.el
  263. > Building helpful...
  264. INFO Scraping 1 files for loaddefs...
  265. INFO Scraping 1 files for loaddefs...done
  266. GEN helpful-autoloads.el
  267. > Cloning highlight-quoted...
  268. - Pinned to 24103478158cd19fbcfb4339a3f1fa1f054f1469
  269. > Building highlight-quoted...
  270. INFO Scraping 1 files for loaddefs...
  271. INFO Scraping 1 files for loaddefs...done
  272. GEN highlight-quoted-autoloads.el
  273. > Cloning emacs-request...
  274. - Checked out c22e3c23a6dd90f64be536e176ea0ed6113a5ba6
  275. > Building request...
  276. INFO Scraping 1 files for loaddefs...
  277. INFO Scraping 1 files for loaddefs...done
  278. GEN request-autoloads.el
  279. > Cloning dumb-jump...
  280. - Pinned to 737267a6139a988369cb95ecd365b2db95e05db0
  281. > Building dumb-jump...
  282. > Building dumb-jump > Cloning popup-el (for popup)...
  283. - Pinned to 737267a6139a988369cb95ecd365b2db95e05db0
  284. > Building dumb-jump > Building popup...
  285. INFO Scraping 1 files for loaddefs...
  286. INFO Scraping 1 files for loaddefs...done
  287. > Building dumb-jump...
  288. INFO Scraping 1 files for loaddefs...
  289. INFO Scraping 1 files for loaddefs...done
  290. GEN dumb-jump-autoloads.el
  291. > Cloning eros...
  292. - Pinned to a9a92bdc6be0521a6a06eb464be55ed61946639c
  293. > Building eros...
  294. INFO Scraping 1 files for loaddefs...
  295. INFO Scraping 1 files for loaddefs...done
  296. GEN eros-autoloads.el
  297. > Cloning quickrun...
  298. - Pinned to 4b6df453f80ae7eab250a312056eaef95890e4c6
  299. > Building quickrun...
  300. > Building quickrun > Cloning ht.el...
  301. - Pinned to 4b6df453f80ae7eab250a312056eaef95890e4c6
  302. > Building quickrun > Building ht...
  303. INFO Scraping 1 files for loaddefs...
  304. INFO Scraping 1 files for loaddefs...done
  305. > Building quickrun...
  306. INFO Scraping 1 files for loaddefs...
  307. INFO Scraping 1 files for loaddefs...done
  308. GEN quickrun-autoloads.el
  309. > Cloning flycheck-popup-tip...
  310. - Pinned to ef86aad907f27ca076859d8d9416f4f7727619c6
  311. > Building flycheck-popup-tip...
  312. INFO Scraping 1 files for loaddefs...
  313. INFO Scraping 1 files for loaddefs...done
  314. GEN flycheck-popup-tip-autoloads.el
  315. > Cloning git-modes...
  316. - Pinned to f99010bbeb8b6d8a0819fac0195a2ef0159d08f0
  317. > Building git-modes...
  318. INFO Scraping 4 files for loaddefs...
  319. INFO Scraping 4 files for loaddefs...done
  320. GEN git-modes-autoloads.el
  321. > Cloning git-timemachine...
  322. - Pinned to d1346a76122595aeeb7ebb292765841c6cfd417b
  323. > Building git-timemachine...
  324. INFO Scraping 1 files for loaddefs...
  325. INFO Scraping 1 files for loaddefs...done
  326. GEN git-timemachine-autoloads.el
  327. > Cloning browse-at-remote...
  328. - Pinned to 76aa27dfd469fcae75ed7031bb73830831aaccbf
  329. > Building browse-at-remote...
  330. INFO Scraping 1 files for loaddefs...
  331. INFO Scraping 1 files for loaddefs...done
  332. GEN browse-at-remote-autoloads.el
  333. > Cloning vundo...
  334. - Pinned to c32481ab489e769324300d7b1a4781cd7091fa65
  335. > Building vundo...
  336. INFO Scraping 4 files for loaddefs...
  337. INFO Scraping 4 files for loaddefs...done
  338. GEN vundo-autoloads.el
  339. > Cloning undo-fu-session...
  340. - Pinned to d90d42ddba8fa42ef5dc109196545caeabb42b75
  341. > Building undo-fu-session...
  342. INFO Scraping 1 files for loaddefs...
  343. INFO Scraping 1 files for loaddefs...done
  344. GEN undo-fu-session-autoloads.el
  345. > Cloning undo-fu...
  346. - Pinned to 399cc12f907f81a709f9014b6fad0205700d5772
  347. > Building undo-fu...
  348. INFO Scraping 1 files for loaddefs...
  349. INFO Scraping 1 files for loaddefs...done
  350. GEN undo-fu-autoloads.el
  351. > Cloning diredfl...
  352. - Pinned to fe72d2e42ee18bf6228bba9d7086de4098f18a70
  353. > Building diredfl...
  354. INFO Scraping 1 files for loaddefs...
  355. INFO Scraping 1 files for loaddefs...done
  356. GEN diredfl-autoloads.el
  357. > Cloning dirvish...
  358. - Pinned to 2d63995d3296c259cef90830cf0433602429ecec
  359. > Building dirvish...
  360. INFO Scraping 18 files for loaddefs...
  361. INFO Scraping 18 files for loaddefs...done
  362. GEN dirvish-autoloads.el
  363. > Cloning snippets (for doom-snippets)...
  364. - Checked out b672e69bbf5623e8af0fed27b23a1093fa217315
  365. > Building doom-snippets...
  366. > Building doom-snippets > Cloning yasnippet...
  367. - Checked out 5b315f1753480ebe669b157b8242448b5eafcfea
  368. > Building doom-snippets > Building yasnippet...
  369. INFO Scraping 1 files for loaddefs...
  370. INFO Scraping 1 files for loaddefs...done
  371. GEN yasnippet-autoloads.el
  372. > Building doom-snippets...
  373. INFO Scraping 2 files for loaddefs...
  374. INFO Scraping 2 files for loaddefs...done
  375. GEN doom-snippets-autoloads.el
  376. > Cloning auto-yasnippet...
  377. - Pinned to 6a9e406d0d7f9dfd6dff7647f358cb05a0b1637e
  378. > Building auto-yasnippet...
  379. INFO Scraping 1 files for loaddefs...
  380. INFO Scraping 1 files for loaddefs...done
  381. GEN auto-yasnippet-autoloads.el
  382. > Cloning evil-vimish-fold...
  383. - Pinned to b6e0e6b91b8cd047e80debef1a536d9d49eef31a
  384. > Building evil-vimish-fold...
  385. > Building evil-vimish-fold > Cloning vimish-fold...
  386. - Pinned to b6e0e6b91b8cd047e80debef1a536d9d49eef31a
  387. > Building evil-vimish-fold > Building vimish-fold...
  388. INFO Scraping 1 files for loaddefs...
  389. INFO Scraping 1 files for loaddefs...done
  390. GEN vimish-fold-autoloads.el
  391. > Building evil-vimish-fold...
  392. INFO Scraping 1 files for loaddefs...
  393. INFO Scraping 1 files for loaddefs...done
  394. GEN evil-vimish-fold-autoloads.el
  395. > Cloning evil-collection...
  396. - Pinned to cb850ff0d11f644dbd133428cff57e82e655ecd7
  397. > Building evil-collection...
  398. > Building evil-collection > Cloning annalist.el...
  399. - Pinned to cb850ff0d11f644dbd133428cff57e82e655ecd7
  400. > Building evil-collection > Building annalist...
  401. INFO Scraping 1 files for loaddefs...
  402. INFO Scraping 1 files for loaddefs...done
  403. GEN annalist-autoloads.el
  404. > Building evil-collection...
  405. INFO Scraping 1 files for loaddefs...
  406. INFO Scraping 1 files for loaddefs...done
  407. GEN evil-collection-autoloads.el
  408. > Cloning evil-quick-diff...
  409. - Pinned to 69c883720b30a892c63bc89f49d4f0e8b8028908
  410. > Building evil-quick-diff...
  411. INFO Scraping 1 files for loaddefs...
  412. INFO Scraping 1 files for loaddefs...done
  413. GEN evil-quick-diff-autoloads.el
  414. > Cloning exato...
  415. - Pinned to aee7af7b7a0e7551478f453d1de7d5b9cb2e06c4
  416. > Building exato...
  417. INFO Scraping 1 files for loaddefs...
  418. INFO Scraping 1 files for loaddefs...done
  419. > Cloning evil-visualstar...
  420. - Pinned to 06c053d8f7381f91c53311b1234872ca96ced752
  421. > Building evil-visualstar...
  422. INFO Scraping 1 files for loaddefs...
  423. INFO Scraping 1 files for loaddefs...done
  424. GEN evil-visualstar-autoloads.el
  425. > Cloning evil-traces...
  426. - Pinned to 82e8a7b4213aed140f6eb5f2cc33a09bb5587166
  427. > Building evil-traces...
  428. INFO Scraping 1 files for loaddefs...
  429. INFO Scraping 1 files for loaddefs...done
  430. GEN evil-traces-autoloads.el
  431. > Cloning evil-textobj-anyblock...
  432. - Pinned to 29280cd71a05429364cdceef2ff595ae8afade4d
  433. > Building evil-textobj-anyblock...
  434. INFO Scraping 1 files for loaddefs...
  435. INFO Scraping 1 files for loaddefs...done
  436. GEN evil-textobj-anyblock-autoloads.el
  437. > Cloning evil-surround...
  438. - Pinned to da05c60b0621cf33161bb4335153f75ff5c29d91
  439. > Building evil-surround...
  440. INFO Scraping 1 files for loaddefs...
  441. INFO Scraping 1 files for loaddefs...done
  442. GEN evil-surround-autoloads.el
  443. > Cloning evil-snipe...
  444. - Pinned to c2108d3932fcd2f75ac3e48250d6badd668f5b4f
  445. > Building evil-snipe...
  446. INFO Scraping 1 files for loaddefs...
  447. INFO Scraping 1 files for loaddefs...done
  448. GEN evil-snipe-autoloads.el
  449. > Cloning evil-numbers...
  450. - Pinned to f4bbb729eebeef26966fae17bd414a7b49f82275
  451. > Building evil-numbers...
  452. INFO Scraping 1 files for loaddefs...
  453. INFO Scraping 1 files for loaddefs...done
  454. GEN evil-numbers-autoloads.el
  455. > Cloning evil-nerd-commenter...
  456. - Pinned to ae52c5070a48793e2c24474c9c8dbf20175d18a0
  457. > Building evil-nerd-commenter...
  458. INFO Scraping 3 files for loaddefs...
  459. INFO Scraping 3 files for loaddefs...done
  460. GEN evil-nerd-commenter-autoloads.el
  461. > Cloning evil-lion...
  462. - Pinned to 5a0bca151466960e090d1803c4c5ded88875f90a
  463. > Building evil-lion...
  464. INFO Scraping 1 files for loaddefs...
  465. INFO Scraping 1 files for loaddefs...done
  466. GEN evil-lion-autoloads.el
  467. > Cloning evil-indent-plus...
  468. - Pinned to f392696e4813f1d3a92c7eeed333248914ba6dae
  469. > Building evil-indent-plus...
  470. INFO Scraping 1 files for loaddefs...
  471. INFO Scraping 1 files for loaddefs...done
  472. GEN evil-indent-plus-autoloads.el
  473. > Cloning evil-exchange...
  474. - Pinned to 5f0a2d41434c17c6fb02e4f744043775de1c63a2
  475. > Building evil-exchange...
  476. INFO Scraping 1 files for loaddefs...
  477. INFO Scraping 1 files for loaddefs...done
  478. GEN evil-exchange-autoloads.el
  479. > Cloning evil-escape...
  480. - Pinned to 819f1ee1cf3f69a1ae920e6004f2c0baeebbe077
  481. > Building evil-escape...
  482. INFO Scraping 1 files for loaddefs...
  483. INFO Scraping 1 files for loaddefs...done
  484. GEN evil-escape-autoloads.el
  485. > Cloning evil-embrace.el...
  486. - Checked out 3081d37811b6a3dfaaf01d578c7ab7a746c6064d
  487. > Building evil-embrace...
  488. > Building evil-embrace > Cloning embrace.el...
  489. > Building evil-embrace > Building embrace...
  490. > Building evil-embrace > Building embrace > Cloning expand-region.el...
  491. > Building evil-embrace > Building embrace > Building expand-region...
  492. INFO Scraping 28 files for loaddefs...
  493. INFO Scraping 28 files for loaddefs...done
  494. GEN expand-region-autoloads.el
  495. > Building evil-embrace > Building embrace...
  496. INFO Scraping 1 files for loaddefs...
  497. INFO Scraping 1 files for loaddefs...done
  498. GEN embrace-autoloads.el
  499. > Building evil-embrace...
  500. INFO Scraping 1 files for loaddefs...
  501. INFO Scraping 1 files for loaddefs...done
  502. GEN evil-embrace-autoloads.el
  503. > Cloning evil-easymotion...
  504. - Pinned to f96c2ed38ddc07908db7c3c11bcd6285a3e8c2e9
  505. > Building evil-easymotion...
  506. INFO Scraping 1 files for loaddefs...
  507. INFO Scraping 1 files for loaddefs...done
  508. GEN evil-easymotion-autoloads.el
  509. > Cloning evil-args...
  510. - Pinned to a8151556f63c9d45d0c44c8a7ef9e5a542f3cdc7
  511. > Building evil-args...
  512. INFO Scraping 1 files for loaddefs...
  513. INFO Scraping 1 files for loaddefs...done
  514. GEN evil-args-autoloads.el
  515. > Cloning persp-mode.el...
  516. - Checked out 40e9993a9711cba5fb56dfec81a507fabeba9668
  517. > Building persp-mode...
  518. INFO Scraping 1 files for loaddefs...
  519. INFO Scraping 1 files for loaddefs...done
  520. GEN persp-mode-autoloads.el
  521. > Cloning vi-tilde-fringe...
  522. - Pinned to f1597a8d54535bb1d84b442577b2024e6f910308
  523. > Building vi-tilde-fringe...
  524. INFO Scraping 1 files for loaddefs...
  525. INFO Scraping 1 files for loaddefs...done
  526. GEN vi-tilde-fringe-autoloads.el
  527. > Cloning diff-hl...
  528. - Pinned to 65a5de16e21c87b7c12a78a63fc3b57e07c03c86
  529. > Building diff-hl...
  530. INFO Scraping 8 files for loaddefs...
  531. INFO Scraping 8 files for loaddefs...done
  532. GEN diff-hl-autoloads.el
  533. > Cloning evil-goggles...
  534. - Pinned to 34ca276a85f615d2b45e714c9f8b5875bcb676f3
  535. > Building evil-goggles...
  536. INFO Scraping 1 files for loaddefs...
  537. INFO Scraping 1 files for loaddefs...done
  538. GEN evil-goggles-autoloads.el
  539. > Cloning evil-anzu...
  540. - Pinned to d1e98ee6976437164627542909a25c6946497899
  541. > Building evil-anzu...
  542. > Building evil-anzu > Cloning anzu...
  543. - Pinned to d1e98ee6976437164627542909a25c6946497899
  544. > Building evil-anzu > Building anzu...
  545. INFO Scraping 1 files for loaddefs...
  546. INFO Scraping 1 files for loaddefs...done
  547. GEN anzu-autoloads.el
  548. > Building evil-anzu...
  549. INFO Scraping 1 files for loaddefs...
  550. INFO Scraping 1 files for loaddefs...done
  551. > Cloning doom-modeline...
  552. - Pinned to 9d6f0f9635ae722b6bd943a76e996f54443e373f
  553. > Building doom-modeline...
  554. > Building doom-modeline > Cloning nerd-icons.el...
  555. - Pinned to 9d6f0f9635ae722b6bd943a76e996f54443e373f
  556. > Building doom-modeline > Building nerd-icons...
  557. INFO Scraping 3 files for loaddefs...
  558. INFO Scraping 3 files for loaddefs...done
  559. GEN nerd-icons-autoloads.el
  560. > Building doom-modeline > Cloning shrink-path.el...
  561. - Pinned to 9d6f0f9635ae722b6bd943a76e996f54443e373f
  562. > Building doom-modeline > Building shrink-path...
  563. INFO Scraping 1 files for loaddefs...
  564. INFO Scraping 1 files for loaddefs...done
  565. > Building doom-modeline...
  566. INFO Scraping 4 files for loaddefs...
  567. INFO Scraping 4 files for loaddefs...done
  568. GEN doom-modeline-autoloads.el
  569. > Cloning hl-todo...
  570. - Pinned to fb692ec0923bcd98eaa8760127921aca61db8e1e
  571. > Building hl-todo...
  572. INFO Scraping 1 files for loaddefs...
  573. INFO Scraping 1 files for loaddefs...done
  574. GEN hl-todo-autoloads.el
  575. > Cloning emacs-solaire-mode...
  576. - Checked out c9334666bd208f3322e6118d30eba1b2438e2bb9
  577. > Building solaire-mode...
  578. INFO Scraping 1 files for loaddefs...
  579. INFO Scraping 1 files for loaddefs...done
  580. GEN solaire-mode-autoloads.el
  581. > Cloning themes (for doom-themes)...
  582. - Checked out 88126db5e63d816533d0372cb99246b842cac74e
  583. > Building doom-themes...
  584. INFO Scraping 83 files for loaddefs...
  585. INFO Scraping 83 files for loaddefs...done
  586. GEN doom-themes-autoloads.el
  587. > Cloning consult-yasnippet...
  588. - Pinned to 834d39acfe8a7d2c304afbe4d649b9372118c756
  589. > Building consult-yasnippet...
  590. > Building consult-yasnippet > Cloning consult...
  591. - Pinned to 834d39acfe8a7d2c304afbe4d649b9372118c756
  592. > Building consult-yasnippet > Building consult...
  593. INFO Scraping 9 files for loaddefs...
  594. INFO Scraping 9 files for loaddefs...done
  595. GEN consult-autoloads.el
  596. > Building consult-yasnippet...
  597. INFO Scraping 1 files for loaddefs...
  598. INFO Scraping 1 files for loaddefs...done
  599. GEN consult-yasnippet-autoloads.el
  600. > Cloning Emacs-wgrep (for wgrep)...
  601. - Checked out 49f09ab9b706d2312cab1199e1eeb1bcd3f27f6f
  602. > Building wgrep...
  603. INFO Scraping 1 files for loaddefs...
  604. INFO Scraping 1 files for loaddefs...done
  605. GEN wgrep-autoloads.el
  606. > Cloning marginalia...
  607. - Pinned to a527fb03b76a2bce1e360c6e73a095e06922c3f3
  608. > Building marginalia...
  609. INFO Scraping 1 files for loaddefs...
  610. INFO Scraping 1 files for loaddefs...done
  611. GEN marginalia-autoloads.el
  612. > Cloning embark (for embark-consult)...
  613. - Checked out d5df0eff182b014ab49328a4dbb1d69eb7faafbd
  614. > Building embark-consult...
  615. > Building embark-consult > Building embark...
  616. INFO Scraping 2 files for loaddefs...
  617. INFO Scraping 2 files for loaddefs...done
  618. GEN embark-autoloads.el
  619. > Building embark-consult...
  620. INFO Scraping 1 files for loaddefs...
  621. INFO Scraping 1 files for loaddefs...done
  622. > Cloning consult-flycheck...
  623. - Pinned to 3bc2141daf8cfad7e4d2e2f78b15d45033f707a5
  624. > Building consult-flycheck...
  625. INFO Scraping 1 files for loaddefs...
  626. INFO Scraping 1 files for loaddefs...done
  627. GEN consult-flycheck-autoloads.el
  628. > Cloning consult-dir...
  629. - Pinned to 4532b8d215d16b0159691ce4dee693e72d71e0ff
  630. > Building consult-dir...
  631. INFO Scraping 1 files for loaddefs...
  632. INFO Scraping 1 files for loaddefs...done
  633. GEN consult-dir-autoloads.el
  634. > Cloning orderless...
  635. - Pinned to c7cb04499d94ee1c17affb29b1cfcd2a45116c97
  636. > Building orderless...
  637. INFO Scraping 2 files for loaddefs...
  638. INFO Scraping 2 files for loaddefs...done
  639. GEN orderless-autoloads.el
  640. > Cloning vertico...
  641. - Pinned to 026a81a9c893b1d73cdbcb12436a0fad3ebdeb5f
  642. > Building vertico...
  643. INFO Scraping 13 files for loaddefs...
  644. INFO Scraping 13 files for loaddefs...done
  645. GEN vertico-autoloads.el
  646. > Cloning yasnippet-capf...
  647. - Pinned to de6446732b106965ea583c9e076770694f7226b8
  648. > Building yasnippet-capf...
  649. INFO Scraping 1 files for loaddefs...
  650. INFO Scraping 1 files for loaddefs...done
  651. GEN yasnippet-capf-autoloads.el
  652. > Cloning cape...
  653. - Pinned to 2e86b6deed2844fc1345ff01bc92c3a849a33778
  654. > Building cape...
  655. INFO Scraping 3 files for loaddefs...
  656. INFO Scraping 3 files for loaddefs...done
  657. GEN cape-autoloads.el
  658. > Cloning corfu...
  659. - Pinned to c302b0526ad9d0c99d1d0639df63f6ca65accfc3
  660. > Building corfu...
  661. INFO Scraping 7 files for loaddefs...
  662. INFO Scraping 7 files for loaddefs...done
  663. GEN corfu-autoloads.el
  664. > Cloning emacs-which-key...
  665. - Checked out 38d4308d1143b61e4004b6e7a940686784e51500
  666. > Building which-key...
  667. INFO Scraping 1 files for loaddefs...
  668. INFO Scraping 1 files for loaddefs...done
  669. GEN which-key-autoloads.el
  670. > Cloning general.el...
  671. - Checked out 826bf2b97a0fb4a34c5eb96ec2b172d682fd548f
  672. > Building general...
  673. INFO Scraping 1 files for loaddefs...
  674. INFO Scraping 1 files for loaddefs...done
  675. GEN general-autoloads.el
  676. > Cloning project...
  677. - Pinned to d193442fca61b41803baf6446e4052ed034869a6
  678. > Building project...
  679. > Building project > Cloning xref...
  680. - Pinned to d193442fca61b41803baf6446e4052ed034869a6
  681. > Building project > Building xref...
  682. INFO Scraping 2 files for loaddefs...
  683. INFO Scraping 2 files for loaddefs...done
  684. GEN xref-autoloads.el
  685. > Building project...
  686. INFO Scraping 2 files for loaddefs...
  687. INFO Scraping 2 files for loaddefs...done
  688. GEN project-autoloads.el
  689. > Cloning projectile...
  690. - Pinned to 55db082cdf7b849335ccf24b7ba5aa2607d6fe93
  691. > Building projectile...
  692. INFO Scraping 1 files for loaddefs...
  693. INFO Scraping 1 files for loaddefs...done
  694. GEN projectile-autoloads.el
  695. > Cloning nongnu (for ws-butler)...
  696. Warning (straight): Could not reset to commit "d3927f6131f215e9cd3e1f747be5a91e5be8ca9a" in repository "nongnu"
  697. Warning (straight): Could not check out branch "elpa/ws-butler" of repository "nongnu"
  698. x The package manager threw an error
  699. x Last 16 lines of straight's error log:
  700. fatal: unable to access 'https://git.savannah.gnu.org/git/emacs/nongnu.git/': The requested URL returned error: 502
  701. [Return code: 128]
  702. $ cd /home/jhin/.config/emacs/.local/straight/repos/
  703. $ git clone --origin origin --no-checkout https\://git.savannah.gnu.org/git/emacs/nongnu.git /home/jhin/.config/emacs/.local/straight/repos/nongnu/ --no-single-branch --branch elpa/ws-butler
  704. Cloning into '/home/jhin/.config/emacs/.local/straight/repos/nongnu'...
  705. fatal: unable to access 'https://git.savannah.gnu.org/git/emacs/nongnu.git/': The requested URL returned error: 502
  706. [Return code: 128]
  707. $ cd /home/jhin/.config/emacs/.local/straight/repos/nongnu/
  708. $ git reset --hard d3927f6131f215e9cd3e1f747be5a91e5be8ca9a
  709. [File error while Setting current directory]
  710. $ cd /home/jhin/.config/emacs/.local/straight/repos/nongnu/
  711. $ git checkout -B elpa/ws-butler origin/elpa/ws-butler
  712. [File error while Setting current directory]
  713. $ cd /home/jhin/.config/emacs/.local/straight/repos/nongnu/
  714. $ git checkout HEAD
  715. [File error while Setting current directory]
  716.  
  717. Error: doom-package-error ("ws-butler" (file-missing "Opening output file" "No such file or directory" "/home/jhin/.config/emacs/.local/state/logs/cli.doom.250331042001.138282.error"))
  718. signal(doom-package-error ("ws-butler" (file-missing "Opening output file" "No such file or directory" "/home/jhin/.config/emacs/.local/state/logs/cli.doom.250331042001.138282.error")))
  719. (condition-case e (let ((straight-vc-git-post-clone-hook (cons #'(lambda (&rest --cl-rest--) "\n\n(fn &key COMMIT &allow-other-keys)" (let* ((commit (car (cdr (plist-member --cl-rest-- ':commit))))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (let* ((pin (and t (cdr (assoc package pinned))))) (if pin (doom-print (doom-print--format (doom-print--class 'item "Pinned to %s") pin)) (if commit (progn (doom-print (doom-print--format (doom-print--class 'item "Checked out %s") commit)))))))))) straight-vc-git-post-clone-hook))) (straight-use-package (intern package)) (if (file-in-directory-p repo-dir straight-base-dir) (progn (let ((try 0)) (while (not (file-directory-p (doom-path repo-dir ".git"))) (if (= try 3) (progn (error "Failed to clone package"))) (doom-print (doom-print--format (doom-print--class 'warn "Failed to clone %S, trying again (attempt #%d)...") package (1+ try))) (delete-directory repo-dir t) (delete-directory build-dir t) (straight-use-package (intern package)) (setq try (1+ try)))) (if doom--system-windows-p (progn (let ((default-directory repo-dir)) (straight--process-run "git" "config" "core.autocrlf" "true"))))))) ((debug error) (signal 'doom-package-error (list package e))))
  720. (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straight--build-dir package))) (if force-p nil (let* ((build (if (plist-member recipe :build) (plist-get recipe :build) t)) (want-byte-compile (or (eq build t) (memq 'compile build))) (want-native-compile (or (eq build t) (memq 'native-compile build)))) (and (eq (car-safe build) :not) (progn (setq want-byte-compile (not want-byte-compile)) (setq want-native-compile (not want-native-compile)))) (if (or (not (featurep 'native-compile)) (not straight--native-comp-available)) (progn (setq want-native-compile nil))) (and (or want-byte-compile want-native-compile) (or (file-newer-than-file-p repo-dir build-dir) (file-exists-p (straight--modified-dir package)) (let* ((outdated nil) (--cl-var-- (doom-files-in build-dir :match "\\.el$" :full t)) (file nil)) (while (consp --cl-var--) (setq file (car --cl-var--)) (if (or (if want-byte-compile (doom-packages--elc-file-outdated-p file)) (if want-native-compile (doom-packages--eln-file-outdated-p file))) (progn (setq outdated t) (if want-native-compile (progn (setq doom-packages--eln-output-expected (cons file doom-packages--eln-output-expected)))))) (setq --cl-var-- (cdr --cl-var--))) outdated)) (puthash package t straight--packages-to-rebuild)))) (if (file-directory-p repo-dir) nil (doom-packages--cli-recipes-update)) (condition-case e (let ((straight-vc-git-post-clone-hook (cons #'(lambda (&rest --cl-rest--) "\n\n(fn &key COMMIT &allow-other-keys)" (let* ((commit (car (cdr (plist-member --cl-rest-- ':commit))))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (let* ((pin (and t (cdr (assoc package pinned))))) (if pin (doom-print (doom-print--format (doom-print--class 'item "Pinned to %s") pin)) (if commit (progn (doom-print (doom-print--format (doom-print--class 'item "Checked out %s") commit)))))))))) straight-vc-git-post-clone-hook))) (straight-use-package (intern package)) (if (file-in-directory-p repo-dir straight-base-dir) (progn (let ((try 0)) (while (not (file-directory-p (doom-path repo-dir ".git"))) (if (= try 3) (progn (error "Failed to clone package"))) (doom-print (doom-print--format (doom-print--class 'warn "Failed to clone %S, trying again (attempt #%d)...") package (1+ try))) (delete-directory repo-dir t) (delete-directory build-dir t) (straight-use-package (intern package)) (setq try (1+ try)))) (if doom--system-windows-p (progn (let ((default-directory repo-dir)) (straight--process-run "git" "config" "core.autocrlf" "true"))))))) ((debug error) (signal 'doom-package-error (list package e)))))
  721. (let* ((--cl-rest-- (append (list :recipe recipe) recipe)) (package (car (cdr (plist-member --cl-rest-- ':package)))) (local-repo (car (cdr (plist-member --cl-rest-- ':local-repo)))) (recipe (car (cdr (plist-member --cl-rest-- ':recipe))))) (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straight--build-dir package))) (if force-p nil (let* ((build (if (plist-member recipe :build) (plist-get recipe :build) t)) (want-byte-compile (or (eq build t) (memq 'compile build))) (want-native-compile (or (eq build t) (memq 'native-compile build)))) (and (eq (car-safe build) :not) (progn (setq want-byte-compile (not want-byte-compile)) (setq want-native-compile (not want-native-compile)))) (if (or (not (featurep 'native-compile)) (not straight--native-comp-available)) (progn (setq want-native-compile nil))) (and (or want-byte-compile want-native-compile) (or (file-newer-than-file-p repo-dir build-dir) (file-exists-p (straight--modified-dir package)) (let* ((outdated nil) (--cl-var-- (doom-files-in build-dir :match "\\.el$" :full t)) (file nil)) (while (consp --cl-var--) (setq file (car --cl-var--)) (if (or (if want-byte-compile (doom-packages--elc-file-outdated-p file)) (if want-native-compile (doom-packages--eln-file-outdated-p file))) (progn (setq outdated t) (if want-native-compile (progn (setq doom-packages--eln-output-expected (cons file doom-packages--eln-output-expected)))))) (setq --cl-var-- (cdr --cl-var--))) outdated)) (puthash package t straight--packages-to-rebuild)))) (if (file-directory-p repo-dir) nil (doom-packages--cli-recipes-update)) (condition-case e (let ((straight-vc-git-post-clone-hook (cons #'(lambda (&rest --cl-rest--) "\n\n(fn &key COMMIT &allow-other-keys)" (let* ((commit (car (cdr (plist-member --cl-rest-- ':commit))))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (let* ((pin (and t (cdr (assoc package pinned))))) (if pin (doom-print (doom-print--format (doom-print--class 'item "Pinned to %s") pin)) (if commit (progn (doom-print (doom-print--format (doom-print--class 'item "Checked out %s") commit)))))))))) straight-vc-git-post-clone-hook))) (straight-use-package (intern package)) (if (file-in-directory-p repo-dir straight-base-dir) (progn (let ((try 0)) (while (not (file-directory-p (doom-path repo-dir ".git"))) (if (= try 3) (progn (error "Failed to clone package"))) (doom-print (doom-print--format (doom-print--class 'warn "Failed to clone %S, trying again (attempt #%d)...") package (1+ try))) (delete-directory repo-dir t) (delete-directory build-dir t) (straight-use-package (intern package)) (setq try (1+ try)))) (if doom--system-windows-p (progn (let ((default-directory repo-dir)) (straight--process-run "git" "config" "core.autocrlf" "true"))))))) ((debug error) (signal 'doom-package-error (list package e))))))
  722. (cl-destructuring-bind (&key package local-repo recipe &allow-other-keys) (append (list :recipe recipe) recipe) (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straight--build-dir package))) (if force-p nil (let* ((build (if (plist-member recipe :build) (plist-get recipe :build) t)) (want-byte-compile (or (eq build t) (memq 'compile build))) (want-native-compile (or (eq build t) (memq 'native-compile build)))) (and (eq (car-safe build) :not) (progn (setq want-byte-compile (not want-byte-compile)) (setq want-native-compile (not want-native-compile)))) (if (or (not (featurep 'native-compile)) (not straight--native-comp-available)) (progn (setq want-native-compile nil))) (and (or want-byte-compile want-native-compile) (or (file-newer-than-file-p repo-dir build-dir) (file-exists-p (straight--modified-dir package)) (let* ((outdated nil) (--cl-var-- (doom-files-in build-dir :match "\\.el$" :full t)) (file nil)) (while (consp --cl-var--) (setq file (car --cl-var--)) (if (or (if want-byte-compile (doom-packages--elc-file-outdated-p file)) (if want-native-compile (doom-packages--eln-file-outdated-p file))) (progn (setq outdated t) (if want-native-compile (progn (setq doom-packages--eln-output-expected (cons file doom-packages--eln-output-expected)))))) (setq --cl-var-- (cdr --cl-var--))) outdated)) (puthash package t straight--packages-to-rebuild)))) (if (file-directory-p repo-dir) nil (doom-packages--cli-recipes-update)) (condition-case e (let ((straight-vc-git-post-clone-hook (cons #'(lambda (&rest --cl-rest--) "\n\n(fn &key COMMIT &allow-other-keys)" (let* ((commit (car (cdr (plist-member --cl-rest-- ':commit))))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (let* ((pin (and t (cdr (assoc package pinned))))) (if pin (doom-print (doom-print--format (doom-print--class 'item "Pinned to %s") pin)) (if commit (progn (doom-print (doom-print--format (doom-print--class 'item "Checked out %s") commit)))))))))) straight-vc-git-post-clone-hook))) (straight-use-package (intern package)) (if (file-in-directory-p repo-dir straight-base-dir) (progn (let ((try 0)) (while (not (file-directory-p (doom-path repo-dir ".git"))) (if (= try 3) (progn (error "Failed to clone package"))) (doom-print (doom-print--format (doom-print--class 'warn "Failed to clone %S, trying again (attempt #%d)...") package (1+ try))) (delete-directory repo-dir t) (delete-directory build-dir t) (straight-use-package (intern package)) (setq try (1+ try)))) (if doom--system-windows-p (progn (let ((default-directory repo-dir)) (straight--process-run "git" "config" "core.autocrlf" "true"))))))) ((debug error) (signal 'doom-package-error (list package e))))))
  723. (straight--with-plist (append (list :recipe recipe) recipe) (package local-repo recipe) (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straight--build-dir package))) (if force-p nil (let* ((build (if (plist-member recipe :build) (plist-get recipe :build) t)) (want-byte-compile (or (eq build t) (memq 'compile build))) (want-native-compile (or (eq build t) (memq 'native-compile build)))) (and (eq (car-safe build) :not) (progn (setq want-byte-compile (not want-byte-compile)) (setq want-native-compile (not want-native-compile)))) (if (or (not (featurep 'native-compile)) (not straight--native-comp-available)) (progn (setq want-native-compile nil))) (and (or want-byte-compile want-native-compile) (or (file-newer-than-file-p repo-dir build-dir) (file-exists-p (straight--modified-dir package)) (let* ((outdated nil) (--cl-var-- (doom-files-in build-dir :match "\\.el$" :full t)) (file nil)) (while (consp --cl-var--) (setq file (car --cl-var--)) (if (or (if want-byte-compile (doom-packages--elc-file-outdated-p file)) (if want-native-compile (doom-packages--eln-file-outdated-p file))) (progn (setq outdated t) (if want-native-compile (progn (setq doom-packages--eln-output-expected (cons file doom-packages--eln-output-expected)))))) (setq --cl-var-- (cdr --cl-var--))) outdated)) (puthash package t straight--packages-to-rebuild)))) (if (file-directory-p repo-dir) nil (doom-packages--cli-recipes-update)) (condition-case e (let ((straight-vc-git-post-clone-hook (cons #'(lambda (&rest --cl-rest--) "\n\n(fn &key COMMIT &allow-other-keys)" (let* ((commit (car (cdr (plist-member --cl-rest-- ':commit))))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (let* ((pin (and t (cdr (assoc package pinned))))) (if pin (doom-print (doom-print--format (doom-print--class 'item "Pinned to %s") pin)) (if commit (progn (doom-print (doom-print--format (doom-print--class 'item "Checked out %s") commit)))))))))) straight-vc-git-post-clone-hook))) (straight-use-package (intern package)) (if (file-in-directory-p repo-dir straight-base-dir) (progn (let ((try 0)) (while (not (file-directory-p (doom-path repo-dir ".git"))) (if (= try 3) (progn (error "Failed to clone package"))) (doom-print (doom-print--format (doom-print--class 'warn "Failed to clone %S, trying again (attempt #%d)...") package (1+ try))) (delete-directory repo-dir t) (delete-directory build-dir t) (straight-use-package (intern package)) (setq try (1+ try)))) (if doom--system-windows-p (progn (let ((default-directory repo-dir)) (straight--process-run "git" "config" "core.autocrlf" "true"))))))) ((debug error) (signal 'doom-package-error (list package e))))))
  724. (let ((recipe (car tail))) (straight--with-plist (append (list :recipe recipe) recipe) (package local-repo recipe) (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straight--build-dir package))) (if force-p nil (let* ((build (if (plist-member recipe :build) (plist-get recipe :build) t)) (want-byte-compile (or (eq build t) (memq 'compile build))) (want-native-compile (or (eq build t) (memq 'native-compile build)))) (and (eq (car-safe build) :not) (progn (setq want-byte-compile (not want-byte-compile)) (setq want-native-compile (not want-native-compile)))) (if (or (not (featurep 'native-compile)) (not straight--native-comp-available)) (progn (setq want-native-compile nil))) (and (or want-byte-compile want-native-compile) (or (file-newer-than-file-p repo-dir build-dir) (file-exists-p (straight--modified-dir package)) (let* ((outdated nil) (--cl-var-- (doom-files-in build-dir :match "\\.el$" :full t)) (file nil)) (while (consp --cl-var--) (setq file (car --cl-var--)) (if (or (if want-byte-compile (doom-packages--elc-file-outdated-p file)) (if want-native-compile (doom-packages--eln-file-outdated-p file))) (progn (setq outdated t) (if want-native-compile (progn (setq doom-packages--eln-output-expected (cons file doom-packages--eln-output-expected)))))) (setq --cl-var-- (cdr --cl-var--))) outdated)) (puthash package t straight--packages-to-rebuild)))) (if (file-directory-p repo-dir) nil (doom-packages--cli-recipes-update)) (condition-case e (let ((straight-vc-git-post-clone-hook (cons #'(lambda (&rest --cl-rest--) "\n\n(fn &key COMMIT &allow-other-keys)" (let* ((commit (car (cdr (plist-member --cl-rest-- ':commit))))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (let* ((pin (and t (cdr (assoc package pinned))))) (if pin (doom-print (doom-print--format (doom-print--class 'item "Pinned to %s") pin)) (if commit (progn (doom-print (doom-print--format (doom-print--class 'item "Checked out %s") commit)))))))))) straight-vc-git-post-clone-hook))) (straight-use-package (intern package)) (if (file-in-directory-p repo-dir straight-base-dir) (progn (let ((try 0)) (while (not (file-directory-p (doom-path repo-dir ".git"))) (if (= try 3) (progn (error "Failed to clone package"))) (doom-print (doom-print--format (doom-print--class 'warn "Failed to clone %S, trying again (attempt #%d)...") package (1+ try))) (delete-directory repo-dir t) (delete-directory build-dir t) (straight-use-package (intern package)) (setq try (1+ try)))) (if doom--system-windows-p (progn (let ((default-directory repo-dir)) (straight--process-run "git" "config" "core.autocrlf" "true"))))))) ((debug error) (signal 'doom-package-error (list package e)))))) (setq tail (cdr tail)))
  725. (while tail (let ((recipe (car tail))) (straight--with-plist (append (list :recipe recipe) recipe) (package local-repo recipe) (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straight--build-dir package))) (if force-p nil (let* ((build (if (plist-member recipe :build) (plist-get recipe :build) t)) (want-byte-compile (or (eq build t) (memq 'compile build))) (want-native-compile (or (eq build t) (memq 'native-compile build)))) (and (eq (car-safe build) :not) (progn (setq want-byte-compile (not want-byte-compile)) (setq want-native-compile (not want-native-compile)))) (if (or (not (featurep 'native-compile)) (not straight--native-comp-available)) (progn (setq want-native-compile nil))) (and (or want-byte-compile want-native-compile) (or (file-newer-than-file-p repo-dir build-dir) (file-exists-p (straight--modified-dir package)) (let* ((outdated nil) (--cl-var-- (doom-files-in build-dir :match "\\.el$" :full t)) (file nil)) (while (consp --cl-var--) (setq file (car --cl-var--)) (if (or (if want-byte-compile (doom-packages--elc-file-outdated-p file)) (if want-native-compile (doom-packages--eln-file-outdated-p file))) (progn (setq outdated t) (if want-native-compile (progn (setq doom-packages--eln-output-expected (cons file doom-packages--eln-output-expected)))))) (setq --cl-var-- (cdr --cl-var--))) outdated)) (puthash package t straight--packages-to-rebuild)))) (if (file-directory-p repo-dir) nil (doom-packages--cli-recipes-update)) (condition-case e (let ((straight-vc-git-post-clone-hook (cons #'(lambda (&rest --cl-rest--) "\n\n(fn &key COMMIT &allow-other-keys)" (let* ((commit (car (cdr (plist-member --cl-rest-- ':commit))))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (let* ((pin (and t (cdr (assoc package pinned))))) (if pin (doom-print (doom-print--format (doom-print--class 'item "Pinned to %s") pin)) (if commit (progn (doom-print (doom-print--format (doom-print--class 'item "Checked out %s") commit)))))))))) straight-vc-git-post-clone-hook))) (straight-use-package (intern package)) (if (file-in-directory-p repo-dir straight-base-dir) (progn (let ((try 0)) (while (not (file-directory-p (doom-path repo-dir ".git"))) (if (= try 3) (progn (error "Failed to clone package"))) (doom-print (doom-print--format (doom-print--class 'warn "Failed to clone %S, trying again (attempt #%d)...") package (1+ try))) (delete-directory repo-dir t) (delete-directory build-dir t) (straight-use-package (intern package)) (setq try (1+ try)))) (if doom--system-windows-p (progn (let ((default-directory repo-dir)) (straight--process-run "git" "config" "core.autocrlf" "true"))))))) ((debug error) (signal 'doom-package-error (list package e)))))) (setq tail (cdr tail))))
  726. (let ((tail recipes)) (while tail (let ((recipe (car tail))) (straight--with-plist (append (list :recipe recipe) recipe) (package local-repo recipe) (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straight--build-dir package))) (if force-p nil (let* ((build (if (plist-member recipe :build) (plist-get recipe :build) t)) (want-byte-compile (or (eq build t) (memq 'compile build))) (want-native-compile (or (eq build t) (memq 'native-compile build)))) (and (eq (car-safe build) :not) (progn (setq want-byte-compile (not want-byte-compile)) (setq want-native-compile (not want-native-compile)))) (if (or (not (featurep 'native-compile)) (not straight--native-comp-available)) (progn (setq want-native-compile nil))) (and (or want-byte-compile want-native-compile) (or (file-newer-than-file-p repo-dir build-dir) (file-exists-p (straight--modified-dir package)) (let* ((outdated nil) (--cl-var-- (doom-files-in build-dir :match "\\.el$" :full t)) (file nil)) (while (consp --cl-var--) (setq file (car --cl-var--)) (if (or (if want-byte-compile (doom-packages--elc-file-outdated-p file)) (if want-native-compile (doom-packages--eln-file-outdated-p file))) (progn (setq outdated t) (if want-native-compile (progn (setq doom-packages--eln-output-expected (cons file doom-packages--eln-output-expected)))))) (setq --cl-var-- (cdr --cl-var--))) outdated)) (puthash package t straight--packages-to-rebuild)))) (if (file-directory-p repo-dir) nil (doom-packages--cli-recipes-update)) (condition-case e (let ((straight-vc-git-post-clone-hook (cons #'(lambda (&rest --cl-rest--) "\n\n(fn &key COMMIT &allow-other-keys)" (let* ((commit (car (cdr (plist-member --cl-rest-- ':commit))))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (let* ((pin (and t (cdr (assoc package pinned))))) (if pin (doom-print (doom-print--format (doom-print--class 'item "Pinned to %s") pin)) (if commit (progn (doom-print (doom-print--format (doom-print--class 'item "Checked out %s") commit)))))))))) straight-vc-git-post-clone-hook))) (straight-use-package (intern package)) (if (file-in-directory-p repo-dir straight-base-dir) (progn (let ((try 0)) (while (not (file-directory-p (doom-path repo-dir ".git"))) (if (= try 3) (progn (error "Failed to clone package"))) (doom-print (doom-print--format (doom-print--class 'warn "Failed to clone %S, trying again (attempt #%d)...") package (1+ try))) (delete-directory repo-dir t) (delete-directory build-dir t) (straight-use-package (intern package)) (setq try (1+ try)))) (if doom--system-windows-p (progn (let ((default-directory repo-dir)) (straight--process-run "git" "config" "core.autocrlf" "true"))))))) ((debug error) (signal 'doom-package-error (list package e)))))) (setq tail (cdr tail)))) (nreverse built))
  727. (let* ((recipes recipes) (built nil) (straight-use-package-pre-build-functions (cons #'(lambda (pkg &rest _) (setq built (if (member pkg built) built (cons pkg built)))) straight-use-package-pre-build-functions))) (let ((tail recipes)) (while tail (let ((recipe (car tail))) (straight--with-plist (append (list :recipe recipe) recipe) (package local-repo recipe) (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straight--build-dir package))) (if force-p nil (let* ((build (if (plist-member recipe :build) (plist-get recipe :build) t)) (want-byte-compile (or (eq build t) (memq 'compile build))) (want-native-compile (or (eq build t) (memq 'native-compile build)))) (and (eq (car-safe build) :not) (progn (setq want-byte-compile (not want-byte-compile)) (setq want-native-compile (not want-native-compile)))) (if (or (not (featurep 'native-compile)) (not straight--native-comp-available)) (progn (setq want-native-compile nil))) (and (or want-byte-compile want-native-compile) (or (file-newer-than-file-p repo-dir build-dir) (file-exists-p (straight--modified-dir package)) (let* ((outdated nil) (--cl-var-- (doom-files-in build-dir :match "\\.el$" :full t)) (file nil)) (while (consp --cl-var--) (setq file (car --cl-var--)) (if (or (if want-byte-compile (doom-packages--elc-file-outdated-p file)) (if want-native-compile (doom-packages--eln-file-outdated-p file))) (progn (setq outdated t) (if want-native-compile (progn (setq doom-packages--eln-output-expected (cons file doom-packages--eln-output-expected)))))) (setq --cl-var-- (cdr --cl-var--))) outdated)) (puthash package t straight--packages-to-rebuild)))) (if (file-directory-p repo-dir) nil (doom-packages--cli-recipes-update)) (condition-case e (let ((straight-vc-git-post-clone-hook (cons #'(lambda (&rest --cl-rest--) "\n\n(fn &key COMMIT &allow-other-keys)" (let* ((commit (car (cdr (plist-member --cl-rest-- ':commit))))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (let* ((pin (and t (cdr (assoc package pinned))))) (if pin (doom-print (doom-print--format (doom-print--class 'item "Pinned to %s") pin)) (if commit (progn (doom-print (doom-print--format (doom-print--class 'item "Checked out %s") commit)))))))))) straight-vc-git-post-clone-hook))) (straight-use-package (intern package)) (if (file-in-directory-p repo-dir straight-base-dir) (progn (let ((try 0)) (while (not (file-directory-p (doom-path repo-dir ".git"))) (if (= try 3) (progn (error "Failed to clone package"))) (doom-print (doom-print--format (doom-print--class 'warn "Failed to clone %S, trying again (attempt #%d)...") package (1+ try))) (delete-directory repo-dir t) (delete-directory build-dir t) (straight-use-package (intern package)) (setq try (1+ try)))) (if doom--system-windows-p (progn (let ((default-directory repo-dir)) (straight--process-run "git" "config" "core.autocrlf" "true"))))))) ((debug error) (signal 'doom-package-error (list package e)))))) (setq tail (cdr tail)))) (nreverse built)))
  728. (and t (let* ((recipes recipes) (built nil) (straight-use-package-pre-build-functions (cons #'(lambda (pkg &rest _) (setq built (if (member pkg built) built (cons pkg built)))) straight-use-package-pre-build-functions))) (let ((tail recipes)) (while tail (let ((recipe (car tail))) (straight--with-plist (append (list :recipe recipe) recipe) (package local-repo recipe) (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straight--build-dir package))) (if force-p nil (let* ((build (if (plist-member recipe :build) (plist-get recipe :build) t)) (want-byte-compile (or (eq build t) (memq 'compile build))) (want-native-compile (or (eq build t) (memq 'native-compile build)))) (and (eq (car-safe build) :not) (progn (setq want-byte-compile (not want-byte-compile)) (setq want-native-compile (not want-native-compile)))) (if (or (not (featurep 'native-compile)) (not straight--native-comp-available)) (progn (setq want-native-compile nil))) (and (or want-byte-compile want-native-compile) (or (file-newer-than-file-p repo-dir build-dir) (file-exists-p (straight--modified-dir package)) (let* ((outdated nil) (--cl-var-- (doom-files-in build-dir :match "\\.el$" :full t)) (file nil)) (while (consp --cl-var--) (setq file (car --cl-var--)) (if (or (if want-byte-compile (doom-packages--elc-file-outdated-p file)) (if want-native-compile (doom-packages--eln-file-outdated-p file))) (progn (setq outdated t) (if want-native-compile (progn (setq doom-packages--eln-output-expected (cons file doom-packages--eln-output-expected)))))) (setq --cl-var-- (cdr --cl-var--))) outdated)) (puthash package t straight--packages-to-rebuild)))) (if (file-directory-p repo-dir) nil (doom-packages--cli-recipes-update)) (condition-case e (let ((straight-vc-git-post-clone-hook (cons #'(lambda (&rest --cl-rest--) "\n\n(fn &key COMMIT &allow-other-keys)" (let* ((commit (car (cdr (plist-member --cl-rest-- ':commit))))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (let* ((pin (and t (cdr (assoc package pinned))))) (if pin (doom-print (doom-print--format (doom-print--class 'item "Pinned to %s") pin)) (if commit (progn (doom-print (doom-print--format (doom-print--class 'item "Checked out %s") commit)))))))))) straight-vc-git-post-clone-hook))) (straight-use-package (intern package)) (if (file-in-directory-p repo-dir straight-base-dir) (progn (let ((try 0)) (while (not (file-directory-p (doom-path repo-dir ".git"))) (if (= try 3) (progn (error "Failed to clone package"))) (doom-print (doom-print--format (doom-print--class 'warn "Failed to clone %S, trying again (attempt #%d)...") package (1+ try))) (delete-directory repo-dir t) (delete-directory build-dir t) (straight-use-package (intern package)) (setq try (1+ try)))) (if doom--system-windows-p (progn (let ((default-directory repo-dir)) (straight--process-run "git" "config" "core.autocrlf" "true"))))))) ((debug error) (signal 'doom-package-error (list package e)))))) (setq tail (cdr tail)))) (nreverse built))))
  729. (let* ((built (and t (let* ((recipes recipes) (built nil) (straight-use-package-pre-build-functions (cons #'(lambda (pkg &rest _) (setq built (if (member pkg built) built (cons pkg built)))) straight-use-package-pre-build-functions))) (let ((tail recipes)) (while tail (let ((recipe (car tail))) (straight--with-plist (append (list :recipe recipe) recipe) (package local-repo recipe) (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straight--build-dir package))) (if force-p nil (let* ((build (if (plist-member recipe :build) (plist-get recipe :build) t)) (want-byte-compile (or (eq build t) (memq 'compile build))) (want-native-compile (or (eq build t) (memq 'native-compile build)))) (and (eq (car-safe build) :not) (progn (setq want-byte-compile (not want-byte-compile)) (setq want-native-compile (not want-native-compile)))) (if (or (not (featurep 'native-compile)) (not straight--native-comp-available)) (progn (setq want-native-compile nil))) (and (or want-byte-compile want-native-compile) (or (file-newer-than-file-p repo-dir build-dir) (file-exists-p (straight--modified-dir package)) (let* ((outdated nil) (--cl-var-- (doom-files-in build-dir :match "\\.el$" :full t)) (file nil)) (while (consp --cl-var--) (setq file (car --cl-var--)) (if (or (if want-byte-compile (doom-packages--elc-file-outdated-p file)) (if want-native-compile (doom-packages--eln-file-outdated-p file))) (progn (setq outdated t) (if want-native-compile (progn (setq doom-packages--eln-output-expected (cons file doom-packages--eln-output-expected)))))) (setq --cl-var-- (cdr --cl-var--))) outdated)) (puthash package t straight--packages-to-rebuild)))) (if (file-directory-p repo-dir) nil (doom-packages--cli-recipes-update)) (condition-case e (let ((straight-vc-git-post-clone-hook (cons #'(lambda (&rest --cl-rest--) "\n\n(fn &key COMMIT &allow-other-keys)" (let* ((commit (car (cdr (plist-member --cl-rest-- ':commit))))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (let* ((pin (and t (cdr (assoc package pinned))))) (if pin (doom-print (doom-print--format (doom-print--class 'item "Pinned to %s") pin)) (if commit (progn (doom-print (doom-print--format (doom-print--class 'item "Checked out %s") commit)))))))))) straight-vc-git-post-clone-hook))) (straight-use-package (intern package)) (if (file-in-directory-p repo-dir straight-base-dir) (progn (let ((try 0)) (while (not (file-directory-p (doom-path repo-dir ".git"))) (if (= try 3) (progn (error "Failed to clone package"))) (doom-print (doom-print--format (doom-print--class 'warn "Failed to clone %S, trying again (attempt #%d)...") package (1+ try))) (delete-directory repo-dir t) (delete-directory build-dir t) (straight-use-package (intern package)) (setq try (1+ try)))) (if doom--system-windows-p (progn (let ((default-directory repo-dir)) (straight--process-run "git" "config" "core.autocrlf" "true"))))))) ((debug error) (signal 'doom-package-error (list package e)))))) (setq tail (cdr tail)))) (nreverse built)))))) (if built (progn (if (and (featurep 'native-compile) straight--native-comp-available) (progn (doom-packages--compile-site-files) (doom-packages--wait-for-native-compile-jobs) (doom-packages--write-missing-eln-errors))) (delete-directory (straight--modified-dir) 'recursive) (doom-print (doom-print--format (doom-print--class 'success "\15Built %d package(s)") (length built)))) (doom-print (doom-print--format (doom-print--class 'item "No packages need attention"))) nil))
  730. (let ((straight-check-for-modifications (if (file-directory-p (straight--modified-dir)) (progn '(find-when-checking)))) (straight--allow-find (and straight-check-for-modifications (executable-find straight-find-executable) t)) (straight--packages-not-to-rebuild (or straight--packages-not-to-rebuild (make-hash-table :test #'equal))) (straight--packages-to-rebuild (or (if force-p :all straight--packages-to-rebuild) (make-hash-table :test #'equal))) (recipes (doom-package-recipe-alist)) (pinned (doom-package-pinned-alist))) (add-hook 'native-comp-async-cu-done-functions #'doom-packages--native-compile-done-h) (straight--make-build-cache-available) (let* ((built (and t (let* ((recipes recipes) (built nil) (straight-use-package-pre-build-functions (cons #'(lambda (pkg &rest _) (setq built (if (member pkg built) built (cons pkg built)))) straight-use-package-pre-build-functions))) (let ((tail recipes)) (while tail (let ((recipe (car tail))) (straight--with-plist (append (list :recipe recipe) recipe) (package local-repo recipe) (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straight--build-dir package))) (if force-p nil (let* ((build (if (plist-member recipe :build) (plist-get recipe :build) t)) (want-byte-compile (or (eq build t) (memq 'compile build))) (want-native-compile (or (eq build t) (memq 'native-compile build)))) (and (eq (car-safe build) :not) (progn (setq want-byte-compile (not want-byte-compile)) (setq want-native-compile (not want-native-compile)))) (if (or (not (featurep 'native-compile)) (not straight--native-comp-available)) (progn (setq want-native-compile nil))) (and (or want-byte-compile want-native-compile) (or (file-newer-than-file-p repo-dir build-dir) (file-exists-p (straight--modified-dir package)) (let* ((outdated nil) (--cl-var-- (doom-files-in build-dir :match "\\.el$" :full t)) (file nil)) (while (consp --cl-var--) (setq file (car --cl-var--)) (if (or (if want-byte-compile (doom-packages--elc-file-outdated-p file)) (if want-native-compile (doom-packages--eln-file-outdated-p file))) (progn (setq outdated t) (if want-native-compile (progn (setq doom-packages--eln-output-expected (cons file doom-packages--eln-output-expected)))))) (setq --cl-var-- (cdr --cl-var--))) outdated)) (puthash package t straight--packages-to-rebuild)))) (if (file-directory-p repo-dir) nil (doom-packages--cli-recipes-update)) (condition-case e (let ((straight-vc-git-post-clone-hook (cons #'(lambda (&rest --cl-rest--) "\n\n(fn &key COMMIT &allow-other-keys)" (let* ((commit (car (cdr (plist-member --cl-rest-- ':commit))))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (let* ((pin (and t (cdr (assoc package pinned))))) (if pin (doom-print (doom-print--format (doom-print--class 'item "Pinned to %s") pin)) (if commit (progn (doom-print (doom-print--format (doom-print--class 'item "Checked out %s") commit)))))))))) straight-vc-git-post-clone-hook))) (straight-use-package (intern package)) (if (file-in-directory-p repo-dir straight-base-dir) (progn (let ((try 0)) (while (not (file-directory-p (doom-path repo-dir ".git"))) (if (= try 3) (progn (error "Failed to clone package"))) (doom-print (doom-print--format (doom-print--class 'warn "Failed to clone %S, trying again (attempt #%d)...") package (1+ try))) (delete-directory repo-dir t) (delete-directory build-dir t) (straight-use-package (intern package)) (setq try (1+ try)))) (if doom--system-windows-p (progn (let ((default-directory repo-dir)) (straight--process-run "git" "config" "core.autocrlf" "true"))))))) ((debug error) (signal 'doom-package-error (list package e)))))) (setq tail (cdr tail)))) (nreverse built)))))) (if built (progn (if (and (featurep 'native-compile) straight--native-comp-available) (progn (doom-packages--compile-site-files) (doom-packages--wait-for-native-compile-jobs) (doom-packages--write-missing-eln-errors))) (delete-directory (straight--modified-dir) 'recursive) (doom-print (doom-print--format (doom-print--class 'success "\15Built %d package(s)") (length built)))) (doom-print (doom-print--format (doom-print--class 'item "No packages need attention"))) nil)))
  731. (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (let ((straight-check-for-modifications (if (file-directory-p (straight--modified-dir)) (progn '(find-when-checking)))) (straight--allow-find (and straight-check-for-modifications (executable-find straight-find-executable) t)) (straight--packages-not-to-rebuild (or straight--packages-not-to-rebuild (make-hash-table :test #'equal))) (straight--packages-to-rebuild (or (if force-p :all straight--packages-to-rebuild) (make-hash-table :test #'equal))) (recipes (doom-package-recipe-alist)) (pinned (doom-package-pinned-alist))) (add-hook 'native-comp-async-cu-done-functions #'doom-packages--native-compile-done-h) (straight--make-build-cache-available) (let* ((built (and t (let* ((recipes recipes) (built nil) (straight-use-package-pre-build-functions (cons #'(lambda (pkg &rest _) (setq built (if (member pkg built) built (cons pkg built)))) straight-use-package-pre-build-functions))) (let ((tail recipes)) (while tail (let ((recipe (car tail))) (straight--with-plist (append (list :recipe recipe) recipe) (package local-repo recipe) (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straight--build-dir package))) (if force-p nil (let* ((build (if (plist-member recipe :build) (plist-get recipe :build) t)) (want-byte-compile (or (eq build t) (memq 'compile build))) (want-native-compile (or (eq build t) (memq 'native-compile build)))) (and (eq (car-safe build) :not) (progn (setq want-byte-compile (not want-byte-compile)) (setq want-native-compile (not want-native-compile)))) (if (or (not (featurep 'native-compile)) (not straight--native-comp-available)) (progn (setq want-native-compile nil))) (and (or want-byte-compile want-native-compile) (or (file-newer-than-file-p repo-dir build-dir) (file-exists-p (straight--modified-dir package)) (let* ((outdated nil) (--cl-var-- (doom-files-in build-dir :match "\\.el$" :full t)) (file nil)) (while (consp --cl-var--) (setq file (car --cl-var--)) (if (or (if want-byte-compile (doom-packages--elc-file-outdated-p file)) (if want-native-compile (doom-packages--eln-file-outdated-p file))) (progn (setq outdated t) (if want-native-compile (progn (setq doom-packages--eln-output-expected (cons file doom-packages--eln-output-expected)))))) (setq --cl-var-- (cdr --cl-var--))) outdated)) (puthash package t straight--packages-to-rebuild)))) (if (file-directory-p repo-dir) nil (doom-packages--cli-recipes-update)) (condition-case e (let ((straight-vc-git-post-clone-hook (cons #'(lambda (&rest --cl-rest--) "\n\n(fn &key COMMIT &allow-other-keys)" (let* ((commit (car (cdr (plist-member --cl-rest-- ':commit))))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (let* ((pin (and t (cdr (assoc package pinned))))) (if pin (doom-print (doom-print--format (doom-print--class 'item "Pinned to %s") pin)) (if commit (progn (doom-print (doom-print--format (doom-print--class 'item "Checked out %s") commit)))))))))) straight-vc-git-post-clone-hook))) (straight-use-package (intern package)) (if (file-in-directory-p repo-dir straight-base-dir) (progn (let ((try 0)) (while (not (file-directory-p (doom-path repo-dir ".git"))) (if (= try 3) (progn (error "Failed to clone package"))) (doom-print (doom-print--format (doom-print--class 'warn "Failed to clone %S, trying again (attempt #%d)...") package (1+ try))) (delete-directory repo-dir t) (delete-directory build-dir t) (straight-use-package (intern package)) (setq try (1+ try)))) (if doom--system-windows-p (progn (let ((default-directory repo-dir)) (straight--process-run "git" "config" "core.autocrlf" "true"))))))) ((debug error) (signal 'doom-package-error (list package e)))))) (setq tail (cdr tail)))) (nreverse built)))))) (if built (progn (if (and (featurep 'native-compile) straight--native-comp-available) (progn (doom-packages--compile-site-files) (doom-packages--wait-for-native-compile-jobs) (doom-packages--write-missing-eln-errors))) (delete-directory (straight--modified-dir) 'recursive) (doom-print (doom-print--format (doom-print--class 'success "\15Built %d package(s)") (length built)))) (doom-print (doom-print--format (doom-print--class 'item "No packages need attention"))) nil))))
  732. (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (let ((straight-check-for-modifications (if (file-directory-p (straight--modified-dir)) (progn '(find-when-checking)))) (straight--allow-find (and straight-check-for-modifications (executable-find straight-find-executable) t)) (straight--packages-not-to-rebuild (or straight--packages-not-to-rebuild (make-hash-table :test #'equal))) (straight--packages-to-rebuild (or (if force-p :all straight--packages-to-rebuild) (make-hash-table :test #'equal))) (recipes (doom-package-recipe-alist)) (pinned (doom-package-pinned-alist))) (add-hook 'native-comp-async-cu-done-functions #'doom-packages--native-compile-done-h) (straight--make-build-cache-available) (let* ((built (and t (let* ((recipes recipes) (built nil) (straight-use-package-pre-build-functions (cons #'(lambda (pkg &rest _) (setq built (if (member pkg built) built (cons pkg built)))) straight-use-package-pre-build-functions))) (let ((tail recipes)) (while tail (let ((recipe (car tail))) (straight--with-plist (append (list :recipe recipe) recipe) (package local-repo recipe) (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straight--build-dir package))) (if force-p nil (let* ((build (if (plist-member recipe :build) (plist-get recipe :build) t)) (want-byte-compile (or (eq build t) (memq 'compile build))) (want-native-compile (or (eq build t) (memq 'native-compile build)))) (and (eq (car-safe build) :not) (progn (setq want-byte-compile (not want-byte-compile)) (setq want-native-compile (not want-native-compile)))) (if (or (not (featurep 'native-compile)) (not straight--native-comp-available)) (progn (setq want-native-compile nil))) (and (or want-byte-compile want-native-compile) (or (file-newer-than-file-p repo-dir build-dir) (file-exists-p (straight--modified-dir package)) (let* ((outdated nil) (--cl-var-- (doom-files-in build-dir :match "\\.el$" :full t)) (file nil)) (while (consp --cl-var--) (setq file (car --cl-var--)) (if (or (if want-byte-compile (doom-packages--elc-file-outdated-p file)) (if want-native-compile (doom-packages--eln-file-outdated-p file))) (progn (setq outdated t) (if want-native-compile (progn (setq doom-packages--eln-output-expected (cons file doom-packages--eln-output-expected)))))) (setq --cl-var-- (cdr --cl-var--))) outdated)) (puthash package t straight--packages-to-rebuild)))) (if (file-directory-p repo-dir) nil (doom-packages--cli-recipes-update)) (condition-case e (let ((straight-vc-git-post-clone-hook (cons #'(lambda (&rest --cl-rest--) "\n\n(fn &key COMMIT &allow-other-keys)" (let* ((commit (car (cdr (plist-member --cl-rest-- ':commit))))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (let* ((pin (and t (cdr (assoc package pinned))))) (if pin (doom-print (doom-print--format (doom-print--class 'item "Pinned to %s") pin)) (if commit (progn (doom-print (doom-print--format (doom-print--class 'item "Checked out %s") commit)))))))))) straight-vc-git-post-clone-hook))) (straight-use-package (intern package)) (if (file-in-directory-p repo-dir straight-base-dir) (progn (let ((try 0)) (while (not (file-directory-p (doom-path repo-dir ".git"))) (if (= try 3) (progn (error "Failed to clone package"))) (doom-print (doom-print--format (doom-print--class 'warn "Failed to clone %S, trying again (attempt #%d)...") package (1+ try))) (delete-directory repo-dir t) (delete-directory build-dir t) (straight-use-package (intern package)) (setq try (1+ try)))) (if doom--system-windows-p (progn (let ((default-directory repo-dir)) (straight--process-run "git" "config" "core.autocrlf" "true"))))))) ((debug error) (signal 'doom-package-error (list package e)))))) (setq tail (cdr tail)))) (nreverse built)))))) (if built (progn (if (and (featurep 'native-compile) straight--native-comp-available) (progn (doom-packages--compile-site-files) (doom-packages--wait-for-native-compile-jobs) (doom-packages--write-missing-eln-errors))) (delete-directory (straight--modified-dir) 'recursive) (doom-print (doom-print--format (doom-print--class 'success "\15Built %d package(s)") (length built)))) (doom-print (doom-print--format (doom-print--class 'item "No packages need attention"))) nil)))))
  733. doom-packages-ensure()
  734. (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-packages-ensure))
  735. (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-packages-ensure)))
  736. (if (eq install? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not installing plugins, as requested"))) (doom-print (doom-print--format (doom-print--class 'start "Installing plugins"))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-packages-ensure))))
  737. (let ((default-directory doom-emacs-dir) (yes? (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 6))))) (if (eq config? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not copying private config template, as requested"))) (if (and (not (file-directory-p doom-user-dir)) (not (getenv "DOOMDIR"))) (progn (let ((xdg-config-dir (or (getenv "XDG_CONFIG_HOME") "~/.config"))) (if (file-in-directory-p doom-emacs-dir xdg-config-dir) (progn (setq doom-user-dir (expand-file-name "doom/" xdg-config-dir))))))) (if (file-directory-p doom-user-dir) (doom-print (doom-print--format (doom-print--class 'item "Skipping %s (already exists)") (doom-print--class 'path doom-user-dir))) (make-directory doom-user-dir 'parents) (doom-print (doom-print--format (doom-print--class 'success "Created %s") (doom-print--class 'path doom-user-dir)))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (mapc #'(lambda (file) (let* ((template file) (filename (if template (car-safe (prog1 template (setq template (cdr template)))) (signal 'wrong-number-of-arguments (list '(filename . template) (length template)))))) (progn (setq filename (doom-path doom-user-dir filename)) (if (file-exists-p filename) (doom-print (doom-print--format (doom-print--class 'item "Skipping %s (already exists)...") (doom-print--class 'path filename))) (doom-print (doom-print--format (doom-print--class 'item "Creating %s...") (doom-print--class 'path filename))) (let ((temp-file filename) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-file-contents template)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (doom-print (doom-print--format (doom-print--class 'success "Done!"))))))) (let ((template-dir (doom-path doom-emacs-dir "static/"))) (list (cons doom-module-init-file (file-name-with-extension (doom-path template-dir doom-module-init-file) ".example.el")) (cons doom-module-config-file (file-name-with-extension (doom-path template-dir doom-module-config-file) ".example.el")) (cons doom-module-packages-file (file-name-with-extension (doom-path template-dir doom-module-packages-file) ".example.el")))))))) (doom-load (doom-path doom-user-dir doom-module-init-file) t) (doom-load (doom-path doom-user-dir "cli.el") t) (if (eq envfile? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not generating envvars file, as requested"))) (if (file-exists-p doom-env-file) (doom-print (doom-print--format (doom-print--class 'item "Envvar file already exists, skipping"))) (if (or yes? (y-or-n-p "Generate an envvar file? (see `doom help env` for details)")) (progn (call! '(env)))))) (if aot? (progn (progn (eval-after-load 'straight #'(lambda nil (setq straight--native-comp-available t)))))) (if (eq install? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not installing plugins, as requested"))) (doom-print (doom-print--format (doom-print--class 'start "Installing plugins"))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-packages-ensure)))) (if (doom-profiles-bootloadable-p) (progn (doom-print (doom-print--format (doom-print--class 'start "Initializing profile bootstrapper..."))) (call! '(profiles sync "--reload")))) (doom-print (doom-print--format (doom-print--class 'start "Synchronizing default profile..."))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-profile-generate))) (if (eq hooks? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not deploying commit-msg and pre-push git hooks, as requested"))) (doom-print (doom-print--format (doom-print--class 'start "Deploying commit-msg and pre-push git hooks"))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (condition-case e (call! (cons 'ci (cons 'deploy-hooks (if yes? '("--force"))))) ('user-error (doom-print (doom-print--format (doom-print--class 'warn "%s") (error-message-string e)))))))) (if (file-exists-p "~/.emacs") (progn (doom-print (doom-print--format (doom-print--class 'warn "A ~/.emacs file was detected. This conflicts with Doom and should be deleted!"))))) (doom-print (doom-print--format (doom-print--class 'success "Finished! Doom is ready to go!\n"))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (doom-path doom-emacs-dir "static/QUICKSTART_INTRO")) (doom-print (doom-print--format "%s" (buffer-string)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))
  738. (let ((aot? (cdr (assq 'aot? alist))) (config? (cdr (assq 'config? alist))) (envfile? (cdr (assq 'envfile? alist))) (install? (cdr (assq 'install? alist))) (fonts? (cdr (assq 'fonts? alist))) (hooks? (cdr (assq 'hooks? alist))) (context (cdr (assq 'context alist)))) (doom-print (doom-print--format (doom-print--style 'green "Installing Doom Emacs!\n"))) (let ((default-directory doom-emacs-dir) (yes? (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 6))))) (if (eq config? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not copying private config template, as requested"))) (if (and (not (file-directory-p doom-user-dir)) (not (getenv "DOOMDIR"))) (progn (let ((xdg-config-dir (or (getenv "XDG_CONFIG_HOME") "~/.config"))) (if (file-in-directory-p doom-emacs-dir xdg-config-dir) (progn (setq doom-user-dir (expand-file-name "doom/" xdg-config-dir))))))) (if (file-directory-p doom-user-dir) (doom-print (doom-print--format (doom-print--class 'item "Skipping %s (already exists)") (doom-print--class 'path doom-user-dir))) (make-directory doom-user-dir 'parents) (doom-print (doom-print--format (doom-print--class 'success "Created %s") (doom-print--class 'path doom-user-dir)))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (mapc #'(lambda (file) (let* ((template file) (filename (if template (car-safe (prog1 template (setq template (cdr template)))) (signal 'wrong-number-of-arguments (list '(filename . template) (length template)))))) (progn (setq filename (doom-path doom-user-dir filename)) (if (file-exists-p filename) (doom-print (doom-print--format (doom-print--class 'item "Skipping %s (already exists)...") (doom-print--class 'path filename))) (doom-print (doom-print--format (doom-print--class 'item "Creating %s...") (doom-print--class 'path filename))) (let ((temp-file filename) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-file-contents template)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (doom-print (doom-print--format (doom-print--class 'success "Done!"))))))) (let ((template-dir (doom-path doom-emacs-dir "static/"))) (list (cons doom-module-init-file (file-name-with-extension (doom-path template-dir doom-module-init-file) ".example.el")) (cons doom-module-config-file (file-name-with-extension (doom-path template-dir doom-module-config-file) ".example.el")) (cons doom-module-packages-file (file-name-with-extension (doom-path template-dir doom-module-packages-file) ".example.el")))))))) (doom-load (doom-path doom-user-dir doom-module-init-file) t) (doom-load (doom-path doom-user-dir "cli.el") t) (if (eq envfile? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not generating envvars file, as requested"))) (if (file-exists-p doom-env-file) (doom-print (doom-print--format (doom-print--class 'item "Envvar file already exists, skipping"))) (if (or yes? (y-or-n-p "Generate an envvar file? (see `doom help env` for details)")) (progn (call! '(env)))))) (if aot? (progn (progn (eval-after-load 'straight #'(lambda nil (setq straight--native-comp-available t)))))) (if (eq install? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not installing plugins, as requested"))) (doom-print (doom-print--format (doom-print--class 'start "Installing plugins"))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-packages-ensure)))) (if (doom-profiles-bootloadable-p) (progn (doom-print (doom-print--format (doom-print--class 'start "Initializing profile bootstrapper..."))) (call! '(profiles sync "--reload")))) (doom-print (doom-print--format (doom-print--class 'start "Synchronizing default profile..."))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-profile-generate))) (if (eq hooks? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not deploying commit-msg and pre-push git hooks, as requested"))) (doom-print (doom-print--format (doom-print--class 'start "Deploying commit-msg and pre-push git hooks"))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (condition-case e (call! (cons 'ci (cons 'deploy-hooks (if yes? '("--force"))))) ('user-error (doom-print (doom-print--format (doom-print--class 'warn "%s") (error-message-string e)))))))) (if (file-exists-p "~/.emacs") (progn (doom-print (doom-print--format (doom-print--class 'warn "A ~/.emacs file was detected. This conflicts with Doom and should be deleted!"))))) (doom-print (doom-print--format (doom-print--class 'success "Finished! Doom is ready to go!\n"))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (doom-path doom-emacs-dir "static/QUICKSTART_INTRO")) (doom-print (doom-print--format "%s" (buffer-string)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))))
  739. #f(lambda (cli alist) [t] (let ((aot? (cdr (assq 'aot? alist))) (config? (cdr (assq 'config? alist))) (envfile? (cdr (assq 'envfile? alist))) (install? (cdr (assq 'install? alist))) (fonts? (cdr (assq 'fonts? alist))) (hooks? (cdr (assq 'hooks? alist))) (context (cdr (assq 'context alist)))) (doom-print (doom-print--format (doom-print--style 'green "Installing Doom Emacs!\n"))) (let ((default-directory doom-emacs-dir) (yes? (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 6))))) (if (eq config? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not copying private config template, as requested"))) (if (and (not (file-directory-p doom-user-dir)) (not (getenv "DOOMDIR"))) (progn (let ((xdg-config-dir (or (getenv "XDG_CONFIG_HOME") "~/.config"))) (if (file-in-directory-p doom-emacs-dir xdg-config-dir) (progn (setq doom-user-dir (expand-file-name "doom/" xdg-config-dir))))))) (if (file-directory-p doom-user-dir) (doom-print (doom-print--format (doom-print--class 'item "Skipping %s (already exists)") (doom-print--class 'path doom-user-dir))) (make-directory doom-user-dir 'parents) (doom-print (doom-print--format (doom-print--class 'success "Created %s") (doom-print--class 'path doom-user-dir)))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (mapc #'(lambda (file) (let* ((template file) (filename (if template (car-safe (prog1 template (setq template (cdr template)))) (signal 'wrong-number-of-arguments (list '(filename . template) (length template)))))) (progn (setq filename (doom-path doom-user-dir filename)) (if (file-exists-p filename) (doom-print (doom-print--format (doom-print--class 'item "Skipping %s (already exists)...") (doom-print--class 'path filename))) (doom-print (doom-print--format (doom-print--class 'item "Creating %s...") (doom-print--class 'path filename))) (let ((temp-file filename) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-file-contents template)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (doom-print (doom-print--format (doom-print--class 'success "Done!"))))))) (let ((template-dir (doom-path doom-emacs-dir "static/"))) (list (cons doom-module-init-file (file-name-with-extension (doom-path template-dir doom-module-init-file) ".example.el")) (cons doom-module-config-file (file-name-with-extension (doom-path template-dir doom-module-config-file) ".example.el")) (cons doom-module-packages-file (file-name-with-extension (doom-path template-dir doom-module-packages-file) ".example.el")))))))) (doom-load (doom-path doom-user-dir doom-module-init-file) t) (doom-load (doom-path doom-user-dir "cli.el") t) (if (eq envfile? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not generating envvars file, as requested"))) (if (file-exists-p doom-env-file) (doom-print (doom-print--format (doom-print--class 'item "Envvar file already exists, skipping"))) (if (or yes? (y-or-n-p "Generate an envvar file? (see `doom help env` for details)")) (progn (call! '(env)))))) (if aot? (progn (progn (eval-after-load 'straight #'(lambda nil (setq straight--native-comp-available t)))))) (if (eq install? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not installing plugins, as requested"))) (doom-print (doom-print--format (doom-print--class 'start "Installing plugins"))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-packages-ensure)))) (if (doom-profiles-bootloadable-p) (progn (doom-print (doom-print--format (doom-print--class 'start "Initializing profile bootstrapper..."))) (call! '(profiles sync "--reload")))) (doom-print (doom-print--format (doom-print--class 'start "Synchronizing default profile..."))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-profile-generate))) (if (eq hooks? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not deploying commit-msg and pre-push git hooks, as requested"))) (doom-print (doom-print--format (doom-print--class 'start "Deploying commit-msg and pre-push git hooks"))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (condition-case e (call! (cons 'ci (cons 'deploy-hooks (if yes? '("--force"))))) ('user-error (doom-print (doom-print--format (doom-print--class 'warn "%s") (error-message-string e)))))))) (if (file-exists-p "~/.emacs") (progn (doom-print (doom-print--format (doom-print--class 'warn "A ~/.emacs file was detected. This conflicts with Doom and should be deleted!"))))) (doom-print (doom-print--format (doom-print--class 'success "Finished! Doom is ready to go!\n"))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (doom-path doom-emacs-dir "static/QUICKSTART_INTRO")) (doom-print (doom-print--format "%s" (buffer-string)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))))(#s(doom-cli :command ("doom" "install") :type nil :docs (("SUMMARY" . "Installs and sets up Doom Emacs for the first time.") ("MAIN" . "") ("This command does the following" . "\n 1. Creates `$DOOMDIR' at ~/.config/doom (if it or ~/.doom.d doesn't exist),\n 2. Copies ~/.config/emacs/static/init.example.el to `$DOOMDIR'/init.el (if\n it doesn't exist),\n 3. Creates dummy files for `$DOOMDIR'/{config,packages}.el,\n 4. Prompts you to generate an envvar file (same as `$ doom env`),\n 5. Installs any dependencies of enabled modules (specified by `$DOOMDIR'/init.el),\n 6. And prompts to install nerd-icons' fonts\n\nThis command is idempotent and safe to reuse.\n\nChange `$DOOMDIR' with the `--doomdir' option, e.g.\n\n ```\n $ doom --doomdir /other/doom/config install\n ```")) :autoload nil :alias nil :options (#s(doom-cli-option :symbol aot? :docs "Enable ahead-of-time native-compilation (if available)" :multiple-p nil :flag-p nil :switches ("--aot") :arguments nil :default nil) #s(doom-cli-option :symbol config? :docs "Create `$DOOMDIR' or dummy files therein?" :multiple-p nil :flag-p t :switches ("--config") :arguments nil :default :yes) #s(doom-cli-option :symbol envfile? :docs "(Re)generate an envvars file? (see `$ doom help env`)" :multiple-p nil :flag-p t :switches ("--env") :arguments nil :default :yes) #s(doom-cli-option :symbol install? :docs "Auto-install packages?" :multiple-p nil :flag-p t :switches ("--install") :arguments nil :default :yes) #s(doom-cli-option :symbol fonts? :docs "Install (or prompt to install) nerd-icons fonts?" :multiple-p nil :flag-p t :switches ("--fonts") :arguments nil :default :yes) #s(doom-cli-option :symbol hooks? :docs "Deploy Doom's git hooks to itself?" :multiple-p nil :flag-p t :switches ("--hooks") :arguments nil :default :yes)) :arguments ((&context context)) :plist (:prefix (doom) :group "Config Management" :docs "Commands for maintaining your Doom Emacs configuration." :hide nil) :fn #f(lambda (cli alist) [t] (let ((aot? (cdr (assq 'aot? alist))) (config? (cdr (assq 'config? alist))) (envfile? (cdr (assq 'envfile? alist))) (install? (cdr (assq 'install? alist))) (fonts? (cdr (assq 'fonts? alist))) (hooks? (cdr (assq 'hooks? alist))) (context (cdr (assq 'context alist)))) (doom-print (doom-print--format (doom-print--style 'green "Installing Doom Emacs!\n"))) (let ((default-directory doom-emacs-dir) (yes? (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 6))))) (if (eq config? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not copying private config template, as requested"))) (if (and (not (file-directory-p doom-user-dir)) (not (getenv "DOOMDIR"))) (progn (let ((xdg-config-dir (or (getenv "XDG_CONFIG_HOME") "~/.config"))) (if (file-in-directory-p doom-emacs-dir xdg-config-dir) (progn (setq doom-user-dir (expand-file-name "doom/" xdg-config-dir))))))) (if (file-directory-p doom-user-dir) (doom-print (doom-print--format (doom-print--class 'item "Skipping %s (already exists)") (doom-print--class 'path doom-user-dir))) (make-directory doom-user-dir 'parents) (doom-print (doom-print--format (doom-print--class 'success "Created %s") (doom-print--class 'path doom-user-dir)))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (mapc #'(lambda (file) (let* ((template file) (filename (if template (car-safe (prog1 template (setq template (cdr template)))) (signal 'wrong-number-of-arguments (list '(filename . template) (length template)))))) (progn (setq filename (doom-path doom-user-dir filename)) (if (file-exists-p filename) (doom-print (doom-print--format (doom-print--class 'item "Skipping %s (already exists)...") (doom-print--class 'path filename))) (doom-print (doom-print--format (doom-print--class 'item "Creating %s...") (doom-print--class 'path filename))) (let ((temp-file filename) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-file-contents template)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (doom-print (doom-print--format (doom-print--class 'success "Done!"))))))) (let ((template-dir (doom-path doom-emacs-dir "static/"))) (list (cons doom-module-init-file (file-name-with-extension (doom-path template-dir doom-module-init-file) ".example.el")) (cons doom-module-config-file (file-name-with-extension (doom-path template-dir doom-module-config-file) ".example.el")) (cons doom-module-packages-file (file-name-with-extension (doom-path template-dir doom-module-packages-file) ".example.el")))))))) (doom-load (doom-path doom-user-dir doom-module-init-file) t) (doom-load (doom-path doom-user-dir "cli.el") t) (if (eq envfile? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not generating envvars file, as requested"))) (if (file-exists-p doom-env-file) (doom-print (doom-print--format (doom-print--class 'item "Envvar file already exists, skipping"))) (if (or yes? (y-or-n-p "Generate an envvar file? (see `doom help env` for details)")) (progn (call! '(env)))))) (if aot? (progn (progn (eval-after-load 'straight #'(lambda nil (setq straight--native-comp-available t)))))) (if (eq install? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not installing plugins, as requested"))) (doom-print (doom-print--format (doom-print--class 'start "Installing plugins"))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-packages-ensure)))) (if (doom-profiles-bootloadable-p) (progn (doom-print (doom-print--format (doom-print--class 'start "Initializing profile bootstrapper..."))) (call! '(profiles sync "--reload")))) (doom-print (doom-print--format (doom-print--class 'start "Synchronizing default profile..."))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-profile-generate))) (if (eq hooks? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not deploying commit-msg and pre-push git hooks, as requested"))) (doom-print (doom-print--format (doom-print--class 'start "Deploying commit-msg and pre-push git hooks"))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (condition-case e (call! (cons 'ci (cons 'deploy-hooks (if yes? '("--force"))))) ('user-error (doom-print (doom-print--format (doom-print--class 'warn "%s") (error-message-string e)))))))) (if (file-exists-p "~/.emacs") (progn (doom-print (doom-print--format (doom-print--class 'warn "A ~/.emacs file was detected. This conflicts with Doom and should be deleted!"))))) (doom-print (doom-print--format (doom-print--class 'success "Finished! Doom is ready to go!\n"))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (doom-path doom-emacs-dir "static/QUICKSTART_INTRO")) (doom-print (doom-print--format "%s" (buffer-string)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))))) ((context . #s(doom-cli-context :init-time (26602 16929 355190 940000) :pid 138282 :step 0 :geometry (208 . 55) :pipes nil :suppress-prompts-p nil :prefix "doom" :meta-p nil :error nil :command ("doom" "env") :path nil :whole ("install") :options (("--deny") ("-d") ("--allow") ("-a") ("-o") ("--deny-all") ("--allow-all") ("--hooks") ("--fonts") ("--install") ("--env") ("--config") ("--aot") ("--eval") ("-E") ("--strict-load") ("--load") ("-L") ("--color") ("--benchmark") ("--profile") ("--pager") ("--emacsdir") ("--doomdir") ("--verbose") ("-v") ("--debug") ("-D") ("--force") ("-!")) :arguments ((t) (("doom" "env")) (("doom") "env")) :stdin #<buffer *doom-cli stdin*> :stdout #<buffer *doom-cli stdout*> :stderr #<buffer *doom-cli stderr*> :state nil)) (hooks? . :yes) (fonts? . :yes) (install? . :yes) (envfile? . :yes) (config? . :yes) (aot?)))
  740. funcall(#f(lambda (cli alist) [t] (let ((aot? (cdr (assq 'aot? alist))) (config? (cdr (assq 'config? alist))) (envfile? (cdr (assq 'envfile? alist))) (install? (cdr (assq 'install? alist))) (fonts? (cdr (assq 'fonts? alist))) (hooks? (cdr (assq 'hooks? alist))) (context (cdr (assq 'context alist)))) (doom-print (doom-print--format (doom-print--style 'green "Installing Doom Emacs!\n"))) (let ((default-directory doom-emacs-dir) (yes? (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 6))))) (if (eq config? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not copying private config template, as requested"))) (if (and (not (file-directory-p doom-user-dir)) (not (getenv "DOOMDIR"))) (progn (let ((xdg-config-dir (or (getenv "XDG_CONFIG_HOME") "~/.config"))) (if (file-in-directory-p doom-emacs-dir xdg-config-dir) (progn (setq doom-user-dir (expand-file-name "doom/" xdg-config-dir))))))) (if (file-directory-p doom-user-dir) (doom-print (doom-print--format (doom-print--class 'item "Skipping %s (already exists)") (doom-print--class 'path doom-user-dir))) (make-directory doom-user-dir 'parents) (doom-print (doom-print--format (doom-print--class 'success "Created %s") (doom-print--class 'path doom-user-dir)))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (mapc #'(lambda (file) (let* ((template file) (filename (if template (car-safe (prog1 template (setq template (cdr template)))) (signal 'wrong-number-of-arguments (list '(filename . template) (length template)))))) (progn (setq filename (doom-path doom-user-dir filename)) (if (file-exists-p filename) (doom-print (doom-print--format (doom-print--class 'item "Skipping %s (already exists)...") (doom-print--class 'path filename))) (doom-print (doom-print--format (doom-print--class 'item "Creating %s...") (doom-print--class 'path filename))) (let ((temp-file filename) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-file-contents template)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (doom-print (doom-print--format (doom-print--class 'success "Done!"))))))) (let ((template-dir (doom-path doom-emacs-dir "static/"))) (list (cons doom-module-init-file (file-name-with-extension (doom-path template-dir doom-module-init-file) ".example.el")) (cons doom-module-config-file (file-name-with-extension (doom-path template-dir doom-module-config-file) ".example.el")) (cons doom-module-packages-file (file-name-with-extension (doom-path template-dir doom-module-packages-file) ".example.el")))))))) (doom-load (doom-path doom-user-dir doom-module-init-file) t) (doom-load (doom-path doom-user-dir "cli.el") t) (if (eq envfile? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not generating envvars file, as requested"))) (if (file-exists-p doom-env-file) (doom-print (doom-print--format (doom-print--class 'item "Envvar file already exists, skipping"))) (if (or yes? (y-or-n-p "Generate an envvar file? (see `doom help env` for details)")) (progn (call! '(env)))))) (if aot? (progn (progn (eval-after-load 'straight #'(lambda nil (setq straight--native-comp-available t)))))) (if (eq install? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not installing plugins, as requested"))) (doom-print (doom-print--format (doom-print--class 'start "Installing plugins"))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-packages-ensure)))) (if (doom-profiles-bootloadable-p) (progn (doom-print (doom-print--format (doom-print--class 'start "Initializing profile bootstrapper..."))) (call! '(profiles sync "--reload")))) (doom-print (doom-print--format (doom-print--class 'start "Synchronizing default profile..."))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-profile-generate))) (if (eq hooks? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not deploying commit-msg and pre-push git hooks, as requested"))) (doom-print (doom-print--format (doom-print--class 'start "Deploying commit-msg and pre-push git hooks"))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (condition-case e (call! (cons 'ci (cons 'deploy-hooks (if yes? '("--force"))))) ('user-error (doom-print (doom-print--format (doom-print--class 'warn "%s") (error-message-string e)))))))) (if (file-exists-p "~/.emacs") (progn (doom-print (doom-print--format (doom-print--class 'warn "A ~/.emacs file was detected. This conflicts with Doom and should be deleted!"))))) (doom-print (doom-print--format (doom-print--class 'success "Finished! Doom is ready to go!\n"))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (doom-path doom-emacs-dir "static/QUICKSTART_INTRO")) (doom-print (doom-print--format "%s" (buffer-string)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))))) #s(doom-cli :command ("doom" "install") :type nil :docs (("SUMMARY" . "Installs and sets up Doom Emacs for the first time.") ("MAIN" . "") ("This command does the following" . "\n 1. Creates `$DOOMDIR' at ~/.config/doom (if it or ~/.doom.d doesn't exist),\n 2. Copies ~/.config/emacs/static/init.example.el to `$DOOMDIR'/init.el (if\n it doesn't exist),\n 3. Creates dummy files for `$DOOMDIR'/{config,packages}.el,\n 4. Prompts you to generate an envvar file (same as `$ doom env`),\n 5. Installs any dependencies of enabled modules (specified by `$DOOMDIR'/init.el),\n 6. And prompts to install nerd-icons' fonts\n\nThis command is idempotent and safe to reuse.\n\nChange `$DOOMDIR' with the `--doomdir' option, e.g.\n\n ```\n $ doom --doomdir /other/doom/config install\n ```")) :autoload nil :alias nil :options (#s(doom-cli-option :symbol aot? :docs "Enable ahead-of-time native-compilation (if available)" :multiple-p nil :flag-p nil :switches ("--aot") :arguments nil :default nil) #s(doom-cli-option :symbol config? :docs "Create `$DOOMDIR' or dummy files therein?" :multiple-p nil :flag-p t :switches ("--config") :arguments nil :default :yes) #s(doom-cli-option :symbol envfile? :docs "(Re)generate an envvars file? (see `$ doom help env`)" :multiple-p nil :flag-p t :switches ("--env") :arguments nil :default :yes) #s(doom-cli-option :symbol install? :docs "Auto-install packages?" :multiple-p nil :flag-p t :switches ("--install") :arguments nil :default :yes) #s(doom-cli-option :symbol fonts? :docs "Install (or prompt to install) nerd-icons fonts?" :multiple-p nil :flag-p t :switches ("--fonts") :arguments nil :default :yes) #s(doom-cli-option :symbol hooks? :docs "Deploy Doom's git hooks to itself?" :multiple-p nil :flag-p t :switches ("--hooks") :arguments nil :default :yes)) :arguments ((&context context)) :plist (:prefix (doom) :group "Config Management" :docs "Commands for maintaining your Doom Emacs configuration." :hide nil) :fn #f(lambda (cli alist) [t] (let ((aot? (cdr (assq 'aot? alist))) (config? (cdr (assq 'config? alist))) (envfile? (cdr (assq 'envfile? alist))) (install? (cdr (assq 'install? alist))) (fonts? (cdr (assq 'fonts? alist))) (hooks? (cdr (assq 'hooks? alist))) (context (cdr (assq 'context alist)))) (doom-print (doom-print--format (doom-print--style 'green "Installing Doom Emacs!\n"))) (let ((default-directory doom-emacs-dir) (yes? (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 6))))) (if (eq config? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not copying private config template, as requested"))) (if (and (not (file-directory-p doom-user-dir)) (not (getenv "DOOMDIR"))) (progn (let ((xdg-config-dir (or (getenv "XDG_CONFIG_HOME") "~/.config"))) (if (file-in-directory-p doom-emacs-dir xdg-config-dir) (progn (setq doom-user-dir (expand-file-name "doom/" xdg-config-dir))))))) (if (file-directory-p doom-user-dir) (doom-print (doom-print--format (doom-print--class 'item "Skipping %s (already exists)") (doom-print--class 'path doom-user-dir))) (make-directory doom-user-dir 'parents) (doom-print (doom-print--format (doom-print--class 'success "Created %s") (doom-print--class 'path doom-user-dir)))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (mapc #'(lambda (file) (let* ((template file) (filename (if template (car-safe (prog1 template (setq template (cdr template)))) (signal 'wrong-number-of-arguments (list '(filename . template) (length template)))))) (progn (setq filename (doom-path doom-user-dir filename)) (if (file-exists-p filename) (doom-print (doom-print--format (doom-print--class 'item "Skipping %s (already exists)...") (doom-print--class 'path filename))) (doom-print (doom-print--format (doom-print--class 'item "Creating %s...") (doom-print--class 'path filename))) (let ((temp-file filename) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-file-contents template)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (doom-print (doom-print--format (doom-print--class 'success "Done!"))))))) (let ((template-dir (doom-path doom-emacs-dir "static/"))) (list (cons doom-module-init-file (file-name-with-extension (doom-path template-dir doom-module-init-file) ".example.el")) (cons doom-module-config-file (file-name-with-extension (doom-path template-dir doom-module-config-file) ".example.el")) (cons doom-module-packages-file (file-name-with-extension (doom-path template-dir doom-module-packages-file) ".example.el")))))))) (doom-load (doom-path doom-user-dir doom-module-init-file) t) (doom-load (doom-path doom-user-dir "cli.el") t) (if (eq envfile? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not generating envvars file, as requested"))) (if (file-exists-p doom-env-file) (doom-print (doom-print--format (doom-print--class 'item "Envvar file already exists, skipping"))) (if (or yes? (y-or-n-p "Generate an envvar file? (see `doom help env` for details)")) (progn (call! '(env)))))) (if aot? (progn (progn (eval-after-load 'straight #'(lambda nil (setq straight--native-comp-available t)))))) (if (eq install? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not installing plugins, as requested"))) (doom-print (doom-print--format (doom-print--class 'start "Installing plugins"))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-packages-ensure)))) (if (doom-profiles-bootloadable-p) (progn (doom-print (doom-print--format (doom-print--class 'start "Initializing profile bootstrapper..."))) (call! '(profiles sync "--reload")))) (doom-print (doom-print--format (doom-print--class 'start "Synchronizing default profile..."))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-profile-generate))) (if (eq hooks? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not deploying commit-msg and pre-push git hooks, as requested"))) (doom-print (doom-print--format (doom-print--class 'start "Deploying commit-msg and pre-push git hooks"))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (condition-case e (call! (cons 'ci (cons 'deploy-hooks (if yes? '("--force"))))) ('user-error (doom-print (doom-print--format (doom-print--class 'warn "%s") (error-message-string e)))))))) (if (file-exists-p "~/.emacs") (progn (doom-print (doom-print--format (doom-print--class 'warn "A ~/.emacs file was detected. This conflicts with Doom and should be deleted!"))))) (doom-print (doom-print--format (doom-print--class 'success "Finished! Doom is ready to go!\n"))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (doom-path doom-emacs-dir "static/QUICKSTART_INTRO")) (doom-print (doom-print--format "%s" (buffer-string)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))))) ((context . #s(doom-cli-context :init-time (26602 16929 355190 940000) :pid 138282 :step 0 :geometry (208 . 55) :pipes nil :suppress-prompts-p nil :prefix "doom" :meta-p nil :error nil :command ("doom" "env") :path nil :whole ("install") :options (("--deny") ("-d") ("--allow") ("-a") ("-o") ("--deny-all") ("--allow-all") ("--hooks") ("--fonts") ("--install") ("--env") ("--config") ("--aot") ("--eval") ("-E") ("--strict-load") ("--load") ("-L") ("--color") ("--benchmark") ("--profile") ("--pager") ("--emacsdir") ("--doomdir") ("--verbose") ("-v") ("--debug") ("-D") ("--force") ("-!")) :arguments ((t) (("doom" "env")) (("doom") "env")) :stdin #<buffer *doom-cli stdin*> :stdout #<buffer *doom-cli stdout*> :stderr #<buffer *doom-cli stderr*> :state nil)) (hooks? . :yes) (fonts? . :yes) (install? . :yes) (envfile? . :yes) (config? . :yes) (aot?)))
  741. doom-cli-execute(#s(doom-cli :command ("doom" "install") :type nil :docs (("SUMMARY" . "Installs and sets up Doom Emacs for the first time.") ("MAIN" . "") ("This command does the following" . "\n 1. Creates `$DOOMDIR' at ~/.config/doom (if it or ~/.doom.d doesn't exist),\n 2. Copies ~/.config/emacs/static/init.example.el to `$DOOMDIR'/init.el (if\n it doesn't exist),\n 3. Creates dummy files for `$DOOMDIR'/{config,packages}.el,\n 4. Prompts you to generate an envvar file (same as `$ doom env`),\n 5. Installs any dependencies of enabled modules (specified by `$DOOMDIR'/init.el),\n 6. And prompts to install nerd-icons' fonts\n\nThis command is idempotent and safe to reuse.\n\nChange `$DOOMDIR' with the `--doomdir' option, e.g.\n\n ```\n $ doom --doomdir /other/doom/config install\n ```")) :autoload nil :alias nil :options (#s(doom-cli-option :symbol aot? :docs "Enable ahead-of-time native-compilation (if available)" :multiple-p nil :flag-p nil :switches ("--aot") :arguments nil :default nil) #s(doom-cli-option :symbol config? :docs "Create `$DOOMDIR' or dummy files therein?" :multiple-p nil :flag-p t :switches ("--config") :arguments nil :default :yes) #s(doom-cli-option :symbol envfile? :docs "(Re)generate an envvars file? (see `$ doom help env`)" :multiple-p nil :flag-p t :switches ("--env") :arguments nil :default :yes) #s(doom-cli-option :symbol install? :docs "Auto-install packages?" :multiple-p nil :flag-p t :switches ("--install") :arguments nil :default :yes) #s(doom-cli-option :symbol fonts? :docs "Install (or prompt to install) nerd-icons fonts?" :multiple-p nil :flag-p t :switches ("--fonts") :arguments nil :default :yes) #s(doom-cli-option :symbol hooks? :docs "Deploy Doom's git hooks to itself?" :multiple-p nil :flag-p t :switches ("--hooks") :arguments nil :default :yes)) :arguments ((&context context)) :plist (:prefix (doom) :group "Config Management" :docs "Commands for maintaining your Doom Emacs configuration." :hide nil) :fn #f(lambda (cli alist) [t] (let ((aot? (cdr (assq 'aot? alist))) (config? (cdr (assq 'config? alist))) (envfile? (cdr (assq 'envfile? alist))) (install? (cdr (assq 'install? alist))) (fonts? (cdr (assq 'fonts? alist))) (hooks? (cdr (assq 'hooks? alist))) (context (cdr (assq 'context alist)))) (doom-print (doom-print--format (doom-print--style 'green "Installing Doom Emacs!\n"))) (let ((default-directory doom-emacs-dir) (yes? (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 6))))) (if (eq config? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not copying private config template, as requested"))) (if (and (not (file-directory-p doom-user-dir)) (not (getenv "DOOMDIR"))) (progn (let ((xdg-config-dir (or (getenv "XDG_CONFIG_HOME") "~/.config"))) (if (file-in-directory-p doom-emacs-dir xdg-config-dir) (progn (setq doom-user-dir (expand-file-name "doom/" xdg-config-dir))))))) (if (file-directory-p doom-user-dir) (doom-print (doom-print--format (doom-print--class 'item "Skipping %s (already exists)") (doom-print--class 'path doom-user-dir))) (make-directory doom-user-dir 'parents) (doom-print (doom-print--format (doom-print--class 'success "Created %s") (doom-print--class 'path doom-user-dir)))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (mapc #'(lambda (file) (let* ((template file) (filename (if template (car-safe (prog1 template (setq template (cdr template)))) (signal 'wrong-number-of-arguments (list '(filename . template) (length template)))))) (progn (setq filename (doom-path doom-user-dir filename)) (if (file-exists-p filename) (doom-print (doom-print--format (doom-print--class 'item "Skipping %s (already exists)...") (doom-print--class 'path filename))) (doom-print (doom-print--format (doom-print--class 'item "Creating %s...") (doom-print--class 'path filename))) (let ((temp-file filename) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert-file-contents template)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (doom-print (doom-print--format (doom-print--class 'success "Done!"))))))) (let ((template-dir (doom-path doom-emacs-dir "static/"))) (list (cons doom-module-init-file (file-name-with-extension (doom-path template-dir doom-module-init-file) ".example.el")) (cons doom-module-config-file (file-name-with-extension (doom-path template-dir doom-module-config-file) ".example.el")) (cons doom-module-packages-file (file-name-with-extension (doom-path template-dir doom-module-packages-file) ".example.el")))))))) (doom-load (doom-path doom-user-dir doom-module-init-file) t) (doom-load (doom-path doom-user-dir "cli.el") t) (if (eq envfile? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not generating envvars file, as requested"))) (if (file-exists-p doom-env-file) (doom-print (doom-print--format (doom-print--class 'item "Envvar file already exists, skipping"))) (if (or yes? (y-or-n-p "Generate an envvar file? (see `doom help env` for details)")) (progn (call! '(env)))))) (if aot? (progn (progn (eval-after-load 'straight #'(lambda nil (setq straight--native-comp-available t)))))) (if (eq install? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not installing plugins, as requested"))) (doom-print (doom-print--format (doom-print--class 'start "Installing plugins"))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-packages-ensure)))) (if (doom-profiles-bootloadable-p) (progn (doom-print (doom-print--format (doom-print--class 'start "Initializing profile bootstrapper..."))) (call! '(profiles sync "--reload")))) (doom-print (doom-print--format (doom-print--class 'start "Synchronizing default profile..."))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (doom-profile-generate))) (if (eq hooks? :no) (doom-print (doom-print--format (doom-print--class 'warn "Not deploying commit-msg and pre-push git hooks, as requested"))) (doom-print (doom-print--format (doom-print--class 'start "Deploying commit-msg and pre-push git hooks"))) (progn (let ((doom-print-level (or nil doom-print-level)) (doom-print-indent (+ (if t (or nil doom-print-indent-increment) 0) doom-print-indent))) (condition-case e (call! (cons 'ci (cons 'deploy-hooks (if yes? '("--force"))))) ('user-error (doom-print (doom-print--format (doom-print--class 'warn "%s") (error-message-string e)))))))) (if (file-exists-p "~/.emacs") (progn (doom-print (doom-print--format (doom-print--class 'warn "A ~/.emacs file was detected. This conflicts with Doom and should be deleted!"))))) (doom-print (doom-print--format (doom-print--class 'success "Finished! Doom is ready to go!\n"))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (doom-path doom-emacs-dir "static/QUICKSTART_INTRO")) (doom-print (doom-print--format "%s" (buffer-string)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))))) ((context . #s(doom-cli-context :init-time (26602 16929 355190 940000) :pid 138282 :step 0 :geometry (208 . 55) :pipes nil :suppress-prompts-p nil :prefix "doom" :meta-p nil :error nil :command ("doom" "env") :path nil :whole ("install") :options (("--deny") ("-d") ("--allow") ("-a") ("-o") ("--deny-all") ("--allow-all") ("--hooks") ("--fonts") ("--install") ("--env") ("--config") ("--aot") ("--eval") ("-E") ("--strict-load") ("--load") ("-L") ("--color") ("--benchmark") ("--profile") ("--pager") ("--emacsdir") ("--doomdir") ("--verbose") ("-v") ("--debug") ("-D") ("--force") ("-!")) :arguments ((t) (("doom" "env")) (("doom") "env")) :stdin #<buffer *doom-cli stdin*> :stdout #<buffer *doom-cli stdout*> :stderr #<buffer *doom-cli stderr*> :state nil)) (hooks? . :yes) (fonts? . :yes) (install? . :yes) (envfile? . :yes) (config? . :yes) (aot?)))
  742. (let ((cli x23) (bindings x24)) (doom-cli-execute cli bindings))
  743. (let* ((x23 (car-safe x22)) (x24 (cdr-safe x22))) (let ((cli x23) (bindings x24)) (doom-cli-execute cli bindings)))
  744. (progn (ignore (consp x22)) (let* ((x23 (car-safe x22)) (x24 (cdr-safe x22))) (let ((cli x23) (bindings x24)) (doom-cli-execute cli bindings))))
  745. (let ((x22 (car tail))) (progn (ignore (consp x22)) (let* ((x23 (car-safe x22)) (x24 (cdr-safe x22))) (let ((cli x23) (bindings x24)) (doom-cli-execute cli bindings)))) (setq tail (cdr tail)))
  746. (while tail (let ((x22 (car tail))) (progn (ignore (consp x22)) (let* ((x23 (car-safe x22)) (x24 (cdr-safe x22))) (let ((cli x23) (bindings x24)) (doom-cli-execute cli bindings)))) (setq tail (cdr tail))))
  747. (let ((tail (nreverse runners))) (while tail (let ((x22 (car tail))) (progn (ignore (consp x22)) (let* ((x23 (car-safe x22)) (x24 (cdr-safe x22))) (let ((cli x23) (bindings x24)) (doom-cli-execute cli bindings)))) (setq tail (cdr tail)))))
  748. (let ((seen '(t)) runners) (let ((tail (doom-cli-find command (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 2)))))) (while tail (let ((cli (car tail))) (setq runners (cons (cons (doom-cli-get cli) (doom-cli--bindings cli context seen)) runners)) (setq tail (cdr tail))))) (let ((tail (nreverse runners))) (while tail (let ((x22 (car tail))) (progn (ignore (consp x22)) (let* ((x23 (car-safe x22)) (x24 (cdr-safe x22))) (let ((cli x23) (bindings x24)) (doom-cli-execute cli bindings)))) (setq tail (cdr tail))))) context)
  749. (cond ((null (or command (doom-cli-get (list prefix) t))) (signal 'doom-cli-invalid-prefix-error (list prefix))) ((let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 8))) (let* ((val (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 8))))) (cond ((equal val '"--version") (let nil (doom-cli-call (cons ':version (cdr command)) context) t)) ((member val '("--help" "-?")) (let nil (doom-cli-call (cons ':help (cdr command)) context) t)) (t (let nil (error "In meta mode with no destination!")))))) ((not (and cli (let* ((cl-x (doom-cli-get cli))) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 9))))) (signal 'doom-cli-command-not-found-error (append command (alist-get t (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 14))))))) ((let ((seen '(t)) runners) (let ((tail (doom-cli-find command (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 2)))))) (while tail (let ((cli (car tail))) (setq runners (cons (cons (doom-cli-get cli) (doom-cli--bindings cli context seen)) runners)) (setq tail (cdr tail))))) (let ((tail (nreverse runners))) (while tail (let ((x22 (car tail))) (progn (ignore (consp x22)) (let* ((x23 (car-safe x22)) (x24 (cdr-safe x22))) (let ((cli x23) (bindings x24)) (doom-cli-execute cli bindings)))) (setq tail (cdr tail))))) context)))
  750. (let* ((command (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 10)))) (cli (doom-cli-get command t)) (prefix (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 7))))) (if (and (not doom-inhibit-log) (or (not noninteractive) (<= 2 doom-log-level))) (progn (doom--log 2 "context-execute: %s" (mapconcat #'doom-cli-command-string (delq nil (list (car (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 11)))) command)) " -> ")))) (cond ((null (or command (doom-cli-get (list prefix) t))) (signal 'doom-cli-invalid-prefix-error (list prefix))) ((let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 8))) (let* ((val (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 8))))) (cond ((equal val '"--version") (let nil (doom-cli-call (cons ':version (cdr command)) context) t)) ((member val '("--help" "-?")) (let nil (doom-cli-call (cons ':help (cdr command)) context) t)) (t (let nil (error "In meta mode with no destination!")))))) ((not (and cli (let* ((cl-x (doom-cli-get cli))) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 9))))) (signal 'doom-cli-command-not-found-error (append command (alist-get t (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 14))))))) ((let ((seen '(t)) runners) (let ((tail (doom-cli-find command (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 2)))))) (while tail (let ((cli (car tail))) (setq runners (cons (cons (doom-cli-get cli) (doom-cli--bindings cli context seen)) runners)) (setq tail (cdr tail))))) (let ((tail (nreverse runners))) (while tail (let ((x22 (car tail))) (progn (ignore (consp x22)) (let* ((x23 (car-safe x22)) (x24 (cdr-safe x22))) (let ((cli x23) (bindings x24)) (doom-cli-execute cli bindings)))) (setq tail (cdr tail))))) context))))
  751. doom-cli-context-execute(#s(doom-cli-context :init-time (26602 16929 355190 940000) :pid 138282 :step 0 :geometry (208 . 55) :pipes nil :suppress-prompts-p nil :prefix "doom" :meta-p nil :error nil :command ("doom" "env") :path nil :whole ("install") :options (("--deny") ("-d") ("--allow") ("-a") ("-o") ("--deny-all") ("--allow-all") ("--hooks") ("--fonts") ("--install") ("--env") ("--config") ("--aot") ("--eval") ("-E") ("--strict-load") ("--load") ("-L") ("--color") ("--benchmark") ("--profile") ("--pager") ("--emacsdir") ("--doomdir") ("--verbose") ("-v") ("--debug") ("-D") ("--force") ("-!")) :arguments ((t) (("doom" "env")) (("doom") "env")) :stdin #<buffer *doom-cli stdin*> :stdout #<buffer *doom-cli stdout*> :stderr #<buffer *doom-cli stderr*> :state nil))
  752. (let ((result (doom-cli-context-execute context))) (run-hook-with-args 'doom-cli-after-run-functions context result))
  753. (let* ((args (cons (if (getenv "__DOOMDUMP") :dump prefix) args)) (context (doom-cli-context-restore (getenv "__DOOMCONTEXT") context)) (context (doom-cli-context-parse args context))) (run-hook-with-args 'doom-cli-before-run-functions context) (let ((result (doom-cli-context-execute context))) (run-hook-with-args 'doom-cli-after-run-functions context result)) 0)
  754. (condition-case e (let* ((args (cons (if (getenv "__DOOMDUMP") :dump prefix) args)) (context (doom-cli-context-restore (getenv "__DOOMCONTEXT") context)) (context (doom-cli-context-parse args context))) (run-hook-with-args 'doom-cli-before-run-functions context) (let ((result (doom-cli-context-execute context))) (run-hook-with-args 'doom-cli-after-run-functions context result)) 0) (doom-cli-wrong-number-of-arguments-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x34 (car-safe val)) (x35 (cdr-safe val))) (progn (ignore (consp x35)) (let* ((x36 (car-safe x35)) (x37 (cdr-safe x35))) (progn (ignore (consp x37)) (let* ((x38 (car-safe x37)) (x39 (cdr-safe x37))) (progn (ignore (consp x39)) (let* ((x40 (car-safe x39)) (x41 (cdr-safe x39))) (progn (ignore (consp x41)) (let* ((x42 (car-safe x41)) (x43 (cdr-safe x41))) (progn (ignore (null x43)) (let ((command x34) (flag x36) (args x38) (min x40) (max x42)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %S expected %s argument%s, but got %d") (or flag (doom-cli-command-string (if (keywordp (car command)) command (cdr command)))) (if (or (= min max) (= max most-positive-fixnum)) min (format "%d-%d" min max)) (if (or (= min 0) (> min 1)) "s" "") (length args))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e))))))))))))))) 5) (doom-cli-unrecognized-option-error (doom-print (doom-print--format (doom-print--style 'red "Error: unknown option %s") (car (cdr e)))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e) 5) (doom-cli-invalid-option-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x44 (car-safe val)) (x45 (cdr-safe val))) (progn (ignore (consp x45)) (let* ((x46 (car-safe x45)) (x47 (cdr-safe x45))) (progn (ignore (consp x47)) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (progn (ignore (consp x49)) (let* ((x50 (car-safe x49)) (x51 (cdr-safe x49))) (progn (ignore (null x51)) (let ((_types x44) (option x46) (value x48) (errors x50)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %s received invalid value %S") (string-join (let* ((cl-x option)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-option-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-option cl-x))) (aref cl-x 5))) "/") value)) (doom-print (doom-print--format (doom-print--style 'bold "\nValidation errors:"))) (let ((tail errors)) (while tail (let ((err (car tail))) (doom-print (doom-print--format (doom-print--class 'item "%s." (doom-print--class 'fill err)))) (setq tail (cdr tail))))))))))))))))) (doom-cli-call (cons ':help (cons "--postamble" (cdr (doom-cli--command context)))) context e) 5) (doom-cli-command-not-found-error (let* ((command (cdr e)) (cli (doom-cli-get command))) (cond ((null cli) (doom-print (doom-print--format (doom-print--style 'red "Error: unrecognized command: %s") (doom-cli-command-string command))) (doom-cli-call (cons ':help (cons "--similar" (cons "--postamble" (cdr command)))) context e)) ((null (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 9)))) (doom-print (doom-print--format (doom-print--style 'red "Error: a subcommand is required"))) (doom-cli-call (cons ':help (cons "--subcommands" (cons "--postamble" (cdr command)))) context e)))) 4) (doom-cli-invalid-prefix-error (let ((prefix (car (cdr e)))) (doom-print (doom-print--format (doom-print--style 'red "Error: `run!' called with invalid prefix %S") prefix)) (let* ((suggested (and t (let* ((--cl-var-- t) --cl-var--) (catch '--cl-block---cl-finish---- (maphash #'(lambda (--cl-var-- cli) (or (if (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 2))) t (progn (setq --cl-var-- (car (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 1))))) (setq --cl-var-- nil))) (throw '--cl-block---cl-finish---- nil))) doom-cli--table)) --cl-var--)))) (if suggested (doom-print (doom-print--format "Did you mean %S?" suggested)) (doom-print (doom-print--format "There are no commands defined under %S." prefix))))) 4) (user-error (doom-print (doom-print--format (doom-print--style 'red "Error: %s") (car (cdr e)))) (doom-print (doom-print--format "\nAborting...")) 3))
  755. (catch 'exit (condition-case e (let* ((args (cons (if (getenv "__DOOMDUMP") :dump prefix) args)) (context (doom-cli-context-restore (getenv "__DOOMCONTEXT") context)) (context (doom-cli-context-parse args context))) (run-hook-with-args 'doom-cli-before-run-functions context) (let ((result (doom-cli-context-execute context))) (run-hook-with-args 'doom-cli-after-run-functions context result)) 0) (doom-cli-wrong-number-of-arguments-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x34 (car-safe val)) (x35 (cdr-safe val))) (progn (ignore (consp x35)) (let* ((x36 (car-safe x35)) (x37 (cdr-safe x35))) (progn (ignore (consp x37)) (let* ((x38 (car-safe x37)) (x39 (cdr-safe x37))) (progn (ignore (consp x39)) (let* ((x40 (car-safe x39)) (x41 (cdr-safe x39))) (progn (ignore (consp x41)) (let* ((x42 (car-safe x41)) (x43 (cdr-safe x41))) (progn (ignore (null x43)) (let ((command x34) (flag x36) (args x38) (min x40) (max x42)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %S expected %s argument%s, but got %d") (or flag (doom-cli-command-string (if (keywordp (car command)) command (cdr command)))) (if (or (= min max) (= max most-positive-fixnum)) min (format "%d-%d" min max)) (if (or (= min 0) (> min 1)) "s" "") (length args))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e))))))))))))))) 5) (doom-cli-unrecognized-option-error (doom-print (doom-print--format (doom-print--style 'red "Error: unknown option %s") (car (cdr e)))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e) 5) (doom-cli-invalid-option-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x44 (car-safe val)) (x45 (cdr-safe val))) (progn (ignore (consp x45)) (let* ((x46 (car-safe x45)) (x47 (cdr-safe x45))) (progn (ignore (consp x47)) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (progn (ignore (consp x49)) (let* ((x50 (car-safe x49)) (x51 (cdr-safe x49))) (progn (ignore (null x51)) (let ((_types x44) (option x46) (value x48) (errors x50)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %s received invalid value %S") (string-join (let* ((cl-x option)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-option-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-option cl-x))) (aref cl-x 5))) "/") value)) (doom-print (doom-print--format (doom-print--style 'bold "\nValidation errors:"))) (let ((tail errors)) (while tail (let ((err (car tail))) (doom-print (doom-print--format (doom-print--class 'item "%s." (doom-print--class 'fill err)))) (setq tail (cdr tail))))))))))))))))) (doom-cli-call (cons ':help (cons "--postamble" (cdr (doom-cli--command context)))) context e) 5) (doom-cli-command-not-found-error (let* ((command (cdr e)) (cli (doom-cli-get command))) (cond ((null cli) (doom-print (doom-print--format (doom-print--style 'red "Error: unrecognized command: %s") (doom-cli-command-string command))) (doom-cli-call (cons ':help (cons "--similar" (cons "--postamble" (cdr command)))) context e)) ((null (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 9)))) (doom-print (doom-print--format (doom-print--style 'red "Error: a subcommand is required"))) (doom-cli-call (cons ':help (cons "--subcommands" (cons "--postamble" (cdr command)))) context e)))) 4) (doom-cli-invalid-prefix-error (let ((prefix (car (cdr e)))) (doom-print (doom-print--format (doom-print--style 'red "Error: `run!' called with invalid prefix %S") prefix)) (let* ((suggested (and t (let* ((--cl-var-- t) --cl-var--) (catch '--cl-block---cl-finish---- (maphash #'(lambda (--cl-var-- cli) (or (if (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 2))) t (progn (setq --cl-var-- (car (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 1))))) (setq --cl-var-- nil))) (throw '--cl-block---cl-finish---- nil))) doom-cli--table)) --cl-var--)))) (if suggested (doom-print (doom-print--format "Did you mean %S?" suggested)) (doom-print (doom-print--format "There are no commands defined under %S." prefix))))) 4) (user-error (doom-print (doom-print--format (doom-print--style 'red "Error: %s") (car (cdr e)))) (doom-print (doom-print--format "\nAborting...")) 3)))
  756. (doom-cli--exit (catch 'exit (condition-case e (let* ((args (cons (if (getenv "__DOOMDUMP") :dump prefix) args)) (context (doom-cli-context-restore (getenv "__DOOMCONTEXT") context)) (context (doom-cli-context-parse args context))) (run-hook-with-args 'doom-cli-before-run-functions context) (let ((result (doom-cli-context-execute context))) (run-hook-with-args 'doom-cli-after-run-functions context result)) 0) (doom-cli-wrong-number-of-arguments-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x34 (car-safe val)) (x35 (cdr-safe val))) (progn (ignore (consp x35)) (let* ((x36 (car-safe x35)) (x37 (cdr-safe x35))) (progn (ignore (consp x37)) (let* ((x38 (car-safe x37)) (x39 (cdr-safe x37))) (progn (ignore (consp x39)) (let* ((x40 (car-safe x39)) (x41 (cdr-safe x39))) (progn (ignore (consp x41)) (let* ((x42 (car-safe x41)) (x43 (cdr-safe x41))) (progn (ignore (null x43)) (let ((command x34) (flag x36) (args x38) (min x40) (max x42)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %S expected %s argument%s, but got %d") (or flag (doom-cli-command-string (if (keywordp (car command)) command (cdr command)))) (if (or (= min max) (= max most-positive-fixnum)) min (format "%d-%d" min max)) (if (or (= min 0) (> min 1)) "s" "") (length args))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e))))))))))))))) 5) (doom-cli-unrecognized-option-error (doom-print (doom-print--format (doom-print--style 'red "Error: unknown option %s") (car (cdr e)))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e) 5) (doom-cli-invalid-option-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x44 (car-safe val)) (x45 (cdr-safe val))) (progn (ignore (consp x45)) (let* ((x46 (car-safe x45)) (x47 (cdr-safe x45))) (progn (ignore (consp x47)) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (progn (ignore (consp x49)) (let* ((x50 (car-safe x49)) (x51 (cdr-safe x49))) (progn (ignore (null x51)) (let ((_types x44) (option x46) (value x48) (errors x50)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %s received invalid value %S") (string-join (let* ((cl-x option)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-option-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-option cl-x))) (aref cl-x 5))) "/") value)) (doom-print (doom-print--format (doom-print--style 'bold "\nValidation errors:"))) (let ((tail errors)) (while tail (let ((err (car tail))) (doom-print (doom-print--format (doom-print--class 'item "%s." (doom-print--class 'fill err)))) (setq tail (cdr tail))))))))))))))))) (doom-cli-call (cons ':help (cons "--postamble" (cdr (doom-cli--command context)))) context e) 5) (doom-cli-command-not-found-error (let* ((command (cdr e)) (cli (doom-cli-get command))) (cond ((null cli) (doom-print (doom-print--format (doom-print--style 'red "Error: unrecognized command: %s") (doom-cli-command-string command))) (doom-cli-call (cons ':help (cons "--similar" (cons "--postamble" (cdr command)))) context e)) ((null (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 9)))) (doom-print (doom-print--format (doom-print--style 'red "Error: a subcommand is required"))) (doom-cli-call (cons ':help (cons "--subcommands" (cons "--postamble" (cdr command)))) context e)))) 4) (doom-cli-invalid-prefix-error (let ((prefix (car (cdr e)))) (doom-print (doom-print--format (doom-print--style 'red "Error: `run!' called with invalid prefix %S") prefix)) (let* ((suggested (and t (let* ((--cl-var-- t) --cl-var--) (catch '--cl-block---cl-finish---- (maphash #'(lambda (--cl-var-- cli) (or (if (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 2))) t (progn (setq --cl-var-- (car (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 1))))) (setq --cl-var-- nil))) (throw '--cl-block---cl-finish---- nil))) doom-cli--table)) --cl-var--)))) (if suggested (doom-print (doom-print--format "Did you mean %S?" suggested)) (doom-print (doom-print--format "There are no commands defined under %S." prefix))))) 4) (user-error (doom-print (doom-print--format (doom-print--style 'red "Error: %s") (car (cdr e)))) (doom-print (doom-print--format "\nAborting...")) 3))) context)
  757. (progn (if (and (not doom-inhibit-log) (or (not noninteractive) (<= 2 doom-log-level))) (progn (doom--log 2 "run!: %s %s" prefix (combine-and-quote-strings args)))) (add-hook 'kill-emacs-hook show-benchmark-fn 94) (add-hook 'kill-emacs-hook write-logs-fn 95) (if (doom-cli-context-pipe-p context :out t) (progn (setq doom-print-backend nil))) (if (doom-cli-context-pipe-p context :in) (progn (save-current-buffer (set-buffer (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 15)))) (while (let* ((in (and t (condition-case nil (progn (read-from-minibuffer "")) (error nil))))) (if in (insert in "\n") (condition-case nil (progn (delete-char -1)) (error nil)))))))) (doom-cli--exit (catch 'exit (condition-case e (let* ((args (cons (if (getenv "__DOOMDUMP") :dump prefix) args)) (context (doom-cli-context-restore (getenv "__DOOMCONTEXT") context)) (context (doom-cli-context-parse args context))) (run-hook-with-args 'doom-cli-before-run-functions context) (let ((result (doom-cli-context-execute context))) (run-hook-with-args 'doom-cli-after-run-functions context result)) 0) (doom-cli-wrong-number-of-arguments-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x34 (car-safe val)) (x35 (cdr-safe val))) (progn (ignore (consp x35)) (let* ((x36 (car-safe x35)) (x37 (cdr-safe x35))) (progn (ignore (consp x37)) (let* ((x38 (car-safe x37)) (x39 (cdr-safe x37))) (progn (ignore (consp x39)) (let* ((x40 (car-safe x39)) (x41 (cdr-safe x39))) (progn (ignore (consp x41)) (let* ((x42 (car-safe x41)) (x43 (cdr-safe x41))) (progn (ignore (null x43)) (let ((command x34) (flag x36) (args x38) (min x40) (max x42)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %S expected %s argument%s, but got %d") (or flag (doom-cli-command-string (if (keywordp (car command)) command (cdr command)))) (if (or (= min max) (= max most-positive-fixnum)) min (format "%d-%d" min max)) (if (or (= min 0) (> min 1)) "s" "") (length args))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e))))))))))))))) 5) (doom-cli-unrecognized-option-error (doom-print (doom-print--format (doom-print--style 'red "Error: unknown option %s") (car (cdr e)))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e) 5) (doom-cli-invalid-option-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x44 (car-safe val)) (x45 (cdr-safe val))) (progn (ignore (consp x45)) (let* ((x46 (car-safe x45)) (x47 (cdr-safe x45))) (progn (ignore (consp x47)) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (progn (ignore (consp x49)) (let* ((x50 (car-safe x49)) (x51 (cdr-safe x49))) (progn (ignore (null x51)) (let ((_types x44) (option x46) (value x48) (errors x50)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %s received invalid value %S") (string-join (let* ((cl-x option)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-option-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-option cl-x))) (aref cl-x 5))) "/") value)) (doom-print (doom-print--format (doom-print--style 'bold "\nValidation errors:"))) (let ((tail errors)) (while tail (let ((err (car tail))) (doom-print (doom-print--format (doom-print--class 'item "%s." (doom-print--class 'fill err)))) (setq tail (cdr tail))))))))))))))))) (doom-cli-call (cons ':help (cons "--postamble" (cdr (doom-cli--command context)))) context e) 5) (doom-cli-command-not-found-error (let* ((command (cdr e)) (cli (doom-cli-get command))) (cond ((null cli) (doom-print (doom-print--format (doom-print--style 'red "Error: unrecognized command: %s") (doom-cli-command-string command))) (doom-cli-call (cons ':help (cons "--similar" (cons "--postamble" (cdr command)))) context e)) ((null (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 9)))) (doom-print (doom-print--format (doom-print--style 'red "Error: a subcommand is required"))) (doom-cli-call (cons ':help (cons "--subcommands" (cons "--postamble" (cdr command)))) context e)))) 4) (doom-cli-invalid-prefix-error (let ((prefix (car (cdr e)))) (doom-print (doom-print--format (doom-print--style 'red "Error: `run!' called with invalid prefix %S") prefix)) (let* ((suggested (and t (let* ((--cl-var-- t) --cl-var--) (catch '--cl-block---cl-finish---- (maphash #'(lambda (--cl-var-- cli) (or (if (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 2))) t (progn (setq --cl-var-- (car (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 1))))) (setq --cl-var-- nil))) (throw '--cl-block---cl-finish---- nil))) doom-cli--table)) --cl-var--)))) (if suggested (doom-print (doom-print--format "Did you mean %S?" suggested)) (doom-print (doom-print--format "There are no commands defined under %S." prefix))))) 4) (user-error (doom-print (doom-print--format (doom-print--style 'red "Error: %s") (car (cdr e)))) (doom-print (doom-print--format "\nAborting...")) 3))) context))
  758. (let ((doom-print-stream standard-output)) (progn (if (and (not doom-inhibit-log) (or (not noninteractive) (<= 2 doom-log-level))) (progn (doom--log 2 "run!: %s %s" prefix (combine-and-quote-strings args)))) (add-hook 'kill-emacs-hook show-benchmark-fn 94) (add-hook 'kill-emacs-hook write-logs-fn 95) (if (doom-cli-context-pipe-p context :out t) (progn (setq doom-print-backend nil))) (if (doom-cli-context-pipe-p context :in) (progn (save-current-buffer (set-buffer (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 15)))) (while (let* ((in (and t (condition-case nil (progn (read-from-minibuffer "")) (error nil))))) (if in (insert in "\n") (condition-case nil (progn (delete-char -1)) (error nil)))))))) (doom-cli--exit (catch 'exit (condition-case e (let* ((args (cons (if (getenv "__DOOMDUMP") :dump prefix) args)) (context (doom-cli-context-restore (getenv "__DOOMCONTEXT") context)) (context (doom-cli-context-parse args context))) (run-hook-with-args 'doom-cli-before-run-functions context) (let ((result (doom-cli-context-execute context))) (run-hook-with-args 'doom-cli-after-run-functions context result)) 0) (doom-cli-wrong-number-of-arguments-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x34 (car-safe val)) (x35 (cdr-safe val))) (progn (ignore (consp x35)) (let* ((x36 (car-safe x35)) (x37 (cdr-safe x35))) (progn (ignore (consp x37)) (let* ((x38 (car-safe x37)) (x39 (cdr-safe x37))) (progn (ignore (consp x39)) (let* ((x40 (car-safe x39)) (x41 (cdr-safe x39))) (progn (ignore (consp x41)) (let* ((x42 (car-safe x41)) (x43 (cdr-safe x41))) (progn (ignore (null x43)) (let ((command x34) (flag x36) (args x38) (min x40) (max x42)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %S expected %s argument%s, but got %d") (or flag (doom-cli-command-string (if (keywordp (car command)) command (cdr command)))) (if (or (= min max) (= max most-positive-fixnum)) min (format "%d-%d" min max)) (if (or (= min 0) (> min 1)) "s" "") (length args))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e))))))))))))))) 5) (doom-cli-unrecognized-option-error (doom-print (doom-print--format (doom-print--style 'red "Error: unknown option %s") (car (cdr e)))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e) 5) (doom-cli-invalid-option-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x44 (car-safe val)) (x45 (cdr-safe val))) (progn (ignore (consp x45)) (let* ((x46 (car-safe x45)) (x47 (cdr-safe x45))) (progn (ignore (consp x47)) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (progn (ignore (consp x49)) (let* ((x50 (car-safe x49)) (x51 (cdr-safe x49))) (progn (ignore (null x51)) (let ((_types x44) (option x46) (value x48) (errors x50)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %s received invalid value %S") (string-join (let* ((cl-x option)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-option-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-option cl-x))) (aref cl-x 5))) "/") value)) (doom-print (doom-print--format (doom-print--style 'bold "\nValidation errors:"))) (let ((tail errors)) (while tail (let ((err (car tail))) (doom-print (doom-print--format (doom-print--class 'item "%s." (doom-print--class 'fill err)))) (setq tail (cdr tail))))))))))))))))) (doom-cli-call (cons ':help (cons "--postamble" (cdr (doom-cli--command context)))) context e) 5) (doom-cli-command-not-found-error (let* ((command (cdr e)) (cli (doom-cli-get command))) (cond ((null cli) (doom-print (doom-print--format (doom-print--style 'red "Error: unrecognized command: %s") (doom-cli-command-string command))) (doom-cli-call (cons ':help (cons "--similar" (cons "--postamble" (cdr command)))) context e)) ((null (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 9)))) (doom-print (doom-print--format (doom-print--style 'red "Error: a subcommand is required"))) (doom-cli-call (cons ':help (cons "--subcommands" (cons "--postamble" (cdr command)))) context e)))) 4) (doom-cli-invalid-prefix-error (let ((prefix (car (cdr e)))) (doom-print (doom-print--format (doom-print--style 'red "Error: `run!' called with invalid prefix %S") prefix)) (let* ((suggested (and t (let* ((--cl-var-- t) --cl-var--) (catch '--cl-block---cl-finish---- (maphash #'(lambda (--cl-var-- cli) (or (if (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 2))) t (progn (setq --cl-var-- (car (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 1))))) (setq --cl-var-- nil))) (throw '--cl-block---cl-finish---- nil))) doom-cli--table)) --cl-var--)))) (if suggested (doom-print (doom-print--format "Did you mean %S?" suggested)) (doom-print (doom-print--format "There are no commands defined under %S." prefix))))) 4) (user-error (doom-print (doom-print--format (doom-print--style 'red "Error: %s") (car (cdr e)))) (doom-print (doom-print--format "\nAborting...")) 3))) context)))
  759. (progn (fset #'message vnew) (let ((doom-print-stream standard-output)) (progn (if (and (not doom-inhibit-log) (or (not noninteractive) (<= 2 doom-log-level))) (progn (doom--log 2 "run!: %s %s" prefix (combine-and-quote-strings args)))) (add-hook 'kill-emacs-hook show-benchmark-fn 94) (add-hook 'kill-emacs-hook write-logs-fn 95) (if (doom-cli-context-pipe-p context :out t) (progn (setq doom-print-backend nil))) (if (doom-cli-context-pipe-p context :in) (progn (save-current-buffer (set-buffer (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 15)))) (while (let* ((in (and t (condition-case nil (progn (read-from-minibuffer "")) (error nil))))) (if in (insert in "\n") (condition-case nil (progn (delete-char -1)) (error nil)))))))) (doom-cli--exit (catch 'exit (condition-case e (let* ((args (cons (if (getenv "__DOOMDUMP") :dump prefix) args)) (context (doom-cli-context-restore (getenv "__DOOMCONTEXT") context)) (context (doom-cli-context-parse args context))) (run-hook-with-args 'doom-cli-before-run-functions context) (let ((result (doom-cli-context-execute context))) (run-hook-with-args 'doom-cli-after-run-functions context result)) 0) (doom-cli-wrong-number-of-arguments-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x34 (car-safe val)) (x35 (cdr-safe val))) (progn (ignore (consp x35)) (let* ((x36 (car-safe x35)) (x37 (cdr-safe x35))) (progn (ignore (consp x37)) (let* ((x38 (car-safe x37)) (x39 (cdr-safe x37))) (progn (ignore (consp x39)) (let* ((x40 (car-safe x39)) (x41 (cdr-safe x39))) (progn (ignore (consp x41)) (let* ((x42 (car-safe x41)) (x43 (cdr-safe x41))) (progn (ignore (null x43)) (let ((command x34) (flag x36) (args x38) (min x40) (max x42)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %S expected %s argument%s, but got %d") (or flag (doom-cli-command-string (if (keywordp (car command)) command (cdr command)))) (if (or (= min max) (= max most-positive-fixnum)) min (format "%d-%d" min max)) (if (or (= min 0) (> min 1)) "s" "") (length args))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e))))))))))))))) 5) (doom-cli-unrecognized-option-error (doom-print (doom-print--format (doom-print--style 'red "Error: unknown option %s") (car (cdr e)))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e) 5) (doom-cli-invalid-option-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x44 (car-safe val)) (x45 (cdr-safe val))) (progn (ignore (consp x45)) (let* ((x46 (car-safe x45)) (x47 (cdr-safe x45))) (progn (ignore (consp x47)) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (progn (ignore (consp x49)) (let* ((x50 (car-safe x49)) (x51 (cdr-safe x49))) (progn (ignore (null x51)) (let ((_types x44) (option x46) (value x48) (errors x50)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %s received invalid value %S") (string-join (let* ((cl-x option)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-option-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-option cl-x))) (aref cl-x 5))) "/") value)) (doom-print (doom-print--format (doom-print--style 'bold "\nValidation errors:"))) (let ((tail errors)) (while tail (let ((err (car tail))) (doom-print (doom-print--format (doom-print--class 'item "%s." (doom-print--class 'fill err)))) (setq tail (cdr tail))))))))))))))))) (doom-cli-call (cons ':help (cons "--postamble" (cdr (doom-cli--command context)))) context e) 5) (doom-cli-command-not-found-error (let* ((command (cdr e)) (cli (doom-cli-get command))) (cond ((null cli) (doom-print (doom-print--format (doom-print--style 'red "Error: unrecognized command: %s") (doom-cli-command-string command))) (doom-cli-call (cons ':help (cons "--similar" (cons "--postamble" (cdr command)))) context e)) ((null (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 9)))) (doom-print (doom-print--format (doom-print--style 'red "Error: a subcommand is required"))) (doom-cli-call (cons ':help (cons "--subcommands" (cons "--postamble" (cdr command)))) context e)))) 4) (doom-cli-invalid-prefix-error (let ((prefix (car (cdr e)))) (doom-print (doom-print--format (doom-print--style 'red "Error: `run!' called with invalid prefix %S") prefix)) (let* ((suggested (and t (let* ((--cl-var-- t) --cl-var--) (catch '--cl-block---cl-finish---- (maphash #'(lambda (--cl-var-- cli) (or (if (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 2))) t (progn (setq --cl-var-- (car (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 1))))) (setq --cl-var-- nil))) (throw '--cl-block---cl-finish---- nil))) doom-cli--table)) --cl-var--)))) (if suggested (doom-print (doom-print--format "Did you mean %S?" suggested)) (doom-print (doom-print--format "There are no commands defined under %S." prefix))))) 4) (user-error (doom-print (doom-print--format (doom-print--style 'red "Error: %s") (car (cdr e)))) (doom-print (doom-print--format "\nAborting...")) 3))) context))))
  760. (unwind-protect (progn (fset #'message vnew) (let ((doom-print-stream standard-output)) (progn (if (and (not doom-inhibit-log) (or (not noninteractive) (<= 2 doom-log-level))) (progn (doom--log 2 "run!: %s %s" prefix (combine-and-quote-strings args)))) (add-hook 'kill-emacs-hook show-benchmark-fn 94) (add-hook 'kill-emacs-hook write-logs-fn 95) (if (doom-cli-context-pipe-p context :out t) (progn (setq doom-print-backend nil))) (if (doom-cli-context-pipe-p context :in) (progn (save-current-buffer (set-buffer (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 15)))) (while (let* ((in (and t (condition-case nil (progn (read-from-minibuffer "")) (error nil))))) (if in (insert in "\n") (condition-case nil (progn (delete-char -1)) (error nil)))))))) (doom-cli--exit (catch 'exit (condition-case e (let* ((args (cons (if (getenv "__DOOMDUMP") :dump prefix) args)) (context (doom-cli-context-restore (getenv "__DOOMCONTEXT") context)) (context (doom-cli-context-parse args context))) (run-hook-with-args 'doom-cli-before-run-functions context) (let ((result (doom-cli-context-execute context))) (run-hook-with-args 'doom-cli-after-run-functions context result)) 0) (doom-cli-wrong-number-of-arguments-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x34 (car-safe val)) (x35 (cdr-safe val))) (progn (ignore (consp x35)) (let* ((x36 (car-safe x35)) (x37 (cdr-safe x35))) (progn (ignore (consp x37)) (let* ((x38 (car-safe x37)) (x39 (cdr-safe x37))) (progn (ignore (consp x39)) (let* ((x40 (car-safe x39)) (x41 (cdr-safe x39))) (progn (ignore (consp x41)) (let* ((x42 (car-safe x41)) (x43 (cdr-safe x41))) (progn (ignore (null x43)) (let ((command x34) (flag x36) (args x38) (min x40) (max x42)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %S expected %s argument%s, but got %d") (or flag (doom-cli-command-string (if (keywordp (car command)) command (cdr command)))) (if (or (= min max) (= max most-positive-fixnum)) min (format "%d-%d" min max)) (if (or (= min 0) (> min 1)) "s" "") (length args))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e))))))))))))))) 5) (doom-cli-unrecognized-option-error (doom-print (doom-print--format (doom-print--style 'red "Error: unknown option %s") (car (cdr e)))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e) 5) (doom-cli-invalid-option-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x44 (car-safe val)) (x45 (cdr-safe val))) (progn (ignore (consp x45)) (let* ((x46 (car-safe x45)) (x47 (cdr-safe x45))) (progn (ignore (consp x47)) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (progn (ignore (consp x49)) (let* ((x50 (car-safe x49)) (x51 (cdr-safe x49))) (progn (ignore (null x51)) (let ((_types x44) (option x46) (value x48) (errors x50)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %s received invalid value %S") (string-join (let* ((cl-x option)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-option-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-option cl-x))) (aref cl-x 5))) "/") value)) (doom-print (doom-print--format (doom-print--style 'bold "\nValidation errors:"))) (let ((tail errors)) (while tail (let ((err (car tail))) (doom-print (doom-print--format (doom-print--class 'item "%s." (doom-print--class 'fill err)))) (setq tail (cdr tail))))))))))))))))) (doom-cli-call (cons ':help (cons "--postamble" (cdr (doom-cli--command context)))) context e) 5) (doom-cli-command-not-found-error (let* ((command (cdr e)) (cli (doom-cli-get command))) (cond ((null cli) (doom-print (doom-print--format (doom-print--style 'red "Error: unrecognized command: %s") (doom-cli-command-string command))) (doom-cli-call (cons ':help (cons "--similar" (cons "--postamble" (cdr command)))) context e)) ((null (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 9)))) (doom-print (doom-print--format (doom-print--style 'red "Error: a subcommand is required"))) (doom-cli-call (cons ':help (cons "--subcommands" (cons "--postamble" (cdr command)))) context e)))) 4) (doom-cli-invalid-prefix-error (let ((prefix (car (cdr e)))) (doom-print (doom-print--format (doom-print--style 'red "Error: `run!' called with invalid prefix %S") prefix)) (let* ((suggested (and t (let* ((--cl-var-- t) --cl-var--) (catch '--cl-block---cl-finish---- (maphash #'(lambda (--cl-var-- cli) (or (if (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 2))) t (progn (setq --cl-var-- (car (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 1))))) (setq --cl-var-- nil))) (throw '--cl-block---cl-finish---- nil))) doom-cli--table)) --cl-var--)))) (if suggested (doom-print (doom-print--format "Did you mean %S?" suggested)) (doom-print (doom-print--format "There are no commands defined under %S." prefix))))) 4) (user-error (doom-print (doom-print--format (doom-print--style 'red "Error: %s") (car (cdr e)))) (doom-print (doom-print--format "\nAborting...")) 3))) context)))) (fset #'message old))
  761. (let* ((vnew (doom-print--redirect-message streamspec (if noninteractive 'debug 'notice))) (old (symbol-function #'message))) (unwind-protect (progn (fset #'message vnew) (let ((doom-print-stream standard-output)) (progn (if (and (not doom-inhibit-log) (or (not noninteractive) (<= 2 doom-log-level))) (progn (doom--log 2 "run!: %s %s" prefix (combine-and-quote-strings args)))) (add-hook 'kill-emacs-hook show-benchmark-fn 94) (add-hook 'kill-emacs-hook write-logs-fn 95) (if (doom-cli-context-pipe-p context :out t) (progn (setq doom-print-backend nil))) (if (doom-cli-context-pipe-p context :in) (progn (save-current-buffer (set-buffer (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 15)))) (while (let* ((in (and t (condition-case nil (progn (read-from-minibuffer "")) (error nil))))) (if in (insert in "\n") (condition-case nil (progn (delete-char -1)) (error nil)))))))) (doom-cli--exit (catch 'exit (condition-case e (let* ((args (cons (if (getenv "__DOOMDUMP") :dump prefix) args)) (context (doom-cli-context-restore (getenv "__DOOMCONTEXT") context)) (context (doom-cli-context-parse args context))) (run-hook-with-args 'doom-cli-before-run-functions context) (let ((result (doom-cli-context-execute context))) (run-hook-with-args 'doom-cli-after-run-functions context result)) 0) (doom-cli-wrong-number-of-arguments-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x34 (car-safe val)) (x35 (cdr-safe val))) (progn (ignore (consp x35)) (let* ((x36 (car-safe x35)) (x37 (cdr-safe x35))) (progn (ignore (consp x37)) (let* ((x38 (car-safe x37)) (x39 (cdr-safe x37))) (progn (ignore (consp x39)) (let* ((x40 (car-safe x39)) (x41 (cdr-safe x39))) (progn (ignore (consp x41)) (let* ((x42 (car-safe x41)) (x43 (cdr-safe x41))) (progn (ignore (null x43)) (let ((command x34) (flag x36) (args x38) (min x40) (max x42)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %S expected %s argument%s, but got %d") (or flag (doom-cli-command-string (if (keywordp (car command)) command (cdr command)))) (if (or (= min max) (= max most-positive-fixnum)) min (format "%d-%d" min max)) (if (or (= min 0) (> min 1)) "s" "") (length args))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e))))))))))))))) 5) (doom-cli-unrecognized-option-error (doom-print (doom-print--format (doom-print--style 'red "Error: unknown option %s") (car (cdr e)))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e) 5) (doom-cli-invalid-option-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x44 (car-safe val)) (x45 (cdr-safe val))) (progn (ignore (consp x45)) (let* ((x46 (car-safe x45)) (x47 (cdr-safe x45))) (progn (ignore (consp x47)) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (progn (ignore (consp x49)) (let* ((x50 (car-safe x49)) (x51 (cdr-safe x49))) (progn (ignore (null x51)) (let ((_types x44) (option x46) (value x48) (errors x50)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %s received invalid value %S") (string-join (let* ((cl-x option)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-option-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-option cl-x))) (aref cl-x 5))) "/") value)) (doom-print (doom-print--format (doom-print--style 'bold "\nValidation errors:"))) (let ((tail errors)) (while tail (let ((err (car tail))) (doom-print (doom-print--format (doom-print--class 'item "%s." (doom-print--class 'fill err)))) (setq tail (cdr tail))))))))))))))))) (doom-cli-call (cons ':help (cons "--postamble" (cdr (doom-cli--command context)))) context e) 5) (doom-cli-command-not-found-error (let* ((command (cdr e)) (cli (doom-cli-get command))) (cond ((null cli) (doom-print (doom-print--format (doom-print--style 'red "Error: unrecognized command: %s") (doom-cli-command-string command))) (doom-cli-call (cons ':help (cons "--similar" (cons "--postamble" (cdr command)))) context e)) ((null (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 9)))) (doom-print (doom-print--format (doom-print--style 'red "Error: a subcommand is required"))) (doom-cli-call (cons ':help (cons "--subcommands" (cons "--postamble" (cdr command)))) context e)))) 4) (doom-cli-invalid-prefix-error (let ((prefix (car (cdr e)))) (doom-print (doom-print--format (doom-print--style 'red "Error: `run!' called with invalid prefix %S") prefix)) (let* ((suggested (and t (let* ((--cl-var-- t) --cl-var--) (catch '--cl-block---cl-finish---- (maphash #'(lambda (--cl-var-- cli) (or (if (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 2))) t (progn (setq --cl-var-- (car (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 1))))) (setq --cl-var-- nil))) (throw '--cl-block---cl-finish---- nil))) doom-cli--table)) --cl-var--)))) (if suggested (doom-print (doom-print--format "Did you mean %S?" suggested)) (doom-print (doom-print--format "There are no commands defined under %S." prefix))))) 4) (user-error (doom-print (doom-print--format (doom-print--style 'red "Error: %s") (car (cdr e)))) (doom-print (doom-print--format "\nAborting...")) 3))) context)))) (fset #'message old)))
  762. (let ((standard-output (doom-print--redirect-standard-output streamspec t))) (let* ((vnew (doom-print--redirect-message streamspec (if noninteractive 'debug 'notice))) (old (symbol-function #'message))) (unwind-protect (progn (fset #'message vnew) (let ((doom-print-stream standard-output)) (progn (if (and (not doom-inhibit-log) (or (not noninteractive) (<= 2 doom-log-level))) (progn (doom--log 2 "run!: %s %s" prefix (combine-and-quote-strings args)))) (add-hook 'kill-emacs-hook show-benchmark-fn 94) (add-hook 'kill-emacs-hook write-logs-fn 95) (if (doom-cli-context-pipe-p context :out t) (progn (setq doom-print-backend nil))) (if (doom-cli-context-pipe-p context :in) (progn (save-current-buffer (set-buffer (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 15)))) (while (let* ((in (and t (condition-case nil (progn (read-from-minibuffer "")) (error nil))))) (if in (insert in "\n") (condition-case nil (progn (delete-char -1)) (error nil)))))))) (doom-cli--exit (catch 'exit (condition-case e (let* ((args (cons (if (getenv "__DOOMDUMP") :dump prefix) args)) (context (doom-cli-context-restore (getenv "__DOOMCONTEXT") context)) (context (doom-cli-context-parse args context))) (run-hook-with-args 'doom-cli-before-run-functions context) (let ((result (doom-cli-context-execute context))) (run-hook-with-args 'doom-cli-after-run-functions context result)) 0) (doom-cli-wrong-number-of-arguments-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x34 (car-safe val)) (x35 (cdr-safe val))) (progn (ignore (consp x35)) (let* ((x36 (car-safe x35)) (x37 (cdr-safe x35))) (progn (ignore (consp x37)) (let* ((x38 (car-safe x37)) (x39 (cdr-safe x37))) (progn (ignore (consp x39)) (let* ((x40 (car-safe x39)) (x41 (cdr-safe x39))) (progn (ignore (consp x41)) (let* ((x42 (car-safe x41)) (x43 (cdr-safe x41))) (progn (ignore (null x43)) (let ((command x34) (flag x36) (args x38) (min x40) (max x42)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %S expected %s argument%s, but got %d") (or flag (doom-cli-command-string (if (keywordp (car command)) command (cdr command)))) (if (or (= min max) (= max most-positive-fixnum)) min (format "%d-%d" min max)) (if (or (= min 0) (> min 1)) "s" "") (length args))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e))))))))))))))) 5) (doom-cli-unrecognized-option-error (doom-print (doom-print--format (doom-print--style 'red "Error: unknown option %s") (car (cdr e)))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e) 5) (doom-cli-invalid-option-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x44 (car-safe val)) (x45 (cdr-safe val))) (progn (ignore (consp x45)) (let* ((x46 (car-safe x45)) (x47 (cdr-safe x45))) (progn (ignore (consp x47)) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (progn (ignore (consp x49)) (let* ((x50 (car-safe x49)) (x51 (cdr-safe x49))) (progn (ignore (null x51)) (let ((_types x44) (option x46) (value x48) (errors x50)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %s received invalid value %S") (string-join (let* ((cl-x option)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-option-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-option cl-x))) (aref cl-x 5))) "/") value)) (doom-print (doom-print--format (doom-print--style 'bold "\nValidation errors:"))) (let ((tail errors)) (while tail (let ((err (car tail))) (doom-print (doom-print--format (doom-print--class 'item "%s." (doom-print--class 'fill err)))) (setq tail (cdr tail))))))))))))))))) (doom-cli-call (cons ':help (cons "--postamble" (cdr (doom-cli--command context)))) context e) 5) (doom-cli-command-not-found-error (let* ((command (cdr e)) (cli (doom-cli-get command))) (cond ((null cli) (doom-print (doom-print--format (doom-print--style 'red "Error: unrecognized command: %s") (doom-cli-command-string command))) (doom-cli-call (cons ':help (cons "--similar" (cons "--postamble" (cdr command)))) context e)) ((null (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 9)))) (doom-print (doom-print--format (doom-print--style 'red "Error: a subcommand is required"))) (doom-cli-call (cons ':help (cons "--subcommands" (cons "--postamble" (cdr command)))) context e)))) 4) (doom-cli-invalid-prefix-error (let ((prefix (car (cdr e)))) (doom-print (doom-print--format (doom-print--style 'red "Error: `run!' called with invalid prefix %S") prefix)) (let* ((suggested (and t (let* ((--cl-var-- t) --cl-var--) (catch '--cl-block---cl-finish---- (maphash #'(lambda (--cl-var-- cli) (or (if (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 2))) t (progn (setq --cl-var-- (car (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 1))))) (setq --cl-var-- nil))) (throw '--cl-block---cl-finish---- nil))) doom-cli--table)) --cl-var--)))) (if suggested (doom-print (doom-print--format "Did you mean %S?" suggested)) (doom-print (doom-print--format "There are no commands defined under %S." prefix))))) 4) (user-error (doom-print (doom-print--format (doom-print--style 'red "Error: %s") (car (cdr e)))) (doom-print (doom-print--format "\nAborting...")) 3))) context)))) (fset #'message old))))
  763. (let ((streamspec (list (list '>= 'notice (let* ((cl-x doomctxt)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 16)))) (cons t (let* ((cl-x doomctxt)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 17))))))) (let ((standard-output (doom-print--redirect-standard-output streamspec t))) (let* ((vnew (doom-print--redirect-message streamspec (if noninteractive 'debug 'notice))) (old (symbol-function #'message))) (unwind-protect (progn (fset #'message vnew) (let ((doom-print-stream standard-output)) (progn (if (and (not doom-inhibit-log) (or (not noninteractive) (<= 2 doom-log-level))) (progn (doom--log 2 "run!: %s %s" prefix (combine-and-quote-strings args)))) (add-hook 'kill-emacs-hook show-benchmark-fn 94) (add-hook 'kill-emacs-hook write-logs-fn 95) (if (doom-cli-context-pipe-p context :out t) (progn (setq doom-print-backend nil))) (if (doom-cli-context-pipe-p context :in) (progn (save-current-buffer (set-buffer (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 15)))) (while (let* ((in (and t (condition-case nil (progn (read-from-minibuffer "")) (error nil))))) (if in (insert in "\n") (condition-case nil (progn (delete-char -1)) (error nil)))))))) (doom-cli--exit (catch 'exit (condition-case e (let* ((args (cons (if (getenv "__DOOMDUMP") :dump prefix) args)) (context (doom-cli-context-restore (getenv "__DOOMCONTEXT") context)) (context (doom-cli-context-parse args context))) (run-hook-with-args 'doom-cli-before-run-functions context) (let ((result (doom-cli-context-execute context))) (run-hook-with-args 'doom-cli-after-run-functions context result)) 0) (doom-cli-wrong-number-of-arguments-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x34 (car-safe val)) (x35 (cdr-safe val))) (progn (ignore (consp x35)) (let* ((x36 (car-safe x35)) (x37 (cdr-safe x35))) (progn (ignore (consp x37)) (let* ((x38 (car-safe x37)) (x39 (cdr-safe x37))) (progn (ignore (consp x39)) (let* ((x40 (car-safe x39)) (x41 (cdr-safe x39))) (progn (ignore (consp x41)) (let* ((x42 (car-safe x41)) (x43 (cdr-safe x41))) (progn (ignore (null x43)) (let ((command x34) (flag x36) (args x38) (min x40) (max x42)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %S expected %s argument%s, but got %d") (or flag (doom-cli-command-string (if (keywordp (car command)) command (cdr command)))) (if (or (= min max) (= max most-positive-fixnum)) min (format "%d-%d" min max)) (if (or (= min 0) (> min 1)) "s" "") (length args))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e))))))))))))))) 5) (doom-cli-unrecognized-option-error (doom-print (doom-print--format (doom-print--style 'red "Error: unknown option %s") (car (cdr e)))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e) 5) (doom-cli-invalid-option-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x44 (car-safe val)) (x45 (cdr-safe val))) (progn (ignore (consp x45)) (let* ((x46 (car-safe x45)) (x47 (cdr-safe x45))) (progn (ignore (consp x47)) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (progn (ignore (consp x49)) (let* ((x50 (car-safe x49)) (x51 (cdr-safe x49))) (progn (ignore (null x51)) (let ((_types x44) (option x46) (value x48) (errors x50)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %s received invalid value %S") (string-join (let* ((cl-x option)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-option-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-option cl-x))) (aref cl-x 5))) "/") value)) (doom-print (doom-print--format (doom-print--style 'bold "\nValidation errors:"))) (let ((tail errors)) (while tail (let ((err (car tail))) (doom-print (doom-print--format (doom-print--class 'item "%s." (doom-print--class 'fill err)))) (setq tail (cdr tail))))))))))))))))) (doom-cli-call (cons ':help (cons "--postamble" (cdr (doom-cli--command context)))) context e) 5) (doom-cli-command-not-found-error (let* ((command (cdr e)) (cli (doom-cli-get command))) (cond ((null cli) (doom-print (doom-print--format (doom-print--style 'red "Error: unrecognized command: %s") (doom-cli-command-string command))) (doom-cli-call (cons ':help (cons "--similar" (cons "--postamble" (cdr command)))) context e)) ((null (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 9)))) (doom-print (doom-print--format (doom-print--style 'red "Error: a subcommand is required"))) (doom-cli-call (cons ':help (cons "--subcommands" (cons "--postamble" (cdr command)))) context e)))) 4) (doom-cli-invalid-prefix-error (let ((prefix (car (cdr e)))) (doom-print (doom-print--format (doom-print--style 'red "Error: `run!' called with invalid prefix %S") prefix)) (let* ((suggested (and t (let* ((--cl-var-- t) --cl-var--) (catch '--cl-block---cl-finish---- (maphash #'(lambda (--cl-var-- cli) (or (if (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 2))) t (progn (setq --cl-var-- (car (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 1))))) (setq --cl-var-- nil))) (throw '--cl-block---cl-finish---- nil))) doom-cli--table)) --cl-var--)))) (if suggested (doom-print (doom-print--format "Did you mean %S?" suggested)) (doom-print (doom-print--format "There are no commands defined under %S." prefix))))) 4) (user-error (doom-print (doom-print--format (doom-print--style 'red "Error: %s") (car (cdr e)))) (doom-print (doom-print--format "\nAborting...")) 3))) context)))) (fset #'message old)))))
  764. (let* ((doomctxt context) (debugger (doom-rpartial #'doom-cli-debugger doomctxt)) (debug-on-error t)) (let ((streamspec (list (list '>= 'notice (let* ((cl-x doomctxt)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 16)))) (cons t (let* ((cl-x doomctxt)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 17))))))) (let ((standard-output (doom-print--redirect-standard-output streamspec t))) (let* ((vnew (doom-print--redirect-message streamspec (if noninteractive 'debug 'notice))) (old (symbol-function #'message))) (unwind-protect (progn (fset #'message vnew) (let ((doom-print-stream standard-output)) (progn (if (and (not doom-inhibit-log) (or (not noninteractive) (<= 2 doom-log-level))) (progn (doom--log 2 "run!: %s %s" prefix (combine-and-quote-strings args)))) (add-hook 'kill-emacs-hook show-benchmark-fn 94) (add-hook 'kill-emacs-hook write-logs-fn 95) (if (doom-cli-context-pipe-p context :out t) (progn (setq doom-print-backend nil))) (if (doom-cli-context-pipe-p context :in) (progn (save-current-buffer (set-buffer (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 15)))) (while (let* ((in (and t (condition-case nil (progn (read-from-minibuffer "")) (error nil))))) (if in (insert in "\n") (condition-case nil (progn (delete-char -1)) (error nil)))))))) (doom-cli--exit (catch 'exit (condition-case e (let* ((args (cons (if (getenv "__DOOMDUMP") :dump prefix) args)) (context (doom-cli-context-restore (getenv "__DOOMCONTEXT") context)) (context (doom-cli-context-parse args context))) (run-hook-with-args 'doom-cli-before-run-functions context) (let ((result (doom-cli-context-execute context))) (run-hook-with-args 'doom-cli-after-run-functions context result)) 0) (doom-cli-wrong-number-of-arguments-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x34 (car-safe val)) (x35 (cdr-safe val))) (progn (ignore (consp x35)) (let* ((x36 (car-safe x35)) (x37 (cdr-safe x35))) (progn (ignore (consp x37)) (let* ((x38 (car-safe x37)) (x39 (cdr-safe x37))) (progn (ignore (consp x39)) (let* ((x40 (car-safe x39)) (x41 (cdr-safe x39))) (progn (ignore (consp x41)) (let* ((x42 (car-safe x41)) (x43 (cdr-safe x41))) (progn (ignore (null x43)) (let ((command x34) (flag x36) (args x38) (min x40) (max x42)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %S expected %s argument%s, but got %d") (or flag (doom-cli-command-string (if (keywordp (car command)) command (cdr command)))) (if (or (= min max) (= max most-positive-fixnum)) min (format "%d-%d" min max)) (if (or (= min 0) (> min 1)) "s" "") (length args))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e))))))))))))))) 5) (doom-cli-unrecognized-option-error (doom-print (doom-print--format (doom-print--style 'red "Error: unknown option %s") (car (cdr e)))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e) 5) (doom-cli-invalid-option-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x44 (car-safe val)) (x45 (cdr-safe val))) (progn (ignore (consp x45)) (let* ((x46 (car-safe x45)) (x47 (cdr-safe x45))) (progn (ignore (consp x47)) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (progn (ignore (consp x49)) (let* ((x50 (car-safe x49)) (x51 (cdr-safe x49))) (progn (ignore (null x51)) (let ((_types x44) (option x46) (value x48) (errors x50)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %s received invalid value %S") (string-join (let* ((cl-x option)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-option-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-option cl-x))) (aref cl-x 5))) "/") value)) (doom-print (doom-print--format (doom-print--style 'bold "\nValidation errors:"))) (let ((tail errors)) (while tail (let ((err (car tail))) (doom-print (doom-print--format (doom-print--class 'item "%s." (doom-print--class 'fill err)))) (setq tail (cdr tail))))))))))))))))) (doom-cli-call (cons ':help (cons "--postamble" (cdr (doom-cli--command context)))) context e) 5) (doom-cli-command-not-found-error (let* ((command (cdr e)) (cli (doom-cli-get command))) (cond ((null cli) (doom-print (doom-print--format (doom-print--style 'red "Error: unrecognized command: %s") (doom-cli-command-string command))) (doom-cli-call (cons ':help (cons "--similar" (cons "--postamble" (cdr command)))) context e)) ((null (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 9)))) (doom-print (doom-print--format (doom-print--style 'red "Error: a subcommand is required"))) (doom-cli-call (cons ':help (cons "--subcommands" (cons "--postamble" (cdr command)))) context e)))) 4) (doom-cli-invalid-prefix-error (let ((prefix (car (cdr e)))) (doom-print (doom-print--format (doom-print--style 'red "Error: `run!' called with invalid prefix %S") prefix)) (let* ((suggested (and t (let* ((--cl-var-- t) --cl-var--) (catch '--cl-block---cl-finish---- (maphash #'(lambda (--cl-var-- cli) (or (if (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 2))) t (progn (setq --cl-var-- (car (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 1))))) (setq --cl-var-- nil))) (throw '--cl-block---cl-finish---- nil))) doom-cli--table)) --cl-var--)))) (if suggested (doom-print (doom-print--format "Did you mean %S?" suggested)) (doom-print (doom-print--format "There are no commands defined under %S." prefix))))) 4) (user-error (doom-print (doom-print--format (doom-print--style 'red "Error: %s") (car (cdr e)))) (doom-print (doom-print--format "\nAborting...")) 3))) context)))) (fset #'message old))))))
  765. (let* ((args (flatten-list args)) (context (make-doom-cli-context :prefix prefix :whole args)) (doom-cli--context context) (write-logs-fn (doom-partial #'doom-cli--output-write-logs-h context)) (show-benchmark-fn (doom-partial #'doom-cli--output-benchmark-h context))) (let* ((doomctxt context) (debugger (doom-rpartial #'doom-cli-debugger doomctxt)) (debug-on-error t)) (let ((streamspec (list (list '>= 'notice (let* ((cl-x doomctxt)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 16)))) (cons t (let* ((cl-x doomctxt)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 17))))))) (let ((standard-output (doom-print--redirect-standard-output streamspec t))) (let* ((vnew (doom-print--redirect-message streamspec (if noninteractive 'debug 'notice))) (old (symbol-function #'message))) (unwind-protect (progn (fset #'message vnew) (let ((doom-print-stream standard-output)) (progn (if (and (not doom-inhibit-log) (or (not noninteractive) (<= 2 doom-log-level))) (progn (doom--log 2 "run!: %s %s" prefix (combine-and-quote-strings args)))) (add-hook 'kill-emacs-hook show-benchmark-fn 94) (add-hook 'kill-emacs-hook write-logs-fn 95) (if (doom-cli-context-pipe-p context :out t) (progn (setq doom-print-backend nil))) (if (doom-cli-context-pipe-p context :in) (progn (save-current-buffer (set-buffer (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 15)))) (while (let* ((in (and t (condition-case nil (progn (read-from-minibuffer "")) (error nil))))) (if in (insert in "\n") (condition-case nil (progn (delete-char -1)) (error nil)))))))) (doom-cli--exit (catch 'exit (condition-case e (let* ((args (cons (if (getenv "__DOOMDUMP") :dump prefix) args)) (context (doom-cli-context-restore (getenv "__DOOMCONTEXT") context)) (context (doom-cli-context-parse args context))) (run-hook-with-args 'doom-cli-before-run-functions context) (let ((result (doom-cli-context-execute context))) (run-hook-with-args 'doom-cli-after-run-functions context result)) 0) (doom-cli-wrong-number-of-arguments-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x34 (car-safe val)) (x35 (cdr-safe val))) (progn (ignore (consp x35)) (let* ((x36 (car-safe x35)) (x37 (cdr-safe x35))) (progn (ignore (consp x37)) (let* ((x38 (car-safe x37)) (x39 (cdr-safe x37))) (progn (ignore (consp x39)) (let* ((x40 (car-safe x39)) (x41 (cdr-safe x39))) (progn (ignore (consp x41)) (let* ((x42 (car-safe x41)) (x43 (cdr-safe x41))) (progn (ignore (null x43)) (let ((command x34) (flag x36) (args x38) (min x40) (max x42)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %S expected %s argument%s, but got %d") (or flag (doom-cli-command-string (if (keywordp (car command)) command (cdr command)))) (if (or (= min max) (= max most-positive-fixnum)) min (format "%d-%d" min max)) (if (or (= min 0) (> min 1)) "s" "") (length args))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e))))))))))))))) 5) (doom-cli-unrecognized-option-error (doom-print (doom-print--format (doom-print--style 'red "Error: unknown option %s") (car (cdr e)))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e) 5) (doom-cli-invalid-option-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x44 (car-safe val)) (x45 (cdr-safe val))) (progn (ignore (consp x45)) (let* ((x46 (car-safe x45)) (x47 (cdr-safe x45))) (progn (ignore (consp x47)) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (progn (ignore (consp x49)) (let* ((x50 (car-safe x49)) (x51 (cdr-safe x49))) (progn (ignore (null x51)) (let ((_types x44) (option x46) (value x48) (errors x50)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %s received invalid value %S") (string-join (let* ((cl-x option)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-option-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-option cl-x))) (aref cl-x 5))) "/") value)) (doom-print (doom-print--format (doom-print--style 'bold "\nValidation errors:"))) (let ((tail errors)) (while tail (let ((err (car tail))) (doom-print (doom-print--format (doom-print--class 'item "%s." (doom-print--class 'fill err)))) (setq tail (cdr tail))))))))))))))))) (doom-cli-call (cons ':help (cons "--postamble" (cdr (doom-cli--command context)))) context e) 5) (doom-cli-command-not-found-error (let* ((command (cdr e)) (cli (doom-cli-get command))) (cond ((null cli) (doom-print (doom-print--format (doom-print--style 'red "Error: unrecognized command: %s") (doom-cli-command-string command))) (doom-cli-call (cons ':help (cons "--similar" (cons "--postamble" (cdr command)))) context e)) ((null (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 9)))) (doom-print (doom-print--format (doom-print--style 'red "Error: a subcommand is required"))) (doom-cli-call (cons ':help (cons "--subcommands" (cons "--postamble" (cdr command)))) context e)))) 4) (doom-cli-invalid-prefix-error (let ((prefix (car (cdr e)))) (doom-print (doom-print--format (doom-print--style 'red "Error: `run!' called with invalid prefix %S") prefix)) (let* ((suggested (and t (let* ((--cl-var-- t) --cl-var--) (catch '--cl-block---cl-finish---- (maphash #'(lambda (--cl-var-- cli) (or (if (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 2))) t (progn (setq --cl-var-- (car (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 1))))) (setq --cl-var-- nil))) (throw '--cl-block---cl-finish---- nil))) doom-cli--table)) --cl-var--)))) (if suggested (doom-print (doom-print--format "Did you mean %S?" suggested)) (doom-print (doom-print--format "There are no commands defined under %S." prefix))))) 4) (user-error (doom-print (doom-print--format (doom-print--style 'red "Error: %s") (car (cdr e)))) (doom-print (doom-print--format "\nAborting...")) 3))) context)))) (fset #'message old)))))))
  766. (let ((doom-context doom-context)) (doom-context-push 'run) (let* ((args (flatten-list args)) (context (make-doom-cli-context :prefix prefix :whole args)) (doom-cli--context context) (write-logs-fn (doom-partial #'doom-cli--output-write-logs-h context)) (show-benchmark-fn (doom-partial #'doom-cli--output-benchmark-h context))) (let* ((doomctxt context) (debugger (doom-rpartial #'doom-cli-debugger doomctxt)) (debug-on-error t)) (let ((streamspec (list (list '>= 'notice (let* ((cl-x doomctxt)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 16)))) (cons t (let* ((cl-x doomctxt)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 17))))))) (let ((standard-output (doom-print--redirect-standard-output streamspec t))) (let* ((vnew (doom-print--redirect-message streamspec (if noninteractive 'debug 'notice))) (old (symbol-function #'message))) (unwind-protect (progn (fset #'message vnew) (let ((doom-print-stream standard-output)) (progn (if (and (not doom-inhibit-log) (or (not noninteractive) (<= 2 doom-log-level))) (progn (doom--log 2 "run!: %s %s" prefix (combine-and-quote-strings args)))) (add-hook 'kill-emacs-hook show-benchmark-fn 94) (add-hook 'kill-emacs-hook write-logs-fn 95) (if (doom-cli-context-pipe-p context :out t) (progn (setq doom-print-backend nil))) (if (doom-cli-context-pipe-p context :in) (progn (save-current-buffer (set-buffer (let* ((cl-x context)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-context-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-context cl-x))) (aref cl-x 15)))) (while (let* ((in (and t (condition-case nil (progn (read-from-minibuffer "")) (error nil))))) (if in (insert in "\n") (condition-case nil (progn (delete-char -1)) (error nil)))))))) (doom-cli--exit (catch 'exit (condition-case e (let* ((args (cons (if (getenv "__DOOMDUMP") :dump prefix) args)) (context (doom-cli-context-restore (getenv "__DOOMCONTEXT") context)) (context (doom-cli-context-parse args context))) (run-hook-with-args 'doom-cli-before-run-functions context) (let ((result (doom-cli-context-execute context))) (run-hook-with-args 'doom-cli-after-run-functions context result)) 0) (doom-cli-wrong-number-of-arguments-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x34 (car-safe val)) (x35 (cdr-safe val))) (progn (ignore (consp x35)) (let* ((x36 (car-safe x35)) (x37 (cdr-safe x35))) (progn (ignore (consp x37)) (let* ((x38 (car-safe x37)) (x39 (cdr-safe x37))) (progn (ignore (consp x39)) (let* ((x40 (car-safe x39)) (x41 (cdr-safe x39))) (progn (ignore (consp x41)) (let* ((x42 (car-safe x41)) (x43 (cdr-safe x41))) (progn (ignore (null x43)) (let ((command x34) (flag x36) (args x38) (min x40) (max x42)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %S expected %s argument%s, but got %d") (or flag (doom-cli-command-string (if (keywordp (car command)) command (cdr command)))) (if (or (= min max) (= max most-positive-fixnum)) min (format "%d-%d" min max)) (if (or (= min 0) (> min 1)) "s" "") (length args))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e))))))))))))))) 5) (doom-cli-unrecognized-option-error (doom-print (doom-print--format (doom-print--style 'red "Error: unknown option %s") (car (cdr e)))) (doom-cli-call (cons ':help (cons "--synopsis" (cons "--postamble" (cdr (doom-cli--command context))))) context e) 5) (doom-cli-invalid-option-error (let* ((val (cdr e))) (progn (ignore (consp val)) (let* ((x44 (car-safe val)) (x45 (cdr-safe val))) (progn (ignore (consp x45)) (let* ((x46 (car-safe x45)) (x47 (cdr-safe x45))) (progn (ignore (consp x47)) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (progn (ignore (consp x49)) (let* ((x50 (car-safe x49)) (x51 (cdr-safe x49))) (progn (ignore (null x51)) (let ((_types x44) (option x46) (value x48) (errors x50)) (progn (doom-print (doom-print--format (doom-print--style 'red "Error: %s received invalid value %S") (string-join (let* ((cl-x option)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-option-tags) t))) (signal 'wrong-type-argument (list 'doom-cli-option cl-x))) (aref cl-x 5))) "/") value)) (doom-print (doom-print--format (doom-print--style 'bold "\nValidation errors:"))) (let ((tail errors)) (while tail (let ((err (car tail))) (doom-print (doom-print--format (doom-print--class 'item "%s." (doom-print--class 'fill err)))) (setq tail (cdr tail))))))))))))))))) (doom-cli-call (cons ':help (cons "--postamble" (cdr (doom-cli--command context)))) context e) 5) (doom-cli-command-not-found-error (let* ((command (cdr e)) (cli (doom-cli-get command))) (cond ((null cli) (doom-print (doom-print--format (doom-print--style 'red "Error: unrecognized command: %s") (doom-cli-command-string command))) (doom-cli-call (cons ':help (cons "--similar" (cons "--postamble" (cdr command)))) context e)) ((null (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 9)))) (doom-print (doom-print--format (doom-print--style 'red "Error: a subcommand is required"))) (doom-cli-call (cons ':help (cons "--subcommands" (cons "--postamble" (cdr command)))) context e)))) 4) (doom-cli-invalid-prefix-error (let ((prefix (car (cdr e)))) (doom-print (doom-print--format (doom-print--style 'red "Error: `run!' called with invalid prefix %S") prefix)) (let* ((suggested (and t (let* ((--cl-var-- t) --cl-var--) (catch '--cl-block---cl-finish---- (maphash #'(lambda (--cl-var-- cli) (or (if (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 2))) t (progn (setq --cl-var-- (car (let* ((cl-x cli)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-doom-cli-tags) t))) (signal 'wrong-type-argument (list 'doom-cli cl-x))) (aref cl-x 1))))) (setq --cl-var-- nil))) (throw '--cl-block---cl-finish---- nil))) doom-cli--table)) --cl-var--)))) (if suggested (doom-print (doom-print--format "Did you mean %S?" suggested)) (doom-print (doom-print--format "There are no commands defined under %S." prefix))))) 4) (user-error (doom-print (doom-print--format (doom-print--style 'red "Error: %s") (car (cdr e)))) (doom-print (doom-print--format "\nAborting...")) 3))) context)))) (fset #'message old))))))))
  767. run!("doom" ("install"))
  768. load-with-code-conversion("/home/jhin/.config/emacs/bin/doom" "/home/jhin/.config/emacs/bin/doom" nil t)
  769. command-line-1(("--load" "/home/jhin/.config/emacs/bin/doom" "--" "install"))
  770. command-line()
  771. normal-top-level()
  772. x There was an unexpected runtime error
  773. Message: Error with packages
  774. Details: ("ws-butler" (file-missing "Opening output file" "No such file or directory" "/home/jhin/.config/emacs/.local/state/logs/cli.doom.250331042001.138282.error"))
  775. Backtrace:
  776. (signal doom-package-error ("ws-butler" (file-missing "Opening output file" "No such file or directory" "/home/jhin/.config/emacs/.local/state/logs/cli.doom.250331042003.138282.error")))
  777. (condition-case e (let ((straight-vc-git-post-clone-hook (cons #'(lambda (&rest --cl-rest--) "\n\n(fn &key COMMIT &allow-other-keys)" (let* ((commit (car (cdr (plist-member --cl-rest-- ':commit)))...
  778. (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straight--build-dir package))) (if force-p nil (let* ((build (if (plist-member recipe :build) (plist-get recipe :build) t...
  779. (let* ((--cl-rest-- (append (list :recipe recipe) recipe)) (package (car (cdr (plist-member --cl-rest-- ':package)))) (local-repo (car (cdr (plist-member --cl-rest-- ':local-repo)))) (recipe (car ...
  780. (cl-destructuring-bind (&key package local-repo recipe &allow-other-keys) (append (list :recipe recipe) recipe) (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straight-...
  781. (straight--with-plist (append (list :recipe recipe) recipe) (package local-repo recipe) (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straight--build-dir package))) (i...
  782. (let ((recipe (car tail))) (straight--with-plist (append (list :recipe recipe) recipe) (package local-repo recipe) (let ((repo-dir (straight--repos-dir (or local-repo package))) (build-dir (straig...
  783. (while tail (let ((recipe (car tail))) (straight--with-plist (append (list :recipe recipe) recipe) (package local-repo recipe) (let ((repo-dir (straight--repos-dir (or local-repo package))) (build...
  784. (let ((tail recipes)) (while tail (let ((recipe (car tail))) (straight--with-plist (append (list :recipe recipe) recipe) (package local-repo recipe) (let ((repo-dir (straight--repos-dir (or local-...
  785. (let* ((recipes recipes) (built nil) (straight-use-package-pre-build-functions (cons #'(lambda (pkg &rest _) (setq built (if (member pkg built) built (cons pkg built)))) straight-use-package-pre-b...
  786. (and t (let* ((recipes recipes) (built nil) (straight-use-package-pre-build-functions (cons #'(lambda (pkg &rest _) (setq built (if (member pkg built) built (cons pkg built)))) straight-use-packag...
  787. (let* ((built (and t (let* ((recipes recipes) (built nil) (straight-use-package-pre-build-functions (cons #'(lambda (pkg &rest _) (setq built (if (member pkg built) built (cons pkg built)))) strai...
  788. GNU Emacs v30.1 nil
  789. Doom core v3.0.0-pre grafted, HEAD -> master, origin/master, origin/HEAD 67933f9 2025-03-31 02:28:39 -0400
  790. Doom modules v25.04.0-pre grafted, HEAD -> master, origin/master, origin/HEAD 67933f9 2025-03-31 02:28:39 -0400
  791. ! Wrote extended backtrace to ~/.config/emacs/.local/state/logs/cli.doom.250331042001.138282.error
  792. ✓ Finished in 3m 54s
  793.  
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!