This commit is contained in:
k 2025-01-25 23:08:59 -05:00
parent 498bc27ffd
commit 0d2ce3b5c4

223
init.el
View File

@ -1,177 +1,96 @@
(tool-bar-mode -1) ;;Look
(scroll-bar-mode -1) (tool-bar-mode 0)
(menu-bar-mode -1) (scroll-bar-mode 0)
(menu-bar-mode 0)
(set-fringe-mode 0) (set-fringe-mode 0)
(setq ring-bell-function 'ignore) (blink-cursor-mode 0)
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(package-initialize)
(require 'use-package)
(require 'org-tempo)
(set-frame-parameter nil 'alpha-background 80) (set-frame-parameter nil 'alpha-background 80)
(add-to-list 'default-frame-alist '(alpha-background . 80)) (add-to-list 'default-frame-alist '(alpha-background . 80))
(use-package magit :ensure t) (setq-default line-spacing 1)
(use-package direnv :ensure t) (setq-default cursor-type '(bar . 2))
(use-package docker :ensure t) (setq-default ring-bell-function 'ignore)
(use-package elpher :ensure t)
(use-package rust-mode :ensure t)
(use-package nerd-icons :ensure t)
(use-package gemini-mode :ensure t)
(use-package system-packages :ensure t)
(use-package latex-preview-pane :ensure t)
(use-package eglot) ;;~ and # files
(setq make-backup-files nil)
(setq auto-save-default nil)
(use-package which-key ;;pkgs
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(package-initialize)
(require 'use-package)
(use-package magit :ensure t)
(use-package nerd-icons :ensure t)
(use-package direnv
:ensure t :ensure t
:config :bind ("C-; d" . direnv-allow))
(which-key-mode))
(use-package elfeed (use-package elfeed
:ensure t :ensure t
:bind (("C-c r" . elfeed))) :bind (("C-; r" . elfeed)))
(use-package elfeed-org (use-package which-key
:ensure t :ensure t
:init :init (which-key-mode))
(elfeed-org)
:config
(setq rmh-elfeed-org-files (list "~/.config/emacs/elfeed.org")))
(add-hook 'elfeed-new-entry-hook
(elfeed-make-tagger :feed-url "youtube\\.com"
:add '(video youtube)))
(use-package elfeed-dashboard
:ensure t
:config
(setq elfeed-dashboard-file "~/.config/emacs/elfeed-dashboard.org")
(advice-add 'elfeed-search-quit-window :after #'elfeed-dashboard-update-links))
(use-package emojify (use-package emojify
:ensure t :ensure t
:hook (after-init . global-emojify-mode)) :init (global-emojify-mode))
(use-package dashboard (use-package latex-preview-pane
:ensure t :ensure t
:config :init (latex-preview-pane-enable))
(setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*"))))
(use-package org
:ensure t
:custom (org-return-follows-link t))
(use-package elfeed-org
:ensure t
:init (elfeed-org)
:custom (rmh-elfeed-org-files (list "~/.config/emacs/elfeed.org")))
(use-package org-roam (use-package org-roam
:ensure t :ensure t
:init :init (org-roam-db-autosync-mode)
(setq org-roam-v2-ack t) :custom ((org-roam-v2-ack t)
:custom (org-roam-directory (file-truename "~/Notes")))
(org-roam-directory (file-truename "~/Notes")) :bind (("C-; n l" . org-roam-buffer-toggle)
:bind (("C-c n l" . org-roam-buffer-toggle) ("C-; n f" . org-roam-node-find)
("C-c n f" . org-roam-node-find) ("C-; n i" . org-roam-node-insert)))
("C-c n i" . org-roam-node-insert)))
(org-roam-db-autosync-mode)
(use-package ellama (use-package eglot
:bind ("C-c e" . ellama-transient-main-menu) :ensure t
:init :bind(("C-; e a" . eglot-code-actions)
(setopt ellama-language "Esperonto") ("C-; e i" . eglot-find-implementation)
(require 'llm-ollama) ("C-; e d" . eglot-find-declaration)
(setopt ellama-provider ("C-; e t" . eglot-find-typeDefinition)
(make-llm-ollama ("C-; e f" . eglot-format)
:chat-model "llama3.2" ("C-; e r" . eglot-rename)))
:embedding-model "nomic-embed-text"
:default-chat-non-standard-params '(("num_ctx" . 8192))))
(setopt ellama-summarization-provider (use-package dashboard
(make-llm-ollama :ensure t
:chat-model "qwen2.5:3b" :init (dashboard-setup-startup-hook)
:embedding-model "nomic-embed-text" :custom ((dashboard-display-icons-p t)
:default-chat-non-standard-params '(("num_ctx" . 32768)))) (dashboard-icon-type 'nerd-icons)
(dashboard-center-content t)
(dashboard-vertically-center-content t)
(dashboard-items '((recents . 5)
(bookmarks . 5)
(projects . 5)))))
(setopt ellama-coding-provider ;;c asserts
(make-llm-ollama (defun c--assert ()
:chat-model "llama3.2" (interactive)
:embedding-model "nomic-embed-text" (define-skeleton assert "cassert" "Test:" "assert(" str " && \"" (skeleton-read "Error Text:") "\");" _ )
:default-chat-non-standard-params '(("num_ctx" . 32768)))) (assert))
(setopt ellama-providers (with-eval-after-load 'cc-mode
'(("granite-moe" . (make-llm-ollama :chat-model "granite3-moe:3b")) (define-key c-mode-map (kbd "C-S-a") 'c--assert))
("llama3.2" . (make-llm-ollama :chat-model "llama3.2"))
("llama2" . (make-llm-ollama :chat-model "llama2-uncensored"))
("qwen2.5" . (make-llm-ollama :chat-model "qwen2.5:3b"))
("gemma2" . (make-llm-ollama :chat-model "gemma2:2b"))
("codegemma" . (make-llm-ollama :chat-model "codegemma:2b"))
))
(setopt ellama-naming-provider ;;Custom-file
(make-llm-ollama (setq custom-file (concat user-emacs-directory "custom.el"))
:chat-model "gemma2:2b")) (load custom-file 'noerror)
(setopt ellama-naming-scheme 'ellama-generate-name-by-llm)
(setopt ellama-translation-provider
(make-llm-ollama
:chat-model "qwen2.5:3b"
:embedding-model "nomic-embed-text"
:default-chat-non-standard-params
'(("num_ctx" . 32768)))))
(setq org-return-follows-link t)
(setf (cdr (assoc 'file org-link-frame-setup)) 'find-file)
(global-activity-watch-mode)
(setq dashboard-display-icons-p t) ; display icons on both GUI and terminal
(setq dashboard-icon-type 'nerd-icons) ; use `nerd-icons' package
(setq dashboard-center-content t)
(setq dashboard-vertically-center-content t)
(setq dashboard-items '((recents . 5)
(bookmarks . 5)
(projects . 5)
))
(latex-preview-pane-enable)
(setq-default indent-tabs-mode)
(defun mode-line-render (left right)
(let* ((available-width (- (window-width) (length left) )))
(format (format "%%s %%%ds" available-width) left right)))
(setq-default mode-line-format
'((:eval
(mode-line-render
(format-mode-line (list
(propertize "" 'face `(:inherit mode-line-buffer-id)
'help-echo "Mode(s) menu"
'mouse-face 'mode-line-highlight
'local-map mode-line-major-mode-keymap)
" %b "
(if (and buffer-file-name (buffer-modified-p))
(propertize "(modified)" 'face `(:inherit face-faded)))))
(format-mode-line
(propertize "%4l:%2c " 'face `(:inherit face-faded)))))))
(setq-default line-spacing 1)
(set-default 'cursor-type '(bar . 1))
(blink-cursor-mode 0)
(setq-default header-line-format mode-line-format)
(setq-default mode-line-format'(""))
(set-face-attribute 'header-line nil
:underline (face-foreground 'default)
:background (face-background 'default)
:box nil)
(set-face-attribute 'mode-line nil
:underline (face-foreground 'default)
:overline nil
:box nil
:foreground (face-background 'default)
:background (face-background 'default))
(dashboard-setup-startup-hook)