UHHHHH

idk
2025-08-23 00:42:35 +02:00 · 2024-07-22 12:52:31 +02:00
4 changed files with 118 additions and 132 deletions
--- a/config.el
+++ b/config.el
@@ -17,9 +17,14 @@

 (if (string= (system-name) "illya")
    (set-frame-font "Monoflow 12" nil t)
-  (set-frame-font "Monoflow Medium 20" nil t))
+  (set-frame-font "Mononoki 12" nil t))
+(set-frame-font "Mononoki 13")

 (setq doom-theme 'doom-ayu-mirage)
+(add-to-list 'custom-theme-load-path
+             (expand-file-name "themes" doom-user-dir))
+(add-to-list 'custom-theme-load-path
+             (expand-file-name "themes" "~/.emacs.d"))

 (display-time-mode 1)

@@ -27,12 +32,12 @@
 (define-key evil-normal-state-map (kbd "g a") 'paste-above)
 (define-key evil-normal-state-map (kbd "g p") 'paste-below)

-(global-set-key (kbd "C-x C-f") #'counsel-find-file)
+(global-set-key (kbd "C-x C-f") #'find-file)
 (map! :leader
-      "." #'counsel-find-file)
+      "." #'find-file)

-; TODO fix
-(map! :after counsel "C-s" #'swiper)
+                                        ; TODO fix
+(map! :after vertico "C-s" #'+default/search-buffer)

 (after! evil-escape
  (setq evil-escape-key-sequence "jj")
@@ -41,7 +46,7 @@
 (which-key-mode 1)
 (setq which-key-idle-delay 0.25)

-(defun doom/find-file-in-private-config () (interactive) (counsel-find-file doom-user-dir))
+                                        ;(defun doom/find-file-in-private-config () (interactive) (find-file doom-user-dir))

 (setq ivy-height                10
      ivy-count-format          "(%d/%d) "
@@ -72,6 +77,8 @@
 (defadvice projectile-project-root (around ignore-remote first activate)
  (unless (file-remote-p default-directory) ad-do-it))

+(setq aw-scope 'global)
+
 (setq web-mode-script-padding 0
      js-indent-level 2
      js2-strict-missing-semi-warning nil
@@ -84,10 +91,10 @@
 (setq python-shell-completion-native-disabled-interpreters '("ipython"))

 (setq org-roam-directory (file-truename "/mnt/tenma/srv/boymind"))
-; this seems to be broken right now
-;(use-package! org-roam
-;  :config
-;  (setq org-roam-database-connector 'sqlite3))
+                                        ; this seems to be broken right now
+                                        ;(use-package! org-roam
+                                        ;  :config
+                                        ;  (setq org-roam-database-connector 'sqlite3))
 (condition-case nil
    (org-roam-db-autosync-mode)
  (file-error (progn
@@ -110,6 +117,13 @@

 (setq lsp-enable-links nil)

+(after! circe
+  (set-irc-server! "irc.rizon.net"
+    '(:tls t
+      :port 6697
+      :nick "akk0"
+      :channels ("#r/a/dio"))))
+
 (require 'ox-publish)

 (defun blog/get-util (x)
@@ -189,7 +203,7 @@

      ("static"
       :base-directory "~/Blog/static"
-       :base-extension "css\\|txt\\|jpg\\|gif\\|png\\|ttf\\|js"
+       :base-extension "css\\|txt\\|jpg\\|gif\\|png\\|ttf\\|js\\|mp4\\|webm"
       :recursive t
       :publishing-directory  "~/Blog/html/static"
       :publishing-function org-publish-attachment)
@@ -201,7 +215,7 @@
 (defun akko/publish-blog ()
  (interactive)
  (setq org-publish-project-alist (akko/blog-spec))
-  (org-publish-all))
+    (org-publish-all))

 (defun akko/force-publish-blog ()
  (interactive)
@@ -210,9 +224,11 @@
  (org-publish-all))

 (map! :leader
-      (:prefix ("a" . "akko")
+      (:prefix-map
+       ("a" . "akko")
       :desc "Publish Blog"
       "b" #'akko/publish-blog
+       :desc "Force Publish Blog"
       "f" #'akko/force-publish-blog))

 (setq org-html-htmlize-output-type 'css)
@@ -231,51 +247,19 @@
 (setq-default vterm-shell (executable-find "fish"))
 (setq-default explicit-shell-file-name (executable-find "fish"))

-(use-package! eaf
-  :load-path "~/.elisp/emacs-application-framework"
-  :init
-  :custom
-  (eaf-browser-continue-where-left-off t)
-  (eaf-browser-enable-adblocker t)
-  (browse-url-browser-function 'eaf-open-browser) ;; Make EAF Browser my default browser
+(after! auth-source
+  (setq auth-sources (append '("~/.authinfo") auth-sources)))
+
+(use-package! gptel
  :config
-  (defalias 'browse-web #'eaf-open-browser)
-
-  ;(require 'eaf-file-manager)
-  ;(require 'eaf-music-player)
-  ;(require 'eaf-image-viewer)
-  ;(require 'eaf-camera)
-  ;(require 'eaf-demo)
-  ;(require 'eaf-airshare)
-  ;(require 'eaf-terminal)
-  ;(require 'eaf-markdown-previewer)
-  ;(require 'eaf-video-player)
-  ;(require 'eaf-vue-demo)
-  ;(require 'eaf-file-sender)
-  ;(require 'eaf-pdf-viewer)
-  ;(require 'eaf-mindmap)
-  ;(require 'eaf-netease-cloud-music)
-  ;(require 'eaf-jupyter)
-  ;(require 'eaf-org-previewer)
-  ;(require 'eaf-system-monitor)
-  ;(require 'eaf-rss-reader)
-  ;(require 'eaf-file-browser)
-  (require 'eaf-browser)
-  ;(require 'eaf-org)
-  ;(require 'eaf-mail)
-  ;(require 'eaf-git)
-  (when (display-graphic-p)
-    (require 'eaf-all-the-icons))
-
-  (require 'eaf-evil)
-  (define-key key-translation-map (kbd "SPC")
-    (lambda (prompt)
-      (if (derived-mode-p 'eaf-mode)
-          (pcase eaf--buffer-app-name
-            ("browser" (if  (string= (eaf-call-sync "call_function" eaf--buffer-id "is_focus") "True")
-                           (kbd "SPC")
-                         (kbd eaf-evil-leader-key)))
-            ("pdf-viewer" (kbd eaf-evil-leader-key))
-            ("image-viewer" (kbd eaf-evil-leader-key))
-            (_  (kbd "SPC")))
-        (kbd "SPC")))))
+  (gptel-make-openai "OpenRouter"               ;Any name you want
+    :host "openrouter.ai"
+    :endpoint "/api/v1/chat/completions"
+    :stream t
+    :key #'gptel-api-key-from-auth-source
+    :models '(anthropic/claude-3.7-sonnet:beta))
+  (map! :leader
+        (:prefix-map ("z" . "AI")
+         :desc "Send to GPT" "z" #'gptel-send
+         :desc "GPT menu" "m" #'gptel-menu))
+  (setq gptel-default-mode #'org-mode))
--- a/config.org
+++ b/config.org
@@ -26,11 +26,16 @@ Honestly I barely remember what some of this stuff is supposed to do, this is th
 #+BEGIN_SRC emacs-lisp
 (if (string= (system-name) "illya")
    (set-frame-font "Monoflow 12" nil t)
-  (set-frame-font "Monoflow Medium 20" nil t))
+  (set-frame-font "Mononoki 12" nil t))
+(set-frame-font "Mononoki 13")
 #+END_SRC
 ** Theme
 #+BEGIN_SRC emacs-lisp
 (setq doom-theme 'doom-ayu-mirage)
+(add-to-list 'custom-theme-load-path
+             (expand-file-name "themes" doom-user-dir))
+(add-to-list 'custom-theme-load-path
+             (expand-file-name "themes" "~/.emacs.d"))
 #+END_SRC
 ** Other
 #+BEGIN_SRC emacs-lisp
@@ -43,12 +48,12 @@ Honestly I barely remember what some of this stuff is supposed to do, this is th
 (define-key evil-normal-state-map (kbd "g a") 'paste-above)
 (define-key evil-normal-state-map (kbd "g p") 'paste-below)

-(global-set-key (kbd "C-x C-f") #'counsel-find-file)
+(global-set-key (kbd "C-x C-f") #'find-file)
 (map! :leader
-      "." #'counsel-find-file)
+      "." #'find-file)

-; TODO fix
-(map! :after counsel "C-s" #'swiper)
+                                        ; TODO fix
+(map! :after vertico "C-s" #'+default/search-buffer)

 (after! evil-escape
  (setq evil-escape-key-sequence "jj")
@@ -57,7 +62,7 @@ Honestly I barely remember what some of this stuff is supposed to do, this is th
 (which-key-mode 1)
 (setq which-key-idle-delay 0.25)

-(defun doom/find-file-in-private-config () (interactive) (counsel-find-file doom-user-dir))
+                                        ;(defun doom/find-file-in-private-config () (interactive) (find-file doom-user-dir))
 #+END_SRC

 * Completion
@@ -103,6 +108,12 @@ Honestly I barely remember what some of this stuff is supposed to do, this is th
  (unless (file-remote-p default-directory) ad-do-it))
 #+END_SRC

+** Ace-window
+Make ace-window work across frames
+#+BEGIN_SRC emacs-lisp
+(setq aw-scope 'global)
+#+END_SRC
+
 * Major modes
 ** web-mode
 #+BEGIN_SRC emacs-lisp
@@ -123,10 +134,10 @@ Honestly I barely remember what some of this stuff is supposed to do, this is th
 *** Roam
 #+BEGIN_SRC emacs-lisp
 (setq org-roam-directory (file-truename "/mnt/tenma/srv/boymind"))
-; this seems to be broken right now
-;(use-package! org-roam
-;  :config
-;  (setq org-roam-database-connector 'sqlite3))
+                                        ; this seems to be broken right now
+                                        ;(use-package! org-roam
+                                        ;  :config
+                                        ;  (setq org-roam-database-connector 'sqlite3))
 (condition-case nil
    (org-roam-db-autosync-mode)
  (file-error (progn
@@ -164,6 +175,16 @@ Honestly I barely remember what some of this stuff is supposed to do, this is th
 #+BEGIN_SRC emacs-lisp
 (setq lsp-enable-links nil)
 #+END_SRC
+* IRC
+#+BEGIN_SRC emacs-lisp
+(after! circe
+  (set-irc-server! "irc.rizon.net"
+    '(:tls t
+      :port 6697
+      :nick "akk0"
+      :channels ("#r/a/dio"))))
+#+END_SRC
+
 * Blog
 #+BEGIN_SRC emacs-lisp
 (require 'ox-publish)
@@ -245,7 +266,7 @@ Honestly I barely remember what some of this stuff is supposed to do, this is th

      ("static"
       :base-directory "~/Blog/static"
-       :base-extension "css\\|txt\\|jpg\\|gif\\|png\\|ttf\\|js"
+       :base-extension "css\\|txt\\|jpg\\|gif\\|png\\|ttf\\|js\\|mp4\\|webm"
       :recursive t
       :publishing-directory  "~/Blog/html/static"
       :publishing-function org-publish-attachment)
@@ -257,7 +278,7 @@ Honestly I barely remember what some of this stuff is supposed to do, this is th
 (defun akko/publish-blog ()
  (interactive)
  (setq org-publish-project-alist (akko/blog-spec))
-  (org-publish-all))
+    (org-publish-all))

 (defun akko/force-publish-blog ()
  (interactive)
@@ -266,9 +287,11 @@ Honestly I barely remember what some of this stuff is supposed to do, this is th
  (org-publish-all))

 (map! :leader
-      (:prefix ("a" . "akko")
+      (:prefix-map
+       ("a" . "akko")
       :desc "Publish Blog"
       "b" #'akko/publish-blog
+       :desc "Force Publish Blog"
       "f" #'akko/force-publish-blog))

 (setq org-html-htmlize-output-type 'css)
@@ -291,54 +314,24 @@ Honestly I barely remember what some of this stuff is supposed to do, this is th
 (setq-default explicit-shell-file-name (executable-find "fish"))

 #+END_SRC
-* eaf shit
+* Antichrist
 #+BEGIN_SRC emacs-lisp
-(use-package! eaf
-  :load-path "~/.elisp/emacs-application-framework"
-  :init
-  :custom
-  (eaf-browser-continue-where-left-off t)
-  (eaf-browser-enable-adblocker t)
-  (browse-url-browser-function 'eaf-open-browser) ;; Make EAF Browser my default browser
+(after! auth-source
+  (setq auth-sources (append '("~/.authinfo") auth-sources)))
+
+(use-package! gptel
  :config
-  (defalias 'browse-web #'eaf-open-browser)
+  (gptel-make-openai "OpenRouter"               ;Any name you want
+    :host "openrouter.ai"
+    :endpoint "/api/v1/chat/completions"
+    :stream t
+    :key #'gptel-api-key-from-auth-source
+    :models '(anthropic/claude-3.7-sonnet:beta))
+  (map! :leader
+        (:prefix-map ("z" . "AI")
+         :desc "Send to GPT" "z" #'gptel-send
+         :desc "GPT menu" "m" #'gptel-menu))
+  (setq gptel-default-mode #'org-mode))

-  ;(require 'eaf-file-manager)
-  ;(require 'eaf-music-player)
-  ;(require 'eaf-image-viewer)
-  ;(require 'eaf-camera)
-  ;(require 'eaf-demo)
-  ;(require 'eaf-airshare)
-  ;(require 'eaf-terminal)
-  ;(require 'eaf-markdown-previewer)
-  ;(require 'eaf-video-player)
-  ;(require 'eaf-vue-demo)
-  ;(require 'eaf-file-sender)
-  ;(require 'eaf-pdf-viewer)
-  ;(require 'eaf-mindmap)
-  ;(require 'eaf-netease-cloud-music)
-  ;(require 'eaf-jupyter)
-  ;(require 'eaf-org-previewer)
-  ;(require 'eaf-system-monitor)
-  ;(require 'eaf-rss-reader)
-  ;(require 'eaf-file-browser)
-  (require 'eaf-browser)
-  ;(require 'eaf-org)
-  ;(require 'eaf-mail)
-  ;(require 'eaf-git)
-  (when (display-graphic-p)
-    (require 'eaf-all-the-icons))

-  (require 'eaf-evil)
-  (define-key key-translation-map (kbd "SPC")
-    (lambda (prompt)
-      (if (derived-mode-p 'eaf-mode)
-          (pcase eaf--buffer-app-name
-            ("browser" (if  (string= (eaf-call-sync "call_function" eaf--buffer-id "is_focus") "True")
-                           (kbd "SPC")
-                         (kbd eaf-evil-leader-key)))
-            ("pdf-viewer" (kbd eaf-evil-leader-key))
-            ("image-viewer" (kbd eaf-evil-leader-key))
-            (_  (kbd "SPC")))
-        (kbd "SPC")))))
 #+END_SRC
--- a/init.el
+++ b/init.el
@@ -16,9 +16,12 @@
       company           ; the ultimate code completion backend
       ;;helm              ; the *other* search engine for love and life
       ;;ido               ; the other *other* search engine...
-       (ivy                ; a search engine for love and life
-       +prescient
-        +icons)
+       ;(ivy                ; a search engine for love and life
+       ;+prescient
+       ; +icons)
+
+       (vertico +icons)
+

       :checkers
       syntax
@@ -27,7 +30,7 @@
       ;;deft              ; notational velocity for Emacs
       doom              ; what makes DOOM look the way it does
       doom-dashboard    ; a nifty splash screen for Emacs
-       doom-quit         ; DOOM quit-message prompts when you quit Emacs
+       ;;doom-quit         ; DOOM quit-message prompts when you quit Emacs
       ;;fill-column       ; a `fill-column' indicator
       hl-todo           ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
       ;;hydra
@@ -84,7 +87,7 @@
       ;;direnv
       ;;docker
       editorconfig      ; let someone else argue about tabs vs spaces
-       ein               ; tame Jupyter notebooks with emacs
+       ;;ein               ; tame Jupyter notebooks with emacs
       (eval +overlay)     ; run code, run (also, repls)
       flycheck          ; tasing you for every semicolon you forget
       ;;flyspell          ; tasing you for misspelling mispelling
@@ -101,7 +104,7 @@
       ;;pass              ; password manager for nerds
       pdf               ; pdf enhancements
       ;;prodigy           ; FIXME managing external services & code builders
-       ;;rgb               ; creating color strings
+       rgb               ; creating color strings
       ;;terraform         ; infrastructure as code
       ;;tmux              ; an API for interacting with tmux
       ;;upload            ; map local to remote projects via ssh/ftp
@@ -126,7 +129,7 @@
       ;;fsharp           ; ML stands for Microsoft's Language
       ;;go                ; the hipster dialect
       (haskell +lsp)           ; a language that's lazier than I am
-       hy                ; readability of scheme w/ speed of python
+       ;;hy                ; readability of scheme w/ speed of python
       ;;idris             ;
       ;;(java +meghanada) ; the poster child for carpal tunnel syndrome
       (javascript +lsp)        ; all(hope(abandon(ye(who(enter(here))))))
@@ -155,21 +158,21 @@
       ;;plantuml          ; diagrams for confusing people more
       ;;purescript        ; javascript, but functional
       (python             ; beautiful is better than ugly
-        +conda
+       ;; +conda
        +lsp)
-       qt                ; the 'cutest' gui framework ever
-       racket            ; a DSL for DSLs
+       ;;qt                ; the 'cutest' gui framework ever
+       ;;racket            ; a DSL for DSLs
       ;;rest              ; Emacs as a REST client
       ;;rst               ; ReST in peace
       ;;ruby              ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"}
-       rust              ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
+       ;;rust              ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
       ;;scala             ; java, but good
       scheme            ; a fully conniving family of lisps
       (sh +fish +lsp)               ; she sells {ba,z,fi}sh shells on the C xor
-       solidity          ; do you need a blockchain? No.
+       ;;solidity          ; do you need a blockchain? No.
       ;;swift             ; who asked for emoji variables?
       ;;terra             ; Earth and Moon in alignment for performance.
-       web               ; the tubes
+       (web +lsp)               ; the tubes

       :email
       ;;(mu4e +gmail)
--- a/packages.el
+++ b/packages.el
@@ -14,3 +14,9 @@
 (package! ob-ledger :recipe (:local-repo "lisp/ob-ledger"))
 (package! elcord)
 (package! emacsql-sqlite3)
+
+; I love the antichrist
+(package! gptel)
+
+(package! sly-overlay
+	      :recipe (:host sourcehut :repo "fosskers/sly-overlay") :pin "916b50297a1f3bb110f840b89b8717d194623e5f")
Author	SHA1	Message	Date
Akko	a0a4559151	UHHHHH	2025-08-23 00:42:35 +02:00
Akko	62dd664426	idk	2024-07-22 12:52:31 +02:00