This commit is contained in:
Akko
2024-07-22 12:52:31 +02:00
parent 7a78a1645a
commit 62dd664426
4 changed files with 32 additions and 112 deletions

View File

@@ -18,6 +18,7 @@
(if (string= (system-name) "illya") (if (string= (system-name) "illya")
(set-frame-font "Monoflow 12" nil t) (set-frame-font "Monoflow 12" nil t)
(set-frame-font "Monoflow Medium 20" nil t)) (set-frame-font "Monoflow Medium 20" nil t))
(set-frame-font "Mononoki Medium 12")
(setq doom-theme 'doom-ayu-mirage) (setq doom-theme 'doom-ayu-mirage)
@@ -72,6 +73,8 @@
(defadvice projectile-project-root (around ignore-remote first activate) (defadvice projectile-project-root (around ignore-remote first activate)
(unless (file-remote-p default-directory) ad-do-it)) (unless (file-remote-p default-directory) ad-do-it))
(setq aw-scope 'global)
(setq web-mode-script-padding 0 (setq web-mode-script-padding 0
js-indent-level 2 js-indent-level 2
js2-strict-missing-semi-warning nil js2-strict-missing-semi-warning nil
@@ -210,9 +213,11 @@
(org-publish-all)) (org-publish-all))
(map! :leader (map! :leader
(:prefix ("a" . "akko") (:prefix-map
("a" . "akko")
:desc "Publish Blog" :desc "Publish Blog"
"b" #'akko/publish-blog "b" #'akko/publish-blog
:desc "Force Publish Blog"
"f" #'akko/force-publish-blog)) "f" #'akko/force-publish-blog))
(setq org-html-htmlize-output-type 'css) (setq org-html-htmlize-output-type 'css)
@@ -230,52 +235,3 @@
(setq shell-file-name (executable-find "bash")) (setq shell-file-name (executable-find "bash"))
(setq-default vterm-shell (executable-find "fish")) (setq-default vterm-shell (executable-find "fish"))
(setq-default explicit-shell-file-name (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
: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")))))

View File

@@ -27,6 +27,7 @@ Honestly I barely remember what some of this stuff is supposed to do, this is th
(if (string= (system-name) "illya") (if (string= (system-name) "illya")
(set-frame-font "Monoflow 12" nil t) (set-frame-font "Monoflow 12" nil t)
(set-frame-font "Monoflow Medium 20" nil t)) (set-frame-font "Monoflow Medium 20" nil t))
(set-frame-font "Mononoki Medium 12")
#+END_SRC #+END_SRC
** Theme ** Theme
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
@@ -103,6 +104,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)) (unless (file-remote-p default-directory) ad-do-it))
#+END_SRC #+END_SRC
** Ace-window
Make ace-window work across frames
#+BEGIN_SRC emacs-lisp
(setq aw-scope 'global)
#+END_SRC
* Major modes * Major modes
** web-mode ** web-mode
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
@@ -266,9 +273,11 @@ Honestly I barely remember what some of this stuff is supposed to do, this is th
(org-publish-all)) (org-publish-all))
(map! :leader (map! :leader
(:prefix ("a" . "akko") (:prefix-map
("a" . "akko")
:desc "Publish Blog" :desc "Publish Blog"
"b" #'akko/publish-blog "b" #'akko/publish-blog
:desc "Force Publish Blog"
"f" #'akko/force-publish-blog)) "f" #'akko/force-publish-blog))
(setq org-html-htmlize-output-type 'css) (setq org-html-htmlize-output-type 'css)
@@ -291,54 +300,3 @@ 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")) (setq-default explicit-shell-file-name (executable-find "fish"))
#+END_SRC #+END_SRC
* eaf shit
#+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
: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")))))
#+END_SRC

23
init.el
View File

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

View File

@@ -14,3 +14,6 @@
(package! ob-ledger :recipe (:local-repo "lisp/ob-ledger")) (package! ob-ledger :recipe (:local-repo "lisp/ob-ledger"))
(package! elcord) (package! elcord)
(package! emacsql-sqlite3) (package! emacsql-sqlite3)
(package! sly-overlay
:recipe (:host sourcehut :repo "fosskers/sly-overlay") :pin "916b50297a1f3bb110f840b89b8717d194623e5f")