update configs. use straight for everything

elisp/eshell-setup.el

@@ -1,18 +1,20 @@
 ;; colors in eshell
-;; (add-hook 'eshell-mode-hook
+
-;;           (lambda ()
+(add-hook 'eshell-mode-hook
-;;             (setenv "TERM" "xterm-256color")))
+          (lambda ()
-;; (add-hook 'eshell-before-prompt-hook (lambda ()
+            (setenv "TERM" "xterm-256color")))
-;; 				       (setq xterm-color-preserve-properties t)))
+(add-hook 'eshell-before-prompt-hook (lambda ()
-;; (add-to-list 'eshell-preoutput-filter-functions 'xterm-color-filter)
+				       (setq xterm-color-preserve-properties t)))
-;; (setq eshell-output-filter-functions
+
-;;       (remove 'eshell-handle-ansi-color eshell-output-filter-functions))
+(require 'esh-mode)
+(add-to-list 'eshell-preoutput-filter-functions 'xterm-color-filter)
+(setq eshell-output-filter-functions
+      (remove 'eshell-handle-ansi-color eshell-output-filter-functions))
 
 ;; Don't cycle through history with <up> and <down>
 ;; Those keys were previously bound to:
 ;; eshell-previous-matching-input-from-input and
 ;; eshell-next-matching-input-from-input, respectively
-
 (defun my-eshell-setup ()
   (progn
     (define-key eshell-hist-mode-map (kbd "<up>") nil)

elisp/extras.el

@@ -8,12 +8,17 @@
 ;; Save point
 (save-place-mode 1)
 
+;; Set column width to 88 characters
+(setq-default fill-column 88)
+
 ;;;; Load my packages
 ;; Default theme
-(use-package zenburn-theme
+;; (use-package zenburn-theme
-  :demand t
+;;   :demand t
-  :config
+;;   :config
-  (load-theme 'zenburn t))
+;;   (load-theme 'zenburn t))
+
+(load-theme 'modus-operandi-tinted t)
 
 ;; Eshell
 ;; (use-package eshell
@@ -26,10 +31,10 @@
   :config
   (load "~/.emacs.d/elisp/org-setup.el"))
 (use-package org-ref)
-(use-package org-roam
+;; (use-package org-roam
-  :disabled
+;;   :disabled
-  :config
+;;   :config
-  (load "~/.emacs.d/elisp/org-roam-setup.el"))
+;;   (load "~/.emacs.d/elisp/org-roam-setup.el"))
 
 ;; Writing
 (use-package writeroom-mode)
@@ -38,18 +43,22 @@
 ;; configure the default one
 (load "~/.emacs.d/elisp/modeline-setup.el")
 ;; then use doom-modeline
+;; (use-package doom-modeline
+;;   :config
+;;   (progn
+;;     (setq doom-modeline-buffer-encoding nil)
+;;     (setq doom-modeline-height 15)
+;;     (when (member "Fantasque Sans Mono" (font-family-list))
+;;       (set-face-attribute 'mode-line nil :font "Fantasque Sans Mono-14")
+;;       (set-face-attribute 'mode-line-inactive nil :font "Fantasque Sans Mono-13")))
+;;   :hook
+;;   (after-init . doom-modeline-mode))
+
+;; (use-package doom-modeline
+;;    :ensure t
+;;    :init (doom-modeline-mode 1))
+
 (use-package all-the-icons)
-(use-package doom-modeline
-  :straight t
-  :config
-  (progn
-    (setq doom-modeline-buffer-encoding nil)
-    (setq doom-modeline-height 15)
-    (when (member "Fantasque Sans Mono" (font-family-list))
-      (set-face-attribute 'mode-line nil :font "Fantasque Sans Mono-14")
-      (set-face-attribute 'mode-line-inactive nil :font "Fantasque Sans Mono-13")))
-  :hook
-  (after-init . doom-modeline-mode))
 
 (use-package dashboard
   :demand t
@@ -72,22 +81,21 @@
    (pdf-tools-install)
    (setq pdf-view-midnight-colors '("#DCDCCC" . "#3F3F3F"))))
 
-(use-package saveplace-pdf-view
+(use-package saveplace-pdf-view)
-  :straight t)
 
-;; Mail reader
+;; ;; Mail reader
-(use-package mu4e
+;; (use-package mu4e
-  :disabled
+;;   :disabled
-  :config
+;;   :config
-  (load "~/.emacs.d/elisp/mu4e-setup.el"))
+;;   (load "~/.emacs.d/elisp/mu4e-setup.el"))
-;; mail notification in modeline
+;; ;; mail notification in modeline
-(use-package mu4e-alert
+;; (use-package mu4e-alert
-  :disabled
+;;   :disabled
-  :after mu4e
+;;   :after mu4e
-  :init
+;;   :init
-  (setq mu4e-alert-interesting-mail-query "flag:unread maildir:/posteo/INBOX")
+;;   (setq mu4e-alert-interesting-mail-query "flag:unread maildir:/posteo/INBOX")
-  :hook
+;;   :hook
-  (after-init . mu4e-alert-enable-mode-line-display))
+;;   (after-init . mu4e-alert-enable-mode-line-display))
 
 ;; Matrix
 (use-package ement)
@@ -98,22 +106,18 @@
 ;; Read feeds
 (use-package elfeed)
 
-;; Write gemtext
-;(use-package gemini-mode
- ; :straight t)
-
-;; Interface with guix package manager
-(use-package guix)
 
 ;; Programming environment
 ;; We need colors in eshell
 (use-package xterm-color)
 
 ;; git
-(use-package magit)
+(use-package magit
+  :demand t)
 
-;; code completion
+;; ;; code completion
 (use-package company
+  :demand t
   :config
   (add-hook 'after-init-hook 'global-company-mode))
 
@@ -124,95 +128,24 @@
     (setq dash-docs-browser-func 'eww)
     (setq dash-docs-enable-debugging nil)))
 
+(use-package tomlparse)
+
 ;; TODO I'm only using demand so <f3> is set from the start
 (use-package treemacs
   :demand t
   :config
   (global-set-key (kbd "<f3>") 'treemacs))
 
-;; language server
-;; (use-package lsp-mode)
-;; (use-package lsp-ui)
-;; (use-package lsp-treemacs)
-;; (use-package lsp-ivy)
-;; (use-package company-lsp)
-;; (use-package yasnippet
-;;   :config
-;;   (yas-global-mode 1))
-;; (use-package dap-mode)
-
-(use-package eglot
-  :ensure t
-  :defer t
-  :hook (python-mode . eglot-ensure)
-  :config
-  (setq-default eglot-workspace-configuration
-                '((:pylsp . (:configurationSources ["flake8"]
-                             :plugins (
-                                       :pycodestyle (:enabled :json-false)
-                                       :mccabe (:enabled :json-false)
-                                       :pyflakes (:enabled :json-false)
-                                       :flake8 (:enabled t
-                                                :maxLineLength 88)
-                                       :pydocstyle (:enabled t
-                                                    :convention "numpy")
-                                       :yapf (:enabled :json-false)
-                                       :autopep8 (:enabled :json-false)
-                                       :black (:enabled t
-                                               :line_length 88
-                                               :cache_config t)))))
-                ))
-
-;; (add-hook (quote python-mode-hook)
-;;           (function
-;;            eglot-ensure))
-
-;; R
-;(use-package ess
-  ;:config
-  ;(load "~/.emacs.d/elisp/ess-setup.el")
-;  )
-
 ;; Javascript and React
 (use-package rjsx-mode
   :config
   (add-to-list 'auto-mode-alist '("\\.js\\'" . rjsx-mode)))
 
-;; Typescript
-;; (use-package tide
-;;   :disabled
-;;   :config
-;;   (load "~/.emacs.d/elisp/typescript.el"))
-
-;; (use-package typescript-mode
-;;   :ensure t
-;;   :init
-;;   (define-derived-mode typescript-tsx-mode typescript-mode "tsx")
-;;   :config
-;;   (add-hook 'typescript-mode #'subword-mode)
-;;   (add-to-list 'auto-mode-alist '("\\.tsx?\\'" . typescript-tsx-mode)))
-
-;; (use-package tree-sitter
-;;   :straight t
-;;   :hook ((typescript-mode . tree-sitter-hl-mode)
-;; 	 (typescript-tsx-mode . tree-sitter-hl-mode)))
-
-;; (use-package tree-sitter-langs
-;;   :straight t
-;;   :after tree-sitter
-;;   :config
-;;   (tree-sitter-require 'tsx)
-;;   (add-to-list 'tree-sitter-major-mode-language-alist '(typescript-tsx-mode . tsx)))
-
-;; Geiser
-(use-package geiser)
-(use-package geiser-guile)
-
 ;; Common Lisp
-;; (use-package slime
+(use-package slime
-;;   :disabled
+  :disabled
-;;   :config
+  :config
-;;   (load "~/.emacs.d/elisp/slime-setup.el"))
+  (load "~/.emacs.d/elisp/slime-setup.el"))
 
 (use-package sly)
 
@@ -236,24 +169,43 @@
   (setenv "WORKON_HOME" "~/.cache/pypoetry/virtualenvs"))
 
 (use-package python-black
-  :straight t
-  ;; :demand t
   :after python
   :hook (python-mode . python-black-on-save-mode-enable-dwim))
 
-(use-package pydoc
+(use-package pydoc)
-  :straight t)
+
+(use-package pet
+  :config
+  (add-hook 'python-base-mode-hook 'pet-mode -10))
 
 ;; Ivy related stuff
 (use-package ivy)
-(use-package ivy-bibtex
+(use-package ivy-bibtex)
-  :straight t)
 (use-package counsel)
 (use-package swiper)
 (use-package counsel-dash
   :after (counsel))
 (load "~/.emacs.d/elisp/ivy-setup.el")
 
+;; View logs
+(use-package log4j-mode)
+
+(use-package eglot
+  :straight (:type built-in)
+  :ensure t
+  :defer t
+  :hook ((python-base-mode . eglot-ensure))
+  ;:config
+  ;(setq-default eglot-workspace-configuration
+  ;              '((pylsp
+  ;                 (plugins
+  ;                  (pycodestyle (enabled . nil))
+  ;                  (pyflakes (enabled . nil))
+  ;                  (flake8 (enabled . t))
+  ;                  (black (enabled . t))
+  ;                  ))))
+  )
+
 ;; TRAMP
 (load "~/.emacs.d/elisp/tramp-setup.el")
 (load "~/.emacs.d/elisp/outline-keymap.el")

elisp/keypad.el

@@ -2,6 +2,9 @@
 (global-set-key (kbd "C-x g") 'magit-status)
 ;; eshell
 (global-set-key (kbd "<f4>") 'eshell)
+(global-set-key (kbd "H-e") 'eshell)
+;; subsitute list-buffer for ibuffer
+(global-set-key (kbd "C-x C-b") 'ibuffer)
 
 ;; number pad keys
 (global-set-key (kbd "<kp-decimal>") 'other-window)

elisp/org-setup.el

@@ -58,7 +58,8 @@
    (haskell    . t)
    (scheme     . t)
    (shell      . t)
-   (python     . t)))
+   (python     . t)
+   (plantuml   . t)))
 
 ;; default apps to open files with org-mode
 (setq org-file-apps

init.el

@@ -18,9 +18,9 @@
 ;;(straight-use-package 'use-package)
 (eval-when-compile
   (require 'use-package))
-;(setq straight-use-package-by-default t)
+(setq straight-use-package-by-default t)
 
-(setq use-package-always-defer t)
+;;(setq use-package-always-defer t)
 
 ;; Minimal package.el use so we can explore melpa packages
 (require 'package)
@@ -43,11 +43,11 @@
       '(("http://lambda-the-ultimate.org/node/feed" lambda)
         ("https://acoup.blog/feed" acoup history)
         ("https://talesoftimesforgotten.com/feed" history)
+        ("https://pastsimperfect.substack.com/feed" history)
 	("https://guix.gnu.org/feeds/blog.atom" guix)
 	("https://mmhaskell.com/blog?format=rss" haskell)
 	("https://www.inspiredpython.com/feed" python)
         ("https://sachachua.com/blog/category/emacs-news/feed" emacs)
         ("https://dthompson.us/feed.xml" guile)
-        ("https://wingolog.org/feed/atom" guile scheme)
+        ("https://wingolog.org/feed/atom" guile scheme)))
-        ("https://jazzfuel.com/feed/" jazz music)))
 (put 'upcase-region 'disabled nil)