summaryrefslogtreecommitdiff
path: root/emacs
diff options
context:
space:
mode:
authorThomas Ulmer <thomasmulmer02@gmail.com>2025-03-12 10:18:42 -0700
committerThomas Ulmer <thomasmulmer02@gmail.com>2025-03-12 10:18:42 -0700
commit8300912bb63fc3918385f9e6d2a9777f62f164a2 (patch)
tree032c134345ac4f8ac58125453bcaeab2538f0c44 /emacs
parent2576f016153baa11c6e62deeb329dd72f0aa89c8 (diff)
firefox files and new emacs stuff
Diffstat (limited to 'emacs')
-rw-r--r--emacs/init.el262
-rwxr-xr-xemacs/site-lisp/coding-config.el9
-rw-r--r--emacs/site-lisp/evil-config.el3
-rw-r--r--emacs/site-lisp/exwm-pref.el56
-rw-r--r--emacs/site-lisp/general-text.el2
-rw-r--r--emacs/site-lisp/irc-config.el24
-rw-r--r--emacs/site-lisp/modeline-config.el4
-rw-r--r--emacs/site-lisp/my-binds.el5
8 files changed, 232 insertions, 133 deletions
diff --git a/emacs/init.el b/emacs/init.el
index 6c29450..29a39fc 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -7,21 +7,31 @@
;; If there is more than one, they won't work right.
'(comment-style 'extra-line)
'(connection-local-criteria-alist
- '(((:application vc-git)
- vc-git-connection-default-profile)
+ '(((:application vc-git :protocol "ssh" :user "tmu" :machine
+ "cnoserver")
+ autogenerated-connection-local-profile/\(:application\ vc-git\ :protocol\ \"ssh\"\ :user\ \"tmu\"\ :machine\ \"cnoserver\"\))
+ ((:application vc-git) vc-git-connection-default-profile)
((:application tramp :protocol "kubernetes")
tramp-kubernetes-connection-local-default-profile)
((:application tramp :protocol "flatpak")
- tramp-container-connection-local-default-flatpak-profile tramp-flatpak-connection-local-default-profile)
+ tramp-container-connection-local-default-flatpak-profile
+ tramp-flatpak-connection-local-default-profile)
((:application tramp)
- tramp-connection-local-default-system-profile tramp-connection-local-default-shell-profile)
- ((:application eshell)
- eshell-connection-default-profile)))
+ tramp-connection-local-default-system-profile
+ tramp-connection-local-default-shell-profile)
+ ((:application eshell) eshell-connection-default-profile)))
'(connection-local-profile-alist
- '((vc-git-connection-default-profile
- (vc-git--program-version))
+ '((autogenerated-connection-local-profile/\(:application\ vc-git\ :protocol\ \"ssh\"\ :user\ \"tmu\"\ :machine\ \"cnoserver\"\)
+ (vc-git--program-version . "2.48.1"))
+ (vc-git-connection-default-profile (vc-git--program-version))
(tramp-flatpak-connection-local-default-profile
- (tramp-remote-path "/app/bin" tramp-default-remote-path "/bin" "/usr/bin" "/sbin" "/usr/sbin" "/usr/local/bin" "/usr/local/sbin" "/local/bin" "/local/freeware/bin" "/local/gnu/bin" "/usr/freeware/bin" "/usr/pkg/bin" "/usr/contrib/bin" "/opt/bin" "/opt/sbin" "/opt/local/bin"))
+ (tramp-remote-path "/app/bin" tramp-default-remote-path "/bin"
+ "/usr/bin" "/sbin" "/usr/sbin"
+ "/usr/local/bin" "/usr/local/sbin"
+ "/local/bin" "/local/freeware/bin"
+ "/local/gnu/bin" "/usr/freeware/bin"
+ "/usr/pkg/bin" "/usr/contrib/bin" "/opt/bin"
+ "/opt/sbin" "/opt/local/bin"))
(tramp-kubernetes-connection-local-default-profile
(tramp-config-check . tramp-kubernetes--current-context-data)
(tramp-extra-expand-args 97
@@ -34,91 +44,127 @@
(tramp-kubernetes--context-namespace
(car tramp-current-connection))))
(tramp-container-connection-local-default-flatpak-profile
- (tramp-remote-path "/app/bin" tramp-default-remote-path "/bin" "/usr/bin" "/sbin" "/usr/sbin" "/usr/local/bin" "/usr/local/sbin" "/local/bin" "/local/freeware/bin" "/local/gnu/bin" "/usr/freeware/bin" "/usr/pkg/bin" "/usr/contrib/bin" "/opt/bin" "/opt/sbin" "/opt/local/bin"))
+ (tramp-remote-path "/app/bin" tramp-default-remote-path "/bin"
+ "/usr/bin" "/sbin" "/usr/sbin"
+ "/usr/local/bin" "/usr/local/sbin"
+ "/local/bin" "/local/freeware/bin"
+ "/local/gnu/bin" "/usr/freeware/bin"
+ "/usr/pkg/bin" "/usr/contrib/bin" "/opt/bin"
+ "/opt/sbin" "/opt/local/bin"))
(tramp-connection-local-darwin-ps-profile
- (tramp-process-attributes-ps-args "-acxww" "-o" "pid,uid,user,gid,comm=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" "-o" "state=abcde" "-o" "ppid,pgid,sess,tty,tpgid,minflt,majflt,time,pri,nice,vsz,rss,etime,pcpu,pmem,args")
- (tramp-process-attributes-ps-format
- (pid . number)
- (euid . number)
- (user . string)
- (egid . number)
- (comm . 52)
- (state . 5)
- (ppid . number)
- (pgrp . number)
- (sess . number)
- (ttname . string)
- (tpgid . number)
- (minflt . number)
- (majflt . number)
- (time . tramp-ps-time)
- (pri . number)
- (nice . number)
- (vsize . number)
- (rss . number)
- (etime . tramp-ps-time)
- (pcpu . number)
- (pmem . number)
- (args)))
+ (tramp-process-attributes-ps-args "-acxww" "-o"
+ "pid,uid,user,gid,comm=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
+ "-o" "state=abcde" "-o"
+ "ppid,pgid,sess,tty,tpgid,minflt,majflt,time,pri,nice,vsz,rss,etime,pcpu,pmem,args")
+ (tramp-process-attributes-ps-format (pid . number)
+ (euid . number)
+ (user . string)
+ (egid . number) (comm . 52)
+ (state . 5) (ppid . number)
+ (pgrp . number)
+ (sess . number)
+ (ttname . string)
+ (tpgid . number)
+ (minflt . number)
+ (majflt . number)
+ (time . tramp-ps-time)
+ (pri . number)
+ (nice . number)
+ (vsize . number)
+ (rss . number)
+ (etime . tramp-ps-time)
+ (pcpu . number)
+ (pmem . number) (args)))
(tramp-connection-local-busybox-ps-profile
- (tramp-process-attributes-ps-args "-o" "pid,user,group,comm=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" "-o" "stat=abcde" "-o" "ppid,pgid,tty,time,nice,etime,args")
- (tramp-process-attributes-ps-format
- (pid . number)
- (user . string)
- (group . string)
- (comm . 52)
- (state . 5)
- (ppid . number)
- (pgrp . number)
- (ttname . string)
- (time . tramp-ps-time)
- (nice . number)
- (etime . tramp-ps-time)
- (args)))
+ (tramp-process-attributes-ps-args "-o"
+ "pid,user,group,comm=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
+ "-o" "stat=abcde" "-o"
+ "ppid,pgid,tty,time,nice,etime,args")
+ (tramp-process-attributes-ps-format (pid . number)
+ (user . string)
+ (group . string) (comm . 52)
+ (state . 5) (ppid . number)
+ (pgrp . number)
+ (ttname . string)
+ (time . tramp-ps-time)
+ (nice . number)
+ (etime . tramp-ps-time)
+ (args)))
(tramp-connection-local-bsd-ps-profile
- (tramp-process-attributes-ps-args "-acxww" "-o" "pid,euid,user,egid,egroup,comm=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" "-o" "state,ppid,pgid,sid,tty,tpgid,minflt,majflt,time,pri,nice,vsz,rss,etimes,pcpu,pmem,args")
- (tramp-process-attributes-ps-format
- (pid . number)
- (euid . number)
- (user . string)
- (egid . number)
- (group . string)
- (comm . 52)
- (state . string)
- (ppid . number)
- (pgrp . number)
- (sess . number)
- (ttname . string)
- (tpgid . number)
- (minflt . number)
- (majflt . number)
- (time . tramp-ps-time)
- (pri . number)
- (nice . number)
- (vsize . number)
- (rss . number)
- (etime . number)
- (pcpu . number)
- (pmem . number)
- (args)))
+ (tramp-process-attributes-ps-args "-acxww" "-o"
+ "pid,euid,user,egid,egroup,comm=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
+ "-o"
+ "state,ppid,pgid,sid,tty,tpgid,minflt,majflt,time,pri,nice,vsz,rss,etimes,pcpu,pmem,args")
+ (tramp-process-attributes-ps-format (pid . number)
+ (euid . number)
+ (user . string)
+ (egid . number)
+ (group . string) (comm . 52)
+ (state . string)
+ (ppid . number)
+ (pgrp . number)
+ (sess . number)
+ (ttname . string)
+ (tpgid . number)
+ (minflt . number)
+ (majflt . number)
+ (time . tramp-ps-time)
+ (pri . number)
+ (nice . number)
+ (vsize . number)
+ (rss . number)
+ (etime . number)
+ (pcpu . number)
+ (pmem . number) (args)))
(tramp-connection-local-default-shell-profile
- (shell-file-name . "/bin/sh")
- (shell-command-switch . "-c"))
+ (shell-file-name . "/bin/sh") (shell-command-switch . "-c"))
(tramp-connection-local-default-system-profile
- (path-separator . ":")
- (null-device . "/dev/null"))
- (eshell-connection-default-profile
- (eshell-path-env-list))))
+ (path-separator . ":") (null-device . "/dev/null"))
+ (eshell-connection-default-profile (eshell-path-env-list))))
'(custom-safe-themes
- '("6f5e3fd2b4245ffe660da69ea5c13ab392337e94776dfb23cc1d8d0f80e3baa2" "1b8c2fd98bf6777d8b95f8cf98fdaede88feee3419ec3e5008f94b56618ac6ca" "0cc5046b7981609166c28b64f6185fa5f73bcb00d21e037f304794c6aaa1f340" "9f2e4e8b2ddbfdd392eedbc123649d94654278dee5a53b899557224416413d35" "6dafb31ade9ff07229faaf05c41c2ae475c44731362b792f65f3930b1a2c9cfd" "dc77e008092a5a4aa6b6ed8e4826bebf8f2fb930a8de073bf7f458efd884cca8" "d1ff3e66028f9c527298580d2a64f9e3280f07f9e94d4dada72b67ef15069441" "3d4e3644e237a95683daa73e397c4c0d1ae06bbaaf8040104232591a28bc1315" "12a07bc38295e4b06a8965db261f51ea7ea61fbf91b3ef41298bbb549d1d9403" default))
+ '("6f5e3fd2b4245ffe660da69ea5c13ab392337e94776dfb23cc1d8d0f80e3baa2"
+ "1b8c2fd98bf6777d8b95f8cf98fdaede88feee3419ec3e5008f94b56618ac6ca"
+ "0cc5046b7981609166c28b64f6185fa5f73bcb00d21e037f304794c6aaa1f340"
+ "9f2e4e8b2ddbfdd392eedbc123649d94654278dee5a53b899557224416413d35"
+ "6dafb31ade9ff07229faaf05c41c2ae475c44731362b792f65f3930b1a2c9cfd"
+ "dc77e008092a5a4aa6b6ed8e4826bebf8f2fb930a8de073bf7f458efd884cca8"
+ "d1ff3e66028f9c527298580d2a64f9e3280f07f9e94d4dada72b67ef15069441"
+ "3d4e3644e237a95683daa73e397c4c0d1ae06bbaaf8040104232591a28bc1315"
+ "12a07bc38295e4b06a8965db261f51ea7ea61fbf91b3ef41298bbb549d1d9403"
+ default))
'(ede-project-directories
- '("/home/tmu/Desktop/eway/sway" "/home/tmu/Desktop/eway/cage" "/home/tmu/Desktop/eway/wlroots" "/home/tmu/Desktop/eway/comp" "/home/tmu/Desktop/eway"))
+ '("/home/tmu/Desktop/eway/sway" "/home/tmu/Desktop/eway/cage"
+ "/home/tmu/Desktop/eway/wlroots" "/home/tmu/Desktop/eway/comp"
+ "/home/tmu/Desktop/eway"))
'(eglot-events-buffer-config '(:size 0 :format full))
'(gdb-non-stop-setting nil)
'(helm-minibuffer-history-key "M-p")
'(menu-bar-mode nil)
'(package-selected-packages
- '(em-term em-hist embark-consult embark eat em-smart all-the-icons-completion all-the-icons marginalia visible-mark benchmark-init sideline-lsp sideline-flymake sideline-flycheck sideline lsp-haskell lsp-sourcekit emacs-lsp elisp-sandbox elsa lsp-mode corfu evil-config which-key orderless vertico evil))
+ '(2048-game all-the-icons-completion amsreftex auctex benchmark-init
+ bongo buffer-move cape chinese-conv cmake-mode
+ company-go corfu corfu-terminal counsel-projectile
+ cuda-mode dockerfile-mode doom-modeline dumb-jump eat
+ edit-indirect eglot embark-consult ement
+ emms-player-simple-mpv emms-state esh-help
+ eshell-fringe-status eshell-vterm esup evil-collection
+ evil-easymotion evil-snipe evil-surround
+ exwm-firefox-evil exwm-modeline eyebrowse fish-mode
+ flycheck-aspell flymake-aspell
+ flymake-diagnostic-at-point fold-this folding free-keys
+ frog-jump-buffer gdscript-mode gxref haskell-mode
+ helm-exwm helm-hoogle highlight hindent hl-todo
+ ibuffer-project ibuffer-projectile imenu-anywhere
+ ivy-hydra ivy-prescient lsp-haskell magit marginalia
+ markdown-preview-mode minions nginx-mode oauth2
+ orderless pass password-store
+ persp-mode-projectile-bridge popwin pyim-basedict
+ pyim-cangjiedict racket-mode rainbow-delimiters rustic
+ sdcv sideline-flycheck sideline-flymake sideline-lsp
+ simple-httpd spell-fu telephone-line tempel
+ tree-sitter-langs treemacs treemacs-evil
+ vertico-prescient vimgolf visible-mark volume which-key
+ workgroups yaml-mode))
'(pyim-assistant-scheme 'cangjie)
'(safe-local-variable-values '((LEXICAL-binding . t)))
'(scroll-bar-mode nil)
@@ -126,7 +172,8 @@
'(tool-bar-mode nil)
'(transient-mark-mode nil)
'(whitespace-style
- '(face trailing tabs lines-tail missing-newline-at-eof indentation space-after-tab space-before-tab tab-mark) t))
+ '(face trailing tabs lines-tail missing-newline-at-eof indentation
+ space-after-tab space-before-tab tab-mark) t))
;; ---------------------------------------------------------------------
;; non-package specific config
@@ -153,6 +200,7 @@
(setq async-shell-command-buffer 'new-buffer)
;; start additional async shell commands in new buffers without asking
(setq-default proced-auto-update-flag t)
+(setq-default proced-auto-update-interval 1)
;; always auto update proced
;; --------------------------------------------------------------------
@@ -202,12 +250,6 @@
nil
(window-parameters (mode-line-format . none)))))
-(use-package all-the-icons)
-(use-package all-the-icons-completion
- :after (marginalia all-the-icons)
- :hook (marginalia-mode . all-the-icons-completion-marginalia-setup)
- :init (all-the-icons-completion-mode))
-
(use-package orderless
;; ordering (minibuffer) completions
:custom
@@ -231,18 +273,24 @@
(corfu-quit-no-match t)
:bind (("M-/" . completion-at-point)))
+(use-package corfu-terminal
+ :init
+ ;; (corfu-terminal-mode 1)
+ :custom
+ (corfu-terminal-disable-on-gui nil))
+
(use-package cape
;; extend completion frameworks
:bind ("C-c p" . cape-prefix-map)
:config
(advice-add 'pcomplete-completions-at-point :around 'cape-wrap-silent)
(advice-add 'pcomplete-completions-at-point :around 'cape-wrap-purify)
- :custom
- (completion-at-point-functions . '(cape-dict
- tags-completion-at-point-function
- cape-keyword
- cape-dabbrev
- cape-symbol)))
+ :init
+ (setq completion-at-point-functions '(cape-dict
+ tags-completion-at-point-function
+ cape-keyword
+ cape-dabbrev
+ cape-symbol)))
(use-package dabbrev
;; Swap M-/ and C-M-/
@@ -346,24 +394,40 @@
(keymap-set eshell-hist-mode-map "C-c C-n" 'next-line)
(keymap-set eshell-hist-mode-map "C-c C-p" 'previous-line)
(keymap-set eshell-mode-map "C-l" 'eshell/clear)
- (add-hook 'eshell-mode-hook 'eldoc-mode))
+ (add-hook 'eshell-mode-hook 'eldoc-mode)
+ (add-hook 'eshell-mode-hook (lambda () (evil-local-mode -1)))
+ :custom
+ (eshell-prefer-lisp-functions t))
(use-package eat
:init
(add-hook 'eshell-load-hook #'eat-eshell-mode)
- (add-hook 'eshell-load-hook #'eat-eshell-visual-command-mode)
- (push "pass" eshell-visual-commands))
+ (add-hook 'eshell-load-hook #'eat-eshell-visual-command-mode))
+
+;; file browser
+(use-package treemacs
+ :bind (("C-c t" . treemacs)))
+
+;; password integration
+(use-package password-store)
+(use-package auth-source-pass
+ :init (auth-source-pass-enable))
+(use-package pass
+ :custom
+ (pass-supress-confirmations t))
+(setq epg-pinentry-mode 'loopback)
;; ----------------------------------------------------------------------
;; my custom stuff
-;; (require 'evil-config)
+(require 'evil-config)
(require 'my-funcs)
(require 'my-binds)
(require 'coding-config)
(require 'modeline-config)
(require 'general-text)
(require 'exwm-pref)
+(require 'irc-config)
;; ----------------------------------------------------------------------
;; theme stuff
diff --git a/emacs/site-lisp/coding-config.el b/emacs/site-lisp/coding-config.el
index 9d228f0..143da4c 100755
--- a/emacs/site-lisp/coding-config.el
+++ b/emacs/site-lisp/coding-config.el
@@ -58,10 +58,10 @@
("C-x C-b" . ibuffer)
:hook
(ibuffer . (lambda ()
- (ibuffer-projectile-set-filter-groups)
(unless (eq ibuffer-sorting-mode 'alphabetic)
(ibuffer-do-sort-by-alphabetic)))))
+
;; make shells and whatnot slightly better
(require 'comint)
(setq comint-scroll-to-bottom-on-input t)
@@ -94,6 +94,7 @@
(require 'my-funcs)
(add-hook 'prog-mode-hook (lambda ()
(hs-minor-mode 1)
+ (hl-todo-mode 1)
(superword-mode 1)
(modify-syntax-entry ?_ "w") )
(display-fill-column-indicator-mode 1)
@@ -125,3 +126,9 @@
"rg -i -M 120 --no-heading --line-number --color never '%s' %s")
(global-set-key (kbd "C-s") 'counsel-grep-or-swiper)
(global-set-key (kbd "C-S-s") 'isearch-forward)
+
+;; racket
+(use-package racket-mode)
+
+;; rust
+(use-package rustic)
diff --git a/emacs/site-lisp/evil-config.el b/emacs/site-lisp/evil-config.el
index b019146..b64a720 100644
--- a/emacs/site-lisp/evil-config.el
+++ b/emacs/site-lisp/evil-config.el
@@ -32,6 +32,7 @@
(define-key evil-motion-state-map (kbd "TAB") 'indent-for-tab-command)
(evil-set-initial-state 'vterm-mode 'emacs)
+(evil-set-initial-state 'eshell-mode 'emacs)
;;; sasha bindings
(defun evil-window-split-and-switch ()
@@ -75,3 +76,5 @@
(evil-define-key 'normal global-map (kbd "SPC s f") 'counsel-find-file)
(evil-define-key 'normal global-map (kbd "SPC s r") 'counsel-rg)
(evil-define-key 'normal global-map (kbd "SPC ;") 'frog-jump-buffer)
+
+(use-package treemacs-evil)
diff --git a/emacs/site-lisp/exwm-pref.el b/emacs/site-lisp/exwm-pref.el
index fee729f..6407e9e 100644
--- a/emacs/site-lisp/exwm-pref.el
+++ b/emacs/site-lisp/exwm-pref.el
@@ -6,9 +6,10 @@
(require 'exwm-randr)
(require 'exwm-xim)
(require 'exwm-systemtray)
+(require 'exwm-manage)
-(setq exwm-workspace-number 1)
-;; (setq exwm-randr-workspace-monitor-plist '(0 "DP-0" 1 "HDMI-0" 2 "DVI-I-1"))
+;; (setq exwm-workspace-number 2)
+;; (setq exwm-randr-workspace-monitor-plist '(0 "DP-0" 1 "HDMI-0"))
(setq exwm-workspace-show-all-buffers t)
(setq exwm-layout-show-all-buffers t)
@@ -22,9 +23,9 @@
;; (require 'exwm-firefox)
;; (exwm-firefox-mode)
-(setq persp-auto-resume-time 0)
+(setq exwm-title-length 50)
-(setq exwm-title-length 70)
+(setq exwm-manage-force-tiling t)
(defun b3n-exwm-set-buffer-name ()
(if (and exwm-title (string-match "\\`http[^ ]+" exwm-title))
@@ -41,7 +42,7 @@
"<"
;; (if (<= (length exwm-title) exwm-title-length)
exwm-title
- ;; (concat (substring exwm-title 0 exwm-title-length) "…"))
+ ;; (concat (substring exwm-title 0 exwm-title-length) "…"))
">"))
(exwm-workspace-rename-buffer exwm-title))
@@ -75,7 +76,7 @@
;; super hacky, assumes that there are only two active workspaces
(exwm-workspace-switch-create (exwm-workspace--workspace-from-frame-or-index
(let* ((workspace-list (seq-filter 'exwm-workspace--active-p exwm-workspace--list))
- (active-workspaces workspace-list))
+ (active-workspaces workspace-list))
(while (not (eq (car active-workspaces) (selected-frame)))
(setq active-workspaces (cdr active-workspaces)))
(setq active-workspaces (cdr active-workspaces))
@@ -147,7 +148,7 @@
;;fast workspace switch
([?\s-O] . exwm-other-assigned-workspace)
- ;; ([?\M-O] . exwm-other-assigned-workspace)
+ ([?\M-O] . exwm-other-assigned-workspace)
;;quick calc switching
;; ([?\s-c] . switch-to-calc)
@@ -178,43 +179,48 @@
([?\s-d] . (lambda (command)
(interactive (list (read-shell-command "$ ")))
(start-process-shell-command command nil command)))
+ ([?\M-d] . (lambda (command)
+ (interactive (list (read-shell-command "$ ")))
+ (start-process-shell-command command nil command)))
;; ([?\M-d] . (lambda (command)
- ;; (interactive (list (read-shell-command "$ ")))
- ;; (start-process-shell-command command nil command)))
+ ;; (interactive (list (read-shell-command "$ ")))
+ ;; (start-process-shell-command command nil command)))
;; browser
([?\s-e] . (lambda ()
(interactive)
- (start-process-shell-command "vimb" nil "vimb")))
+ (start-process-shell-command "firefox" nil "firefox")))
;; ([?\M-e] . (lambda ()
- ;; (interactive)
- ;; (start-process-shell-command "vimb" nil "vimb")))
+ ;; (interactive)
+ ;; (start-process-shell-command "vimb" nil "vimb")))
;;terminal
- ([s-return] . 'eshell)
- ;; ([M-return] . (lambda ()
- ;; (interactive)
- ;;if we are already there, switch back
- ;; (if (string= (buffer-name (current-buffer)) "*vterm*")
- ;; (exwm-workspace-switch-to-buffer exwm-last-buffer)
- ;; (progn
- ;; (setq exwm-last-buffer (current-buffer))
- ;; (vterm)))))
+ ([s-return] . eshell)
+ ;; ((kbd "M-<return>") . eshell)
+ ;; ([?\M-return] . (lambda ()
+ ;; (interactive)
+ ;;if we are already there, switch back
+ ;; (if (string= (buffer-name (current-buffer)) "*vterm*")
+ ;; (exwm-workspace-switch-to-buffer exwm-last-buffer)
+ ;; (progn
+ ;; (setq exwm-last-buffer (current-buffer))
+ ;; (vterm)))))
;; return to the last window
- ;; ([s-tab] . (lambda ()
+ ;; ([?\s-tab] . (lambda ()
;; (interactive)
;; (exwm-workspace-switch-to-buffer (other-buffer))))
;; kill the current window and close the buffer if possible
([?\s-Q] . kill-buffer-and-window)
+ ([?\M-Q] . kill-buffer-and-window)
;; kill current buffer but leave window
([?\s-q] . (lambda () (interactive) (kill-buffer nil)))
;; suspend
- ([?\s-`] . (lambda ()
- (interactive)
- (start-process "" nil "loginctl" "suspend")))
+ ;; ([?\s-`] . (lambda ()
+ ;; (interactive)
+ ;; (start-process "" nil "loginctl" "suspend")))
))
;; requires some custom shell scripts not included in my emacs config
diff --git a/emacs/site-lisp/general-text.el b/emacs/site-lisp/general-text.el
index d03171a..e593487 100644
--- a/emacs/site-lisp/general-text.el
+++ b/emacs/site-lisp/general-text.el
@@ -20,7 +20,7 @@
(setq ispell-personal-dictionary "/home/tmu/.aspell.en.pws")
(add-hook 'text-mode-hook (lambda ()
- (ispell-mode 1)
+ (ispell-minor-mode 1)
(local-set-key (kbd "M-l") 'dict-map)))
(electric-pair-mode 1)
diff --git a/emacs/site-lisp/irc-config.el b/emacs/site-lisp/irc-config.el
new file mode 100644
index 0000000..d9213ef
--- /dev/null
+++ b/emacs/site-lisp/irc-config.el
@@ -0,0 +1,24 @@
+
+;; erc stuff
+(require 'erc)
+(setq erc-modules '(services autojoin button completion fill imenu irccontrols list match menu
+ move-to-prompt netsplit networks readonly ring stamp track)
+ erc-nick "tccq"
+ erc-use-auth-source-for-nickserv-password t
+ erc-autojoin-channels-alist '(("libera.chat"
+ "#emacs" "#emacs-social" "#linux" "#archlinux" "#haskell" "#invidious"))
+
+ erc-hide-list '("JOIN" "PART" "QUIT")
+ erc-current-nick-highlight-type 'nick
+ erc-keywords nil
+ erc-track-exclude-types '("JOIN" "PART" "QUIT" "NICK" "MODE")
+ erc-track-use-faces t
+ erc-track-faces-priority-list '(erc-current-nick-face erc-keyword-face)
+ erc-track-priority-faces-only 'all)
+
+(defun start-erc ()
+ "Start erc and autojoin various channels"
+ (interactive)
+ (erc :server "irc.libera.chat" :port 6667))
+
+(provide 'irc-config)
diff --git a/emacs/site-lisp/modeline-config.el b/emacs/site-lisp/modeline-config.el
index 873f855..b74a15d 100644
--- a/emacs/site-lisp/modeline-config.el
+++ b/emacs/site-lisp/modeline-config.el
@@ -2,8 +2,8 @@
(provide 'modeline-config)
-(require 'battery)
-(display-battery-mode 1)
+;; (require 'battery)
+;; (display-battery-mode 1)
(use-package doom-modeline
:init
diff --git a/emacs/site-lisp/my-binds.el b/emacs/site-lisp/my-binds.el
index d3455e4..0b85e66 100644
--- a/emacs/site-lisp/my-binds.el
+++ b/emacs/site-lisp/my-binds.el
@@ -17,8 +17,3 @@
(keymap-set dired-mode-map "C-o" 'dired-display-file)
(keymap-set dired-mode-map "F" 'dired-do-find-marked-files)
-
-(global-set-key (kbd "M-l") 'forward-char)
-(global-set-key (kbd "M-j") 'next-line)
-(global-set-key (kbd "M-k") 'previous-line)
-(global-set-key (kbd "M-h") 'backward-char)