blob: 70dc5e8ed6d62570fab0fe0f69f4becc940b329a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
;;; init-packages.el --- Package Configuration File -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;; TODO - straight.el?
(require 'package)
(require 'url)
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
("melpa-stable" . "https://stable.melpa.org/packages/")
("nongnu" . "https://elpa.nongnu.org/nongnu/")
("elpa" . "https://elpa.gnu.org/packages/")))
(package-initialize)
(unless package-archive-contents
(package-refresh-contents))
(setq package-native-compile t)
(unless (package-installed-p 'use-package)
(package-install 'use-package))
(require 'use-package)
(setq use-package-always-ensure t)
(use-package diminish)
(use-package paradox
:config
(paradox-enable))
(defvar vertico-extensions-dir (expand-file-name "site-lisp/vertico-extensions" user-emacs-directory))
(defvar vertico-extensions '("vertico-directory" "vertico-repeat"))
(defun fetch-vertico-extensions ()
"Download the latest versions of the required vertico extensions into vertico-extensions-dir."
(dolist (extension vertico-extensions)
(let ((ext-file (format "%s.el" extension)))
(url-copy-file
(format "https://raw.githubusercontent.com/minad/vertico/main/extensions/%s" ext-file)
(expand-file-name ext-file vertico-extensions-dir)
t))))
(unless (file-directory-p vertico-extensions-dir)
(make-directory vertico-extensions-dir t)
(fetch-vertico-extensions))
(use-package epl
:config
(defvar my/system-packages '("vterm"))
(defun my/upgrade-packages ()
(interactive)
(epl-refresh)
(when-let ((upgrades (seq-filter (lambda (p) (not (member (epl-package-name p) my/system-packages)))
(mapcar 'epl-upgrade-available (epl-find-upgrades)))))
(epl-upgrade upgrades))
(fetch-vertico-extensions)
(message "Package upgrade finished.")))
(provide 'init-packages)
;;; init-packages.el ends here
|