maciej/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update packages
All checks were successful
/ Test config on 20 (push) Successful in 27s
Details

Browse source
This commit is contained in:
Maciej 2024-11-11 07:58:11 +02:00
parent d15b0776b0
commit 34a2741886
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
4 changed files with 223 additions and 210 deletions
Download patch file Download diff file Expand all files Collapse all files

333
elpaca.lock
View file

File diff suppressed because it is too large Load diff

10
lisp/icejam-blocking.el
View file

@ -8,14 +8,16 @@
;; These packages are foundational dependency and possibly can be blocking. ;; These packages are foundational dependency and possibly can be blocking.
;;; Code: ;;; Code:
(use-package transient :ensure (:wait t)) (use-package transient :ensure t)
(use-package diminish :ensure (:wait t)) (use-package diminish :ensure t)
(use-package company :ensure (:wait t)) (use-package company :ensure t)
;; https://emacs-lsp.github.io/lsp-mode/page/performance/#use-plists-for-deserialization ;; https://emacs-lsp.github.io/lsp-mode/page/performance/#use-plists-for-deserialization
;; This supposedly makes it faster. ;; This supposedly makes it faster.
(setenv "LSP_USE_PLISTS" "true") (setenv "LSP_USE_PLISTS" "true")
(use-package lsp-mode :ensure (:wait t)) (use-package lsp-mode :ensure t)
(elpaca-wait)
(provide 'icejam-blocking) (provide 'icejam-blocking)
;;; icejam-blocking.el ends here ;;; icejam-blocking.el ends here

4
lisp/icejam-custom-init.el
View file

@ -67,6 +67,10 @@
(elpaca-load-lockfile (concat user-emacs-directory "elpaca.lock")) (elpaca-load-lockfile (concat user-emacs-directory "elpaca.lock"))
(use-package benchmark-init :ensure (:wait t)
:config
(add-hook 'after-init-hook 'benchmark-init/deactivate))
(defun icejam-elpaca-write-lock () (defun icejam-elpaca-write-lock ()
"Write elpaca lock file." "Write elpaca lock file."
(interactive) (interactive)

86
lisp/langs/icejam-lang-erlang.el
View file

@ -13,65 +13,65 @@
:ensure (:depth 1) :ensure (:depth 1)
:after (lsp lsp-ui)) :after (lsp lsp-ui))
(cl-defun icejam-erlang-emacs-path (erlang-version) ;; (cl-defun icejam-erlang-emacs-path (erlang-version)
"Find path to Emacs tooling for ERLANG-VERSION." ;; "Find path to Emacs tooling for ERLANG-VERSION."
(car (split-string ;; (car (split-string
(shell-command-to-string ;; (shell-command-to-string
(format "find $HOME/.asdf/installs/erlang/%s/ -name erlang.el" ;; (format "find $HOME/.asdf/installs/erlang/%s/ -name erlang.el"
erlang-version)) "erlang.el"))) ;; erlang-version)) "erlang.el")))
(cl-defun icejam-erlang-path (erlang-version) ;; (cl-defun icejam-erlang-path (erlang-version)
"Find asdf path for ERLANG-VERSION." ;; "Find asdf path for ERLANG-VERSION."
(format "$HOME/.asdf/installs/erlang/%s/" erlang-version)) ;; (format "$HOME/.asdf/installs/erlang/%s/" erlang-version))
(defun icejam-erlang-plist (erlang-version) ;; (defun icejam-erlang-plist (erlang-version)
"Create property list for ERLANG-VERSION." ;; "Create property list for ERLANG-VERSION."
(list :version erlang-version ;; (list :version erlang-version
:erlang-path (icejam-erlang-path erlang-version) ;; :erlang-path (icejam-erlang-path erlang-version)
:emacs-path (icejam-erlang-emacs-path erlang-version))) ;; :emacs-path (icejam-erlang-emacs-path erlang-version)))
(cl-defun icejam-installed-erlangs () ;; (cl-defun icejam-installed-erlangs ()
"List Erlang versions installed with asdf." ;; "List Erlang versions installed with asdf."
(split-string ;; (split-string
(shell-command-to-string ;; (shell-command-to-string
(format "asdf list erlang")))) ;; (format "asdf list erlang"))))
(cl-defun icejam-erlang-available-versions--plist () ;; (cl-defun icejam-erlang-available-versions--plist ()
"Create plist for all installed Erlang versions." ;; "Create plist for all installed Erlang versions."
(mapcar 'icejam-erlang-plist (icejam-installed-erlangs))) ;; (mapcar 'icejam-erlang-plist (icejam-installed-erlangs)))
(defvar icejam-erlang-available-versions (icejam-erlang-available-versions--plist)) ;; (defvar icejam-erlang-available-versions (icejam-erlang-available-versions--plist))
(cl-defun icejam-erlang-currently-in-use () ;; (cl-defun icejam-erlang-currently-in-use ()
"Get Erlang version currently in use." ;; "Get Erlang version currently in use."
(car (split-string (shell-command-to-string "asdf current erlang")))) ;; (car (split-string (shell-command-to-string "asdf current erlang"))))
(cl-defun icejam-erlang-current-version--plistp (erlang-plist) ;; (cl-defun icejam-erlang-current-version--plistp (erlang-plist)
"Check if currently in use Erlang is the same as the one in ERLANG-PLIST." ;; "Check if currently in use Erlang is the same as the one in ERLANG-PLIST."
(equal (plist-get erlang-plist :version) (icejam-erlang-currently-in-use))) ;; (equal (plist-get erlang-plist :version) (icejam-erlang-currently-in-use)))
(cl-defun icejam-erlang-current-plist () ;; (cl-defun icejam-erlang-current-plist ()
"Create plist from current Erlang version." ;; "Create plist from current Erlang version."
(seq-find 'icejam-erlang-current-version--plistp icejam-erlang-available-versions)) ;; (seq-find 'icejam-erlang-current-version--plistp icejam-erlang-available-versions))
(defun icejam-activate-erlang-mode () (defun icejam-activate-erlang-mode ()
"All things for all Erlang, including header files." "All things for all Erlang, including header files."
(when (featurep 'erlang-start) (unload-feature 'erlang-start)) ;; (when (featurep 'erlang-start) (unload-feature 'erlang-start))
(defvar erlang/current-erlang (icejam-erlang-current-plist)) ;; (defvar erlang/current-erlang (icejam-erlang-current-plist))
(add-to-list (make-local-variable 'load-path) ;; (add-to-list (make-local-variable 'load-path)
(plist-get erlang/current-erlang :emacs-path)) ;; (plist-get erlang/current-erlang :emacs-path))
(add-to-list (make-local-variable 'exec-path) ;; (add-to-list (make-local-variable 'exec-path)
(format "%slib/tools-3.1/emacs" ;; (format "%slib/tools-3.1/emacs"
(plist-get erlang/current-erlang :erlang-path))) ;; (plist-get erlang/current-erlang :erlang-path)))
(setq-local erlang-man-root-dir ;; (setq-local erlang-man-root-dir
(format "%sman" ;; (format "%sman"
(plist-get erlang/current-erlang :erlang-path))) ;; (plist-get erlang/current-erlang :erlang-path)))
(require 'erlang-start) ;; (require 'erlang-start)
(icejam-set-indent 4) (icejam-set-indent 4)
(column-enforce-n 80) (column-enforce-n 80)