diff options
Diffstat (limited to '.emacs.d')
| -rw-r--r-- | .emacs.d/init.el | 126 |
1 files changed, 66 insertions, 60 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 3f4d459..5c9b748 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -42,7 +42,8 @@ sentence-end-double-space t default-input-method "bulgarian-phonetic" ;; fix emacs hangs - gc-cons-threshold 5000000) + gc-cons-threshold 5000000 + ispell-program-name (executable-find "hunspell")) (define-key global-map (kbd "M-<backspace>") 'backward-kill-sexp) (define-key global-map (kbd "C-c L") 'display-line-numbers-mode) @@ -318,7 +319,9 @@ ;; (bg-main "#1d2021") ;;grubox-hard ;; (bg-main "#191919") ;; 1337 ;; (bg-main "#1d1f21") ;; tomorrow night - (bg-main "#171717") ;; badger + (bg-main "#151515") ;; jazz + ;; (bg-main "#0C0C0C") ;; random black + ;; (bg-main "#171717") ;; badger ;; (overline-heading-1 gold) (fg-heading-1 red-warmer) ;; (bg-heading-1 bg-blue-nuanced) @@ -367,8 +370,8 @@ :init (define-prefix-command 'thanos/search) :bind (("C-x r d" . 'bookmark-delete) ("C-x r C-r" . 'bookmark-rename) - ("C-x r ." . 'consult-register) - ("C-x r s" . 'consult-register-store) + ("C-x r C-j" . 'consult-register) + ("C-x r SPC" . 'consult-register-store) ("C-x r b" . 'consult-bookmark) ("C-c m" . 'consult-imenu) ("C-x b" . 'consult-buffer) @@ -431,7 +434,9 @@ ("https://planet.emacslife.com/atom.xml" emacs emacslife) ("https://localmonero.co/static/rss/the-monero-standard/feed.xml" monero) ("https://devonzuegel.com/feed" devon) - ("https://www.addtoany.com/add_to/feed?linkurl=http%3A%2F%2Fwww.thelancet.com%2Frssfeed%2Flancet_online.xml&type=feed&linkname=The%20Lancet%20Online%20First&linknote=" lancet med))) + ("https://www.addtoany.com/add_to/feed?linkurl=http%3A%2F%2Fwww.thelancet.com%2Frssfeed%2Flancet_online.xml&type=feed&linkname=The%20Lancet%20Online%20First&linknote=" lancet med) + ("http://tools.cdc.gov/podcasts/feed.asp?feedid=183" cdc med) + ("http://planet.lisp.org/rss20.xml" lisp planetlisp))) :bind (("C-x f" . elfeed) :map elfeed-search-mode-map ("v" . 'elfeed-mpv) @@ -710,61 +715,62 @@ ("p" . 'mocp-previous))) ;; My packages -(use-package yeetube - :init (define-prefix-command 'thanos/yeetube-map) - :straight (yeetube :local-repo "~/Dev/emacs-lisp/yeetube") - :ensure t - :config - (setf yeetube-results-limit 20 - yeetube-mpv-disable-video t - yeetube-display-thumbnails t - yeetube-play-function #'yeetube-mpv-play) - :bind (("C-c y" . 'thanos/yeetube-map) - :map thanos/yeetube-map - ("s" . 'yeetube-search) - ("b" . 'yeetube-play-saved-video) - ("d" . 'yeetube-download-videos) - ("C-d" . 'yeetube-download-vimeo-videos) - ("p" . 'yeetube-mpv-toggle-pause) - ("v" . 'yeetube-mpv-toggle-video) - ("V" . 'yeetube-mpv-toggle-no-video-flag) - ("C-p" . 'yeetube-mpv-toggle-video) - ("k" . 'yeetube-remove-saved-video))) - -(use-package gnosis - :straight (gnosis :local-repo "~/Dev/emacs-lisp/gnosis") - :ensure t - :init (define-prefix-command 'thanos/gnosis-map) - :config - (setf gnosis-vc-auto-push (when (or is-hermes - is-zeus) - t) - gnosis-mcq-display-choices nil - gnosis-image-width (if is-zeus 300 150) - gnosis-image-height (if is-zeus 300 150)) - (gnosis-modeline-mode) - :bind (("C-r" . thanos/gnosis-map) - :map thanos/gnosis-map - ("r" . 'gnosis-review) - ("a" . 'gnosis-add-note) - ("C-d" . 'gnosis-dashboard) - ("d" . 'gnosis-add-deck) - ("t" . 'gnosis-test-start))) - -;; Run vc-pull on startup -(gnosis-vc-pull) - -(use-package pcmpl-emerge - :defer t - :straight (pcmpl-emerge :local-repo "~/Dev/emacs-lisp/pcmpl-emerge")) - -(use-package pcmpl-rc - :straight (pcmpl-rc :local-repo "~/Dev/emacs-lisp/pcmpl-rc") - :defer t) - -(use-package pcmpl-tailscale - :straight (pcmpl-tailscale :local-repo "~/Dev/emacs-lisp/pcmpl-taiscale") - :defer t) +(when (or is-zeus is-hermes) + (use-package yeetube + :init (define-prefix-command 'thanos/yeetube-map) + :straight (yeetube :local-repo "~/Dev/emacs-lisp/yeetube") + :ensure t + :config + (setf yeetube-results-limit 20 + yeetube-mpv-disable-video t + yeetube-display-thumbnails t + yeetube-play-function #'yeetube-mpv-play) + :bind (("C-c y" . 'thanos/yeetube-map) + :map thanos/yeetube-map + ("s" . 'yeetube-search) + ("b" . 'yeetube-play-saved-video) + ("d" . 'yeetube-download-videos) + ("C-d" . 'yeetube-download-vimeo-videos) + ("p" . 'yeetube-mpv-toggle-pause) + ("v" . 'yeetube-mpv-toggle-video) + ("V" . 'yeetube-mpv-toggle-no-video-flag) + ("C-p" . 'yeetube-mpv-toggle-video) + ("k" . 'yeetube-remove-saved-video))) + + (use-package gnosis + :straight (gnosis :local-repo "~/Dev/emacs-lisp/gnosis") + :ensure t + :init (define-prefix-command 'thanos/gnosis-map) + :config + (setf gnosis-vc-auto-push (when (or is-hermes + is-zeus) + t) + gnosis-mcq-display-choices nil + gnosis-image-width (if is-zeus 300 150) + gnosis-image-height (if is-zeus 300 150)) + (gnosis-modeline-mode) + :bind (("C-r" . thanos/gnosis-map) + :map thanos/gnosis-map + ("r" . 'gnosis-review) + ("a" . 'gnosis-add-note) + ("C-d" . 'gnosis-dashboard) + ("d" . 'gnosis-add-deck) + ("t" . 'gnosis-test-start))) + + ;; Run vc-pull on startup + (gnosis-vc-pull) + + (use-package pcmpl-emerge + :defer t + :straight (pcmpl-emerge :local-repo "~/Dev/emacs-lisp/pcmpl-emerge")) + + (use-package pcmpl-rc + :straight (pcmpl-rc :local-repo "~/Dev/emacs-lisp/pcmpl-rc") + :defer t) + + (use-package pcmpl-tailscale + :straight (pcmpl-tailscale :local-repo "~/Dev/emacs-lisp/pcmpl-taiscale") + :defer t)) ;; Emacs dev |