Compare commits

..

4 commits

Author SHA1 Message Date
1f1d488cda
Move all the way up to company-yasnippet
Some checks are pending
/ Test config on ${{matrix.node}} (20) (push) Waiting to run
2024-07-27 09:42:48 +03:00
611b43098b
Move projectile 2024-07-27 09:32:20 +03:00
183e7d3919
Delete ctags 2024-07-27 09:26:48 +03:00
5a7c64ec04
Start from the bottom, move up to deft 2024-07-27 09:22:19 +03:00
25 changed files with 44 additions and 118 deletions

View file

@ -2,8 +2,6 @@
;;; Commentary: ;;; Commentary:
;;; Code: ;;; Code:
(require '+custom-pkg-projectile "$HOME/.emacs.d/pkg/projectile.el")
(require '+custom-pkg-ctags "$HOME/.emacs.d/pkg/ctags.el")
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(defun +custom-lang-clang/activate-clang-mode () (defun +custom-lang-clang/activate-clang-mode ()
@ -22,13 +20,7 @@
(defvar c-default-style "bsd")) (defvar c-default-style "bsd"))
(add-to-list (make-local-variable 'company-backends) (add-to-list (make-local-variable 'company-backends)
'(company-etags company-yasnippet)) '(company-etags company-yasnippet)))
(setq-local
ctags/refresh-command
(format
"ctags -e -R --languages=C -f %sTAGS %s/*"
(projectile-project-root) (projectile-project-root))))
(add-hook 'c-mode-hook '+custom-lang-clang/activate-clang-mode) (add-hook 'c-mode-hook '+custom-lang-clang/activate-clang-mode)

View file

@ -9,7 +9,7 @@
;;; Code: ;;; Code:
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-company-yasnippet "$HOME/.emacs.d/pkg/company-yasnippet.el") (require 'icejam-company-yasnippet)
(use-package slime :straight t) (use-package slime :straight t)
(use-package slime-company :straight t (use-package slime-company :straight t

View file

@ -3,7 +3,7 @@
;;; Code: ;;; Code:
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el") (require 'icejam-flycheck)
(require '+custom-pkg-transient "$HOME/.emacs.d/pkg/transient.el") (require '+custom-pkg-transient "$HOME/.emacs.d/pkg/transient.el")
(use-package elixir-mode :defer t :straight t) (use-package elixir-mode :defer t :straight t)

View file

@ -2,9 +2,9 @@
;;; Commentary: ;;; Commentary:
;;; Code: ;;; Code:
(require '+custom-pkg-ctags "$HOME/.emacs.d/pkg/ctags.el")
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-lsp "$HOME/.emacs.d/pkg/lsp.el") (require 'icejam-lsp)
(require 'icejam-projectile)
(use-package erlang (use-package erlang
:defer t :defer t

View file

@ -11,7 +11,7 @@
;;; Code: ;;; Code:
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el") (require 'icejam-lsp)
(use-package fsharp-mode (use-package fsharp-mode
:requires (lsp-mode lsp-ui) :requires (lsp-mode lsp-ui)

View file

@ -11,7 +11,6 @@
;;; Code: ;;; Code:
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(require '+custom-pkg-transient "$HOME/.emacs.d/pkg/transient.el") (require '+custom-pkg-transient "$HOME/.emacs.d/pkg/transient.el")
(use-package gleam-mode (use-package gleam-mode

View file

@ -11,7 +11,6 @@
;;; Code: ;;; Code:
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(require '+custom-pkg-transient "$HOME/.emacs.d/pkg/transient.el") (require '+custom-pkg-transient "$HOME/.emacs.d/pkg/transient.el")
(use-package haskell-mode (use-package haskell-mode

View file

@ -3,8 +3,8 @@
;;; Code: ;;; Code:
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el") (require 'icejam-flycheck)
(require '+custom-pkg-lsp "$HOME/.emacs.d/pkg/lsp.el") (require 'icejam-lsp)
(use-package js2-mode (use-package js2-mode
:requires (web-mode company-web lsp-mode lsp-ui) :requires (web-mode company-web lsp-mode lsp-ui)

View file

@ -3,7 +3,6 @@
;;; Code: ;;; Code:
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(use-package lean4-mode (use-package lean4-mode
:straight (lean4-mode :straight (lean4-mode

View file

@ -11,7 +11,7 @@
;;; Code: ;;; Code:
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el") (require 'icejam-flycheck)
(require '+custom-pkg-transient "$HOME/.emacs.d/pkg/transient.el") (require '+custom-pkg-transient "$HOME/.emacs.d/pkg/transient.el")
(use-package php-mode (use-package php-mode

View file

@ -3,11 +3,9 @@
;;; Code: ;;; Code:
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-projectile "$HOME/.emacs.d/pkg/projectile.el")
(require '+custom-pkg-ctags "$HOME/.emacs.d/pkg/ctags.el")
(transient-define-prefix +custom-lang-python/transient-context-menu () (transient-define-prefix +custom-lang-python/transient-context-menu ()
"Python Buffer Commands" "Python Buffer Commands."
["" [""
["LSP" ["LSP"
("m" "iMenu" lsp-ui-imenu)] ("m" "iMenu" lsp-ui-imenu)]

View file

@ -3,8 +3,7 @@
;;; Code: ;;; Code:
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-projectile "$HOME/.emacs.d/pkg/projectile.el") (require 'icejam-projectile)
(require '+custom-pkg-ctags "$HOME/.emacs.d/pkg/ctags.el")
(use-package rspec-mode :straight t :defer t) (use-package rspec-mode :straight t :defer t)
(use-package ruby-end :straight t :defer t) (use-package ruby-end :straight t :defer t)

View file

@ -3,7 +3,6 @@
;;; Code: ;;; Code:
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(use-package rust-mode (use-package rust-mode
:straight t :straight t

View file

@ -2,8 +2,8 @@
;;; Commentary: ;;; Commentary:
;;; Code: ;;; Code:
(require '+custom-pkg-lsp "$HOME/.emacs.d/pkg/lsp.el") (require 'icejam-lsp)
(require '+custom-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el") (require 'icejam-flycheck)
(use-package web-mode (use-package web-mode
:requires (lsp-mode flycheck) :requires (lsp-mode flycheck)

View file

@ -9,9 +9,6 @@
;; ziglang does a thing. ;; ziglang does a thing.
;;; Code: ;;; Code:
(require '+custom-pkg-projectile "$HOME/.emacs.d/pkg/projectile.el")
(require '+custom-pkg-ctags "$HOME/.emacs.d/pkg/ctags.el")
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(use-package zig-mode :straight t :defer t :requires (lsp)) (use-package zig-mode :straight t :defer t :requires (lsp))

View file

@ -1,4 +1,4 @@
;;; pkg/company-yasnippet -- summary -*- lexical-binding: t; -*- ;;; icejam-company-yasnippet.el -- summary -*- lexical-binding: t; -*-
;;; Commentary: ;;; Commentary:
;;; Company completion framework configuration ;;; Company completion framework configuration
;;; Code: ;;; Code:
@ -110,5 +110,5 @@
gptel-model "claude-3-5-sonnet-20240620" gptel-model "claude-3-5-sonnet-20240620"
gptel-backend (gptel-make-anthropic "Claude" :stream t :key (lambda () anthropic-api-key))) gptel-backend (gptel-make-anthropic "Claude" :stream t :key (lambda () anthropic-api-key)))
(provide '+custom-pkg-company-yasnippet) (provide 'icejam-company-yasnippet)
;;; company-yasnippet.el ends here ;;; icejam-company-yasnippet.el ends here

View file

@ -27,5 +27,5 @@
;; (registers . 5) ;; (registers . 5)
(projects . 5)))) (projects . 5))))
(provide '+custom-pkg-dashboard) (provide 'icejam-dashboard)
;;; dashboard.el ends here ;;; icejam-dashboard.el ends here

View file

@ -25,12 +25,12 @@
deft-auto-save-interval 30.0)) deft-auto-save-interval 30.0))
(transient-define-prefix +custom-pkg-deft/menu () (transient-define-prefix +custom-pkg-deft/menu ()
"Start Deft" "Start Deft."
["" [""
("d" "Deft" deft) ("d" "Deft" deft)
("q" "quit" keyboard-quit)]) ("q" "quit" keyboard-quit)])
(define-key +custom-keys-mode-map (kbd "C-c d") '+custom-pkg-deft/menu) (define-key +custom-keys-mode-map (kbd "C-c d") '+custom-pkg-deft/menu)
(provide '+custom-pkg-deft) (provide 'icejam-deft)
;;; deft.el ends here ;;; icejam-deft.el ends here

View file

@ -1,4 +1,4 @@
;;; pkg/flycheck -- summary -*- lexical-binding: t; -*- ;;; icejam-flycheck -- summary -*- lexical-binding: t; -*-
;;; Commentary: ;;; Commentary:
;;; Code: ;;; Code:
@ -8,6 +8,7 @@
:straight t :straight t
:defer t :defer t
:config (global-flycheck-mode t) :config (global-flycheck-mode t)
(setq flycheck-emacs-lisp-load-path 'inherit)
(unbind-key "C-c ! C-c" flycheck-mode-map) (unbind-key "C-c ! C-c" flycheck-mode-map)
(unbind-key "C-c ! C-w" flycheck-mode-map) (unbind-key "C-c ! C-w" flycheck-mode-map)
(unbind-key "C-c ! ?" flycheck-mode-map) (unbind-key "C-c ! ?" flycheck-mode-map)
@ -25,5 +26,5 @@
(unbind-key "C-c ! v" flycheck-mode-map) (unbind-key "C-c ! v" flycheck-mode-map)
(unbind-key "C-c ! x" flycheck-mode-map)) (unbind-key "C-c ! x" flycheck-mode-map))
(provide '+custom-pkg-flycheck) (provide 'icejam-flycheck)
;;; flycheck.el ends here ;;; icejam-flycheck.el ends here

View file

@ -37,19 +37,18 @@
(require '+custom-pkg-base "$HOME/.emacs.d/pkg/base.el") (require '+custom-pkg-base "$HOME/.emacs.d/pkg/base.el")
(require '+custom-pkg-sys-specific "$HOME/.emacs.d/pkg/sys-specific.el") (require '+custom-pkg-sys-specific "$HOME/.emacs.d/pkg/sys-specific.el")
(require '+custom-pkg-ivy "$HOME/.emacs.d/pkg/ivy.el") (require '+custom-pkg-ivy "$HOME/.emacs.d/pkg/ivy.el")
(require 'icejam-avy)
(require '+custom-pkg-transient "$HOME/.emacs.d/pkg/transient.el") (require '+custom-pkg-transient "$HOME/.emacs.d/pkg/transient.el")
(require '+custom-pkg-magit "$HOME/.emacs.d/pkg/magit.el") (require '+custom-pkg-magit "$HOME/.emacs.d/pkg/magit.el")
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-company-yasnippet "$HOME/.emacs.d/pkg/company-yasnippet.el") (require 'icejam-company-yasnippet)
(require '+custom-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el") (require 'icejam-flycheck)
(require '+custom-pkg-projectile "$HOME/.emacs.d/pkg/projectile.el") (require 'icejam-projectile)
(require '+custom-pkg-ctags "$HOME/.emacs.d/pkg/ctags.el") (require 'icejam-ispell)
(require '+custom-pkg-ispell "$HOME/.emacs.d/pkg/ispell.el") (require 'icejam-deft)
(require '+custom-pkg-deft "$HOME/.emacs.d/pkg/deft.el") (require 'icejam-lsp)
(require '+custom-pkg-lsp "$HOME/.emacs.d/pkg/lsp.el") (require 'icejam-dashboard)
(require '+custom-pkg-dashboard "$HOME/.emacs.d/pkg/dashboard.el") (require 'icejam-vundo)
(require '+custom-pkg-undo-tree "$HOME/.emacs.d/pkg/undo-tree.el")
(require 'icejam-avy)
(require 'icejam-speed-type) (require 'icejam-speed-type)
;; Themes ;; Themes

View file

@ -20,5 +20,5 @@
(use-package flyspell-correct :straight t :after flyspell :defer t) (use-package flyspell-correct :straight t :after flyspell :defer t)
(use-package flyspell-correct-ivy :straight :after flyspell-correct :defer t) (use-package flyspell-correct-ivy :straight :after flyspell-correct :defer t)
(provide '+custom-pkg-ispell) (provide 'icejam-ispell)
;;; ispell.el ends here ;;; icejam-ispell.el ends here

View file

@ -1,4 +1,4 @@
;;; pkg/lsp -- summary -*- lexical-binding: t; -*- ;;; icejam-lsp -- summary -*- lexical-binding: t; -*-
;;; Commentary: ;;; Commentary:
;;; Global Language Server Protocol Config ;;; Global Language Server Protocol Config
;;; Code: ;;; Code:
@ -80,5 +80,5 @@
:defer t :defer t
:requires (lsp-mode lsp-ui)) :requires (lsp-mode lsp-ui))
(provide '+custom-pkg-lsp) (provide 'icejam-lsp)
;;; lsp.el ends here ;;; icejam-lsp.el ends here

View file

@ -20,5 +20,5 @@
(projectile-mode t) (projectile-mode t)
(provide '+custom-pkg-projectile) (provide 'icejam-projectile)
;;; projectile.el ends here ;;; icejam-projectile.el ends here

View file

@ -1,4 +1,4 @@
;;; undo-tree.el --- summary -*- lexical-binding: t; -*- ;;; icejam-vundo.el --- summary -*- lexical-binding: t; -*-
;; Author: Maciej Szlosarczyk ;; Author: Maciej Szlosarczyk
;; Maintainer: Maciej Szlosarczyk ;; Maintainer: Maciej Szlosarczyk
@ -15,5 +15,5 @@
:straight t :straight t
:defer t) :defer t)
(provide '+custom-pkg-undo-tree) (provide 'icejam-vundo)
;;; undo-tree.el ends here ;;; icejam-vundo.el ends here

View file

@ -1,56 +0,0 @@
;;; pkg/ctags -- summary -*- lexical-binding: t; -*-
;;; Commentary:
;;; Old and rudimental completion framework.
;;; Code:
(require '+custom-pkg-projectile "$HOME/.emacs.d/pkg/projectile.el")
(setq tags-add-tables nil)
(defvar ctags/refresh-command
(format "ctags -e -R -f %sTAGS %s."
default-directory default-directory))
;; Sentinel function for capturing ctags
(defun ctags/process-callback (process event)
"Show status of asynchronous ctags PROCESS after it send finished EVENT."
(cond
((string-equal event "finished\n")
(message "Creating tag files...completed")
(kill-buffer (get-buffer "*ctags*"))
(visit-tags-table (format "%sTAGS" (projectile-project-root))))
(t
(message "Creating tags file...failed")
(pop-to-buffer (get-buffer "*ctags*"))
)))
(cl-defun ctags/refresh-ctags (&key silent)
"Refresh ctags according to currently set command. With SILENT you can make it, uhh... silent."
(interactive)
;; Print message if not silent
(when (not silent) (message "Starting ctags process..."))
;; Return if a version of the process is already running
(when (not (get-process "ctags"))
(start-process-shell-command "ctags" "*ctags*" ctags/refresh-command)
(set-process-sentinel (get-process "ctags") 'ctags/process-callback)))
;; Ctags bindings
(define-key prog-mode-map (kbd "C-c E") 'ctags/refresh-ctags)
;; Automatically update tags on save, but be silent about it.
(defvar ctags/major-modes-to-update-on-save '())
(defun ctags/update-tags-on-save ()
"Update tags if current major mode is part of the list."
(interactive)
(when (member major-mode ctags/major-modes-to-update-on-save)
(ctags/refresh-ctags :silent t)))
(defun ctags/update-this-mode-on-save (mode)
"Update MODE on save."
(add-to-list (make-local-variable 'ctags/major-modes-to-update-on-save) mode))
(add-hook 'after-save-hook 'ctags/update-tags-on-save)
(provide '+custom-pkg-ctags)
;;; ctags.el ends here