projects
/
~bandali
/
configs
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
sway: disable mouse warping and use the right ctrl for win
[~bandali/configs]
/
.emacs.d
/
init.el
diff --git
a/.emacs.d/init.el
b/.emacs.d/init.el
index
4102df0
..
1f31d3b
100644
(file)
--- a/
.emacs.d/init.el
+++ b/
.emacs.d/init.el
@@
-394,6
+394,7
@@
For disabling the behaviour for certain buffers and/or modes."
;; time and battery in mode-line
(use-feature time
;; time and battery in mode-line
(use-feature time
+ :disabled
:demand
:config
(display-time-mode)
:demand
:config
(display-time-mode)
@@
-402,6
+403,7
@@
For disabling the behaviour for certain buffers and/or modes."
(display-time-format "%a %b %-e, %-l:%M%P"))
(use-feature battery
(display-time-format "%a %b %-e, %-l:%M%P"))
(use-feature battery
+ :disabled
:demand
:config
(display-battery-mode)
:demand
:config
(display-battery-mode)
@@
-561,6
+563,7
@@
For disabling the behaviour for certain buffers and/or modes."
;;; Essential packages
(use-package exwm
;;; Essential packages
(use-package exwm
+ :disabled
:demand
:config
;; make class name the buffer name, truncating beyond 60 characters
:demand
:config
;; make class name the buffer name, truncating beyond 60 characters
@@
-722,13
+725,13
@@
around if needed."
([?\C-y] . [?\C-v])
([?\M-d] . [C-S-right ?\C-x])
([?\M-\d] . [C-S-left ?\C-x])
([?\C-y] . [?\C-v])
([?\M-d] . [C-S-right ?\C-x])
([?\M-\d] . [C-S-left ?\C-x])
- ;; search
- ([?\C-s] . [?\C-f])
- ;; escape
- ([?\C-g] . [escape])
;; window
([?\s-w] . [?\C-w])
;; window
([?\s-w] . [?\C-w])
- ([?\s-q] . [?\C-q]))))
+ ([?\s-q] . [?\C-q])
+ ;; misc
+ ([?\C-s] . [?\C-f])
+ ([?\s-s] . [?\C-s])
+ ([?\C-g] . [escape]))))
(use-feature exwm-manage
:demand
(use-feature exwm-manage
:demand
@@
-754,7
+757,20
@@
around if needed."
:demand
:after exwm
:config
:demand
:after exwm
:config
- (exwm-randr-enable))
+ (exwm-randr-enable)
+ :custom
+ (exwm-randr-workspace-monitor-plist '(1 "VGA-1"))
+ :hook
+ (exwm-randr-screen-change . (lambda ()
+ (let ((xrandr
+ (string-join
+ '("xrandr"
+ "--output VGA-1"
+ "--same-as LVDS-1"
+ "--auto")
+ " ")))
+ (start-process-shell-command
+ "xrandr" nil xrandr)))))
(use-feature exwm-systemtray
:demand
(use-feature exwm-systemtray
:demand
@@
-1317,8
+1333,6
@@
This function is intended for use with `ivy-ignore-buffers'."
(eval-when-compile (defvar lean-mode-map))
(use-package lean-mode
(eval-when-compile (defvar lean-mode-map))
(use-package lean-mode
- :straight (:host github :repo "leanprover/lean-mode"
- :fork (:repo "notbandali/lean-mode" :branch "remove-cl"))
:defer 0.4
:bind (:map lean-mode-map
("S-SPC" . company-complete))
:defer 0.4
:bind (:map lean-mode-map
("S-SPC" . company-complete))
@@
-1483,6
+1497,10
@@
This function is intended for use with `ivy-ignore-buffers'."
:hook ((tex-mode . auto-fill-mode)
(tex-mode . flyspell-mode)))
:hook ((tex-mode . auto-fill-mode)
(tex-mode . flyspell-mode)))
+(use-package george-mode
+ :straight (:host nil :repo "https://git.shemshak.org/amin/george-mode")
+ :mode "\\.grg\\'")
+
\f
;;; Theme
\f
;;; Theme
@@
-1523,7
+1541,7
@@
This function is intended for use with `ivy-ignore-buffers'."
(set-face-attribute 'mode-line-inactive nil :underline line)
(set-face-attribute 'mode-line nil :box nil)
(set-face-attribute 'mode-line-inactive nil :box nil)
(set-face-attribute 'mode-line-inactive nil :underline line)
(set-face-attribute 'mode-line nil :box nil)
(set-face-attribute 'mode-line-inactive nil :box nil)
- (set-face-attribute 'mode-line-inactive nil :background "#e
eeeee
")) ; d3d7cf
+ (set-face-attribute 'mode-line-inactive nil :background "#e
1e1e1
")) ; d3d7cf
(moody-replace-mode-line-buffer-identification)
(moody-replace-vc-mode))
(moody-replace-mode-line-buffer-identification)
(moody-replace-vc-mode))
@@
-1541,8
+1559,7
@@
This function is intended for use with `ivy-ignore-buffers'."
(load-theme 'tangomod t)
;; (sml/apply-theme 'automatic)
(font-lock-remove-keywords
(load-theme 'tangomod t)
;; (sml/apply-theme 'automatic)
(font-lock-remove-keywords
- 'org-mode b/org-mode-font-lock-keywords)
- (exwm-systemtray--refresh))
+ 'org-mode b/org-mode-font-lock-keywords))
(defun b/lights-off ()
"Go dark."
(defun b/lights-off ()
"Go dark."
@@
-1551,8
+1568,7
@@
This function is intended for use with `ivy-ignore-buffers'."
(load-theme 'doom-one t)
;; (sml/apply-theme 'automatic)
(font-lock-add-keywords
(load-theme 'doom-one t)
;; (sml/apply-theme 'automatic)
(font-lock-add-keywords
- 'org-mode b/org-mode-font-lock-keywords t)
- (exwm-systemtray--refresh))
+ 'org-mode b/org-mode-font-lock-keywords t))
(bind-keys
("C-c t d" . b/lights-off)
(bind-keys
("C-c t d" . b/lights-off)
@@
-1721,8
+1737,8
@@
This function is intended for use with `ivy-ignore-buffers'."
:defer 0.5
:config
(typo-global-mode 1)
:defer 0.5
:config
(typo-global-mode 1)
- :hook (((text-mode erc-mode) . typo-mode)
- (tex-mode . (lambda ()(typo-mode -1)))))
+ :hook (((text-mode erc-mode
web-mode
) . typo-mode)
+ (tex-mode
. (lambda ()(typo-mode -1)))))
;; highlight TODOs in buffers
(use-package hl-todo
;; highlight TODOs in buffers
(use-package hl-todo
@@
-1869,6
+1885,7
@@
This function is intended for use with `ivy-ignore-buffers'."
;; (use-package fill-column-indicator)
(use-package emojify
;; (use-package fill-column-indicator)
(use-package emojify
+ :disabled
:hook (erc-mode . emojify-mode))
(use-feature window
:hook (erc-mode . emojify-mode))
(use-feature window
@@
-1911,6
+1928,14
@@
This function is intended for use with `ivy-ignore-buffers'."
:config (pdf-tools-install nil t)
:custom (pdf-view-resize-factor 1.05))
:config (pdf-tools-install nil t)
:custom (pdf-view-resize-factor 1.05))
+(use-package org-pdftools
+ :straight (:host github :repo "fuxialexander/org-pdftools")
+ :demand
+ :after org
+ :config
+ (with-eval-after-load 'org
+ (require 'org-pdftools)))
+
(use-package biblio)
(use-feature reftex
(use-package biblio)
(use-feature reftex
@@
-1989,9
+2014,9
@@
This function is intended for use with `ivy-ignore-buffers'."
;; (: gnus-group-split-fancy "INBOX" t "INBOX")
;; gnu
(list ".*<\\(.*\\)\\.\\(non\\)?gnu\\.org>.*" "l.\\1")
;; (: gnus-group-split-fancy "INBOX" t "INBOX")
;; gnu
(list ".*<\\(.*\\)\\.\\(non\\)?gnu\\.org>.*" "l.\\1")
- ;; *
@
lists.sr.ht, omitting one dot if present
- ;; add more \\.?\\([^.
@
]*\\) if needed
- (list ".*<~\\(.*\\)/\\([^.
@]*\\)\\.?\\([^.@]*\\)@
lists.sr.ht>.*" "l.~\\1.\\2\\3")
+ ;; *
.
lists.sr.ht, omitting one dot if present
+ ;; add more \\.?\\([^.]*\\) if needed
+ (list ".*<~\\(.*\\)/\\([^.
]*\\)\\.?\\([^.]*\\)\\.
lists.sr.ht>.*" "l.~\\1.\\2\\3")
;; webmasters
(from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")
;; other
;; webmasters
(from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")
;; other
@@
-2027,7
+2052,7
@@
This function is intended for use with `ivy-ignore-buffers'."
(nnimap-server-port 143)
(nnimap-authenticator plain)
(nnimap-user "abandali@csc.uw.local")))
(nnimap-server-port 143)
(nnimap-authenticator plain)
(nnimap-user "abandali@csc.uw.local")))
- gnus-message-archive-group "nnimap+
shemshak:Sent
"
+ gnus-message-archive-group "nnimap+
gnu:INBOX
"
gnus-parameters
'(("l\\.atreus"
(to-address . "atreus@freelists.org")
gnus-parameters
'(("l\\.atreus"
(to-address . "atreus@freelists.org")
@@
-2248,25
+2273,26
@@
Computer Science Club, University of Waterloo
https://csclub.uwaterloo.ca/~abandali")
(setq gnus-posting-styles
'((".*"
https://csclub.uwaterloo.ca/~abandali")
(setq gnus-posting-styles
'((".*"
+ (address "bandali@gnu.org")
+ (signature b/gnu-signature)
+ (eval (set (make-local-variable 'message-user-fqdn) "fencepost.gnu.org")))
+ ("nnimap\\+shemshak:.*"
(address "amin@shemshak.org")
(body "\nBest,\n")
(signature b/signature)
(address "amin@shemshak.org")
(body "\nBest,\n")
(signature b/signature)
+ (gcc "nnimap+shemshak:Sent")
(eval (setq b/message-cite-say-hi t)))
(eval (setq b/message-cite-say-hi t)))
- ("nnimap\\+gnu:.*"
- (address "bandali@gnu.org")
- (signature b/gnu-signature)
- (eval (set (make-local-variable 'message-user-fqdn) "fencepost.gnu.org")))
((header "subject" "ThankCRM")
(to "webmasters-comment@gnu.org")
(body "")
(eval (setq b/message-cite-say-hi nil)))
("nnimap\\+uw:.*"
((header "subject" "ThankCRM")
(to "webmasters-comment@gnu.org")
(body "")
(eval (setq b/message-cite-say-hi nil)))
("nnimap\\+uw:.*"
- (address "
a
bandali@uwaterloo.ca")
+ (address "bandali@uwaterloo.ca")
(signature b/uw-signature))
("nnimap\\+uw:INBOX"
(gcc "\"nnimap+uw:Sent Items\""))
("nnimap\\+csc:.*"
(signature b/uw-signature))
("nnimap\\+uw:INBOX"
(gcc "\"nnimap+uw:Sent Items\""))
("nnimap\\+csc:.*"
- (address "
a
bandali@csclub.uwaterloo.ca")
+ (address "bandali@csclub.uwaterloo.ca")
(signature b/csc-signature)
(gcc "nnimap+csc:Sent")))))
(signature b/csc-signature)
(gcc "nnimap+csc:Sent")))))
@@
-2344,7
+2370,7
@@
https://csclub.uwaterloo.ca/~abandali")
message-subscribed-address-functions
'(gnus-find-subscribed-addresses)
message-dont-reply-to-names
message-subscribed-address-functions
'(gnus-find-subscribed-addresses)
message-dont-reply-to-names
- "\\(\\(\\(amin\\|mab\\)@shemshak\\.org\\)\\|\\(
amin@bndl\\.org\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(bandali\\|mab\\|aminb?\\)@gnu\\.org\\)\\|\\(a\\(min\\.\\)?bandali@uwaterloo\\.ca\\)\\|\\(abandali@csclub\\.
uwaterloo\\.ca\\)\\)")
+ "\\(\\(\\(amin\\|mab\\)@shemshak\\.org\\)\\|\\(
.*@aminb\\.org\\)\\|\\(\\(bandali\\|mab\\|aminb?\\)@gnu\\.org\\)\\|\\(a?bandali@\\(csclub\\.\\)?
uwaterloo\\.ca\\)\\)")
(require 'company-ebdb)
:hook (;; (message-setup . mml-secure-message-sign-pgpmime)
(message-mode . flyspell-mode)
(require 'company-ebdb)
:hook (;; (message-setup . mml-secure-message-sign-pgpmime)
(message-mode . flyspell-mode)
@@
-2415,7
+2441,7
@@
https://csclub.uwaterloo.ca/~abandali")
(use-feature ebdb-mua
:demand
:after ebdb
(use-feature ebdb-mua
:demand
:after ebdb
- :custom (ebdb-mua-pop-up
nil
))
+ :custom (ebdb-mua-pop-up
t
))
;; (use-package ebdb-message
;; :after ebdb)
;; (use-package ebdb-message
;; :after ebdb)
projects / ~bandali / configs / blobdiff