From 706607afba7ecd268fb1b7c8b8a62251194fcec1 Mon Sep 17 00:00:00 2001 From: Maciej Szlosarczyk Date: Wed, 30 Oct 2024 14:34:41 +0200 Subject: [PATCH 1/2] Does it start and exit without problems? --- .forgejo/workflows/demo.yml | 2 +- lisp/icejam-base.el | 30 +++++++++++++++--------------- lisp/icejam-company-yasnippet.el | 2 +- lisp/icejam-completing-read.el | 6 +++--- lisp/icejam-custom-init.el | 14 +++++++------- lisp/icejam-flycheck.el | 2 +- lisp/icejam-fonts.el | 6 +++--- lisp/icejam-prog-mode.el | 4 ++-- lisp/icejam-themes.el | 2 +- 9 files changed, 34 insertions(+), 34 deletions(-) diff --git a/.forgejo/workflows/demo.yml b/.forgejo/workflows/demo.yml index db8562d..acf5859 100644 --- a/.forgejo/workflows/demo.yml +++ b/.forgejo/workflows/demo.yml @@ -20,7 +20,7 @@ jobs: run: npm install -g @emacs-eask/cli - name: Run tests - run: eask test buttercup + run: emacs --init-directory . --debug-init --eval "(kill-emacs 0)" - name: Uninstall eask run: npm uninstall -g @emacs-eask/cli diff --git a/lisp/icejam-base.el b/lisp/icejam-base.el index 6757441..5659f00 100644 --- a/lisp/icejam-base.el +++ b/lisp/icejam-base.el @@ -15,7 +15,7 @@ ;;;;;;;; Stolen from Doom Emacs. ;;;;;;;;;;;;; ;; Update emacs less often -(setq idle-update-delay 1.0) +(setopt idle-update-delay 1.0) ;; Disable bidirectional text rendering for a modest performance boost. I've set ;; this to `nil' in the past, but the `bidi-display-reordering's docs say that @@ -26,16 +26,16 @@ ;; Reduce rendering/line scan work for Emacs by not rendering cursors or regions ;; in non-focused windows. (setq-default cursor-in-non-selected-windows nil) -(setq highlight-nonselected-windows nil) +(setopt highlight-nonselected-windows nil) ;; More performant rapid scrolling over unfontified regions. May cause brief ;; spells of inaccurate syntax highlighting right after scrolling, which should ;; quickly self-correct. -(setq fast-but-imprecise-scrolling t) +(setopt fast-but-imprecise-scrolling t) ;;;;;;;;; TRAMP configuration ;;;;;;;;;;;;;;;; (require 'tramp) -(setq tramp-default-method "ssh") +(setopt tramp-default-method "ssh") ;;;;;;;;; Emacs bindings ;;;;;;;;;;;;;;;;;;;;; (global-set-key (kbd "RET") 'newline) @@ -56,19 +56,19 @@ (gcmh-mode t)) ;; #====================== Backup config #============================== -(setq backup-directory-alist +(setopt backup-directory-alist `((".*" . "~/.emacs.d/backups/auto-save-list"))) -(setq auto-save-file-name-transforms +(setopt auto-save-file-name-transforms `((".*", "~/.emacs.d/backups/auto-save-list" t))) -(setq backup-by-copying t) -(setq delete-old-versions t +(setopt backup-by-copying t) +(setopt delete-old-versions t kept-new-versions 6 kept-old-versions 2 version-control t) ; Do not create .#foo.file lock files -(setq create-lockfiles nil) +(setopt create-lockfiles nil) ;; Enable line numbers and show cursors position (add-hook 'prog-mode-hook 'display-line-numbers-mode) @@ -78,16 +78,16 @@ (column-number-mode t) ;; Turn off sounds -(setq ring-bell-function 'ignore) +(setopt ring-bell-function 'ignore) ;; Enable y/n answers to questions (setopt use-short-answers t) ;; Only warn if a file is bigger than 50 MB when trying to open it -(setq large-file-warning-threshold 50000000) +(setopt large-file-warning-threshold 50000000) ;; Numbers are arbitrary, but work on a large screen. Default is 160 -(setq split-width-threshold 200) +(setopt split-width-threshold 200) ;;;;;;;;;;;;;;;;;;;;;; Shell stuff ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on) @@ -110,13 +110,13 @@ (direnv-mode t)) ;; Draw underline lower -(setq x-underline-at-descent-line t) +(setopt x-underline-at-descent-line t) ;;; Get rid of bad parts of the windows (tool-bar-mode -1) (scroll-bar-mode -1) -(setq indicate-buffer-boundaries nil - indicate-empty-lines nil) +(setopt indicate-buffer-boundaries nil + indicate-empty-lines nil) ;;;;;;;;;;;;;;;;; Treemacs (use-package treemacs :ensure t diff --git a/lisp/icejam-company-yasnippet.el b/lisp/icejam-company-yasnippet.el index 3a63908..f05a13b 100644 --- a/lisp/icejam-company-yasnippet.el +++ b/lisp/icejam-company-yasnippet.el @@ -54,7 +54,7 @@ ) ;; Absolute defaults for company mode - (setq company-backends + (setopt company-backends '((company-files ; files & directory company-keywords ; keywords company-capf diff --git a/lisp/icejam-completing-read.el b/lisp/icejam-completing-read.el index d5da6d7..667684c 100644 --- a/lisp/icejam-completing-read.el +++ b/lisp/icejam-completing-read.el @@ -9,7 +9,7 @@ (require 'icejam-keys-mode) ;; Preparations for using Vertico/Orderless -(setq +(setopt ;; Support opening new minibuffers from inside existing minibuffers. enable-recursive-minibuffers t ;; Hide commands in M-x which do not work in the current mode. Vertico @@ -17,10 +17,10 @@ ;; Vertico. read-extended-command-predicate #'command-completion-default-include-p ;; Do not allow the cursor in the minibuffer prompt - minibuffer-prompt-properties '(read-only t cursor-intangible t face minibuffer-prompt)) + minibuffer-prompt-properties + '(read-only t cursor-intangible t face minibuffer-prompt)) (defun crm-indicator (args) ->>>>>>> use-elpaca (cons (format "[CRM%s] %s" (replace-regexp-in-string "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" "" diff --git a/lisp/icejam-custom-init.el b/lisp/icejam-custom-init.el index 6c8aa3d..b9c0682 100644 --- a/lisp/icejam-custom-init.el +++ b/lisp/icejam-custom-init.el @@ -11,11 +11,11 @@ ;;; Code: ;; Set GC at 500 MB for startup -(setq gc-cons-threshold 500000000) -(setq gc-cons-percentage 0.6) +(setopt gc-cons-threshold 500000000) +(setopt gc-cons-percentage 0.6) ;; Allow for deeper stacktraces / recursion -;; (setq max-lisp-eval-depth 10000) +;; (setopt max-lisp-eval-depth 10000) ;;; Use elpaca for package management. (defvar elpaca-installer-version 0.7) @@ -58,8 +58,8 @@ (elpaca `(,@elpaca-order)) ;; Use package settings -(setq use-package-verbose t) -(setq use-package-compute-statistics t) +(setopt use-package-verbose t) +(setopt use-package-compute-statistics t) (elpaca elpaca-use-package ;; Enable use-package :ensure support for Elpaca. (elpaca-use-package-mode)) @@ -135,8 +135,8 @@ (require 'icejam-diminish) ;; Restore GC to normal, but still high -(setq gc-cons-threshold 200000000) -(setq gc-cons-percentage 0.2) +(setopt gc-cons-threshold 200000000) +(setopt gc-cons-percentage 0.2) (provide 'icejam-custom-init) ;;; icejam-custom-init.el ends here diff --git a/lisp/icejam-flycheck.el b/lisp/icejam-flycheck.el index 9955eab..4477e2b 100644 --- a/lisp/icejam-flycheck.el +++ b/lisp/icejam-flycheck.el @@ -7,7 +7,7 @@ :custom ((flycheck-emacs-lisp-load-path 'inherit)) :config (global-flycheck-mode t) - (setq flycheck-emacs-lisp-load-path 'inherit) + (setopt flycheck-emacs-lisp-load-path 'inherit) (unbind-key "C-c ! C-c" flycheck-mode-map) (unbind-key "C-c ! C-w" flycheck-mode-map) (unbind-key "C-c ! ?" flycheck-mode-map) diff --git a/lisp/icejam-fonts.el b/lisp/icejam-fonts.el index d4059c1..7b57db3 100644 --- a/lisp/icejam-fonts.el +++ b/lisp/icejam-fonts.el @@ -50,7 +50,7 @@ in icejam-set-font-to-screen.") (defun icejam-set-lsp-ui-font-hook () "Reset LSP IO font to specified icejam-font and icejam-font-size." - (setq lsp-ui-doc-frame-hook nil) + (setopt lsp-ui-doc-frame-hook nil) (add-hook 'lsp-ui-doc-frame-hook (lambda (frame _w) (set-face-attribute @@ -60,8 +60,8 @@ in icejam-set-font-to-screen.") (defun icejam-set-font (name size) "Set font to NAME and its SIZE to X pixels." (interactive "sNew font: \nnEnter size for %s: ") - (setq icejam-mut-font name) - (setq icejam-mut-font-size size) + (setopt icejam-mut-font name) + (setopt icejam-mut-font-size size) (set-face-attribute 'default nil :font (format "%s %d" name size)) diff --git a/lisp/icejam-prog-mode.el b/lisp/icejam-prog-mode.el index decd613..9bfe091 100644 --- a/lisp/icejam-prog-mode.el +++ b/lisp/icejam-prog-mode.el @@ -47,8 +47,8 @@ (add-to-list 'dash-at-point-mode-alist '(elixir-ts-mode . "elixir,hex"))) ;; By default, use 2 spaces for indentation -(setq tab-width 2) -(setq tab-stop-list (number-sequence tab-width 200 tab-width)) +(setopt tab-width 2) +(setopt tab-stop-list (number-sequence tab-width 200 tab-width)) ;; Ensure indentation in steps: (defun icejam-set-indent (step) diff --git a/lisp/icejam-themes.el b/lisp/icejam-themes.el index 32eb4db..d79a0bc 100644 --- a/lisp/icejam-themes.el +++ b/lisp/icejam-themes.el @@ -54,7 +54,7 @@ ;; My own theme modifications: (with-eval-after-load 'base16-theme - (setq base16-theme-256-color-source "colors") + (setopt base16-theme-256-color-source 'colors) (require 'icejam-base16-zenburn) (require 'icejam-base16-harmonic-light) From ba82470beaaf787f92495c749683950c42dfa0d0 Mon Sep 17 00:00:00 2001 From: Maciej Szlosarczyk Date: Wed, 30 Oct 2024 14:41:35 +0200 Subject: [PATCH 2/2] No workey --- .forgejo/workflows/demo.yml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.forgejo/workflows/demo.yml b/.forgejo/workflows/demo.yml index acf5859..db8562d 100644 --- a/.forgejo/workflows/demo.yml +++ b/.forgejo/workflows/demo.yml @@ -20,7 +20,7 @@ jobs: run: npm install -g @emacs-eask/cli - name: Run tests - run: emacs --init-directory . --debug-init --eval "(kill-emacs 0)" + run: eask test buttercup - name: Uninstall eask run: npm uninstall -g @emacs-eask/cli