Lastly, I use Evil mode. I think modal keybindings are simple and more ergonomic than standard Emacs style, and Vim keybindings are what I'm comfortable with and are pervasive throughout computing.
** TODOs
*** TODO Turn keybinding and hook declarations into use-package declarations where possible
-*** TODO Put configs with passwords in here with some kind of authentication
-- Offlineimap
-- irc.el
+*** TODO Include offlineimap config
** License
Released under the [[https://opensource.org/licenses/MIT][MIT license]] by Armaan Bhojwani, 2021. Note that many snippets are taken from online, and other sources, who are credited for their work at the snippet.
* Package management
(add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
(add-to-list 'org-structure-template-alist '("sp" . "src conf :tangle ~/.spectrwm.conf"))
(add-to-list 'org-structure-template-alist '("ash" . "src shell :tangle ~/.config/ash/ashrc"))
- (add-to-list 'org-structure-template-alist '("al" . "src yml :tangle ~/.config/alacritty/alacritty.yml"))
(add-to-list 'org-structure-template-alist '("ipy" . "src python :tangle ~/.ipython/"))
(add-to-list 'org-structure-template-alist '("pi" . "src conf :tangle ~/.config/picom/picom.conf"))
(add-to-list 'org-structure-template-alist '("git" . "src conf :tangle ~/.gitconfig"))
(add-to-list 'org-structure-template-alist '("za" . "src conf :tangle ~/.config/zathura/zathurarc"))
(add-to-list 'org-structure-template-alist '("ff1" . "src css :tangle ~/.mozilla/firefox/armaan-release/chrome/userChrome.css"))
(add-to-list 'org-structure-template-alist '("ff2" . "src css :tangle ~/.mozilla/firefox/armaan-release/chrome/userContent.css"))
- (add-to-list 'org-structure-template-alist '("xr" . "src conf :tangle ~/.Xresources")
- (add-to-list 'org-structure-template-alist '("tm" . "src conf :tangle ~/.tmux.conf")))
+ (add-to-list 'org-structure-template-alist '("xr" . "src conf :tangle ~/.Xresources"))
+ (add-to-list 'org-structure-template-alist '("tm" . "src conf :tangle ~/.tmux.conf"))
+ (add-to-list 'org-structure-template-alist '("gp" . "src conf :tangle ~/.gnupg/gpg.conf"))
+ (add-to-list 'org-structure-template-alist '("ag" . "src conf :tangle ~/.gnupg/gpg-agent.conf")))
#+end_src
* Autocompletion
** Ivy
mu4e-confirm-quit nil
mu4e-view-use-gnus t
mail-user-agent 'mu4e-user-agent
+ mail-context-policy 'pick-first
mu4e-contexts
`( ,(make-mu4e-context
:name "school"
:key ?b))
:hook ((mu4e-compose-mode . flyspell-mode)
(mu4e-compose-mode . auto-fill-mode)
- (mu4e-view-mode-hook . turn-on-visual-line-mode)))
-
+ (mu4e-view-mode-hook . turn-on-visual-line-mode)
+ (message-send-hook . (lambda () (unless (yes-or-no-p "Ya sure 'bout that?")
+ (signal 'quit nil))))))
#+end_src
Discourage Gnus from displaying HTML emails
#+begin_src emacs-lisp
:bind (("C-c w" . eww))
:hook (eww-after-render-hook prot-eww--rename-buffer))
#+end_src
-*** Better entrypoint
+*** Keybinding
#+begin_src emacs-lisp
- ;; From https://protesilaos.com/dotemacs/
- (defun prot-eww-browse-dwim (url &optional arg)
- "Visit a URL, maybe from `eww-prompt-history', with completion.
-
- With optional prefix ARG (\\[universal-argument]) open URL in a
- new eww buffer.
-
- If URL does not look like a valid link, run a web query using
- `eww-search-prefix'.
-
- When called from an eww buffer, provide the current link as
- initial input."
- (interactive
- (list
- (completing-read "Query:" eww-prompt-history
- nil nil (plist-get eww-data :url) 'eww-prompt-history)
- current-prefix-arg))
- (eww url (if arg 4 nil)))
-
- (global-set-key (kbd "C-c w") 'prot-eww-browse-dwim)
+ (global-set-key (kbd "C-c w") 'eww)
#+end_src
** IRC
#+begin_src emacs-lisp
- (use-package erc
- :straight (:type built-in)
- :config
- (load "~/.emacs.d/irc.el")
- (erc-notifications-mode 1)
- (erc-smiley-disable)
- :custom (erc-prompt-for-password . nil))
+ (defun fetch-password (&rest params)
+ (require 'auth-source)
+ (let ((match (car (apply 'auth-source-search params))))
+ (if match
+ (let ((secret (plist-get match :secret)))
+ (if (functionp secret)
+ (funcall secret)
+ secret))
+ (error "Password not found for %S" params))))
- (use-package erc-hl-nicks
- :config (erc-hl-nicks-mode 1))
-
- (defun acheam-irc ()
- "Connect to irc"
- (interactive)
- (erc-tls :server "irc.armaanb.net" :nick "emacs"))
-
- (acheam-irc)
-#+end_src
-** Emacs Anywhere
-Use Emacs globally. Use the Emacs daemon and bind a key in your wm to =emacsclient --eval "(emacs-everywhere)"=.
-#+begin_src emacs-lisp
- (use-package emacs-everywhere)
+ (use-package circe
+ :config
+ (enable-lui-track)
+ (enable-circe-color-nicks)
+ (circe "pounce")
+ :custom
+ (circe-network-options . '(("pounce"
+ :host "irc.armaanb.net"
+ :nick "emacs"
+ :use-tls t
+ :port "6697"
+ :pass (lambda (fetch-password
+ :login "emacs"
+ :machine "irc.armaanb.net"
+ :port 6697)))))
+ (circe-default-part-message "goodbye!"))
#+end_src
* Emacs IDE
** Code cleanup
:straight (git-email :repo "https://git.sr.ht/~yoctocell/git-email")
:config (git-email-piem-mode))
#+end_src
+** Java
+*** Evaluate current buffer
+Stolen from https://stackoverflow.com/questions/19953924/how-do-you-run-java-codes-in-emacs
+#+begin_src emacs-lisp
+ (defun java-eval-buffer ()
+ "run current program (that requires no input)"
+ (interactive)
+ (let* ((source (file-name-nondirectory buffer-file-name))
+ (out (file-name-sans-extension source))
+ (class (concat out ".class")))
+ (save-buffer)
+ (shell-command (format "rm -f %s && javac %s" class source))
+ (if (file-exists-p class)
+ (shell-command (format "java %s" out) "*scratch*")
+ (progn
+ (set (make-local-variable 'compile-command)
+ (format "javac %s" source))
+ (command-execute 'compile)))))
+#+end_src
* General text editing
** Indentation
Indent after every change.
"0c" '0x0-upload-kill-ring
"0p" '0x0-upload-popup))
#+end_src
+** Automatically clean buffers
+#+begin_src emacs-lisp
+ ;; Don't kill Circe buffers
+ (add-to-list 'clean-buffer-list-kill-never-regexps (lambda (buffer-name)
+ (with-current-buffer buffer-name
+ (derived-mode-p 'lui-mode))))
+ (midnight-mode)
+#+end_src
* Tangles
** Spectrwm
*** General settings
#+begin_src conf :tangle ~/.spectrwm.conf
program[email] = emacsclient -c --eval "(mu4e)"
program[irc] = emacsclient -c --eval '(switch-to-buffer "irc.armaanb.net:6697")'
+ program[rss] = emacsclient -c --eval '(elfeed)'
program[emacs] = emacsclient -c
program[firefox] = firefox
program[calc] = st -e because -l
- program[emacs-anywhere] = emacsclient --eval "(emacs-everywhere)"
bind[email] = MOD+Control+1
bind[irc] = MOD+Control+2
- bind[firefox] = MOD+Control+3
- bind[emacs-anywhere] = MOD+Control+4
+ bind[rss] = MOD+Control+3
+ bind[firefox] = MOD+Control+4
bind[calc] = MOD+Control+5
bind[emacs] = MOD+Control+Return
#+end_src
finger() {
user=$(echo "$1" | cut -f 1 -d '@')
host=$(echo "$1" | cut -f 2 -d '@')
- echo $user | nc "$host" 79 -N
+ echo $user | nc "$host" 79
}
#+end_src
**** Upload to ftp.armaanb.net
alias ln='ln -v'
alias grep='grep -in --color=auto'
alias mkdir='mkdir -pv'
- alias wget='wget -e robots=off'
alias lanex='java -jar ~/.local/share/lxc/lanxchange.jar'
- alias vim=$EDITOR
- alias emacs=$EDITOR
+ alias vim="$EDITOR &"
+ alias emacs="$EDITOR &"
#+end_src
**** System management
#+begin_src shell :tangle ~/.config/ash/ashrc
alias bc='bc -l'
#+end_src
** IPython
-*** General
-Symlink profile_default/ipython_config.py to profile_math/ipython_config.py
#+begin_src python :tangle ~/.ipython/profile_default/ipython_config.py
c.TerminalInteractiveShell.editing_mode = 'vi'
c.InteractiveShell.colors = 'linux'
c.TerminalInteractiveShell.confirm_exit = False
#+end_src
-*** Math
-#+begin_src python :tangle ~/.ipython/profile_math/startup.py
- from math import *
-
- def deg(x):
- return x * (180 / pi)
-
- def rad(x):
- return x * (pi / 180)
-
- def rad(x, unit):
- return (x * (pi / 180)) / unit
-
- def csc(x):
- return 1 / sin(x)
-
- def sec(x):
- return 1 / cos(x)
-
- def cot(x):
- return 1 / tan(x)
-#+end_src
** MPV
Make MPV play a little bit smoother.
#+begin_src conf :tangle ~/.config/mpv/mpv.conf
}
#+end_src
*** Black screen by default
+userChrome.css:
#+begin_src css :tangle ~/.mozilla/firefox/armaan-release/chrome/userChrome.css
#main-window,
#browser,
color: #fff !important;
}
#+end_src
+
+userContent.css:
#+begin_src css :tangle ~/.mozilla/firefox/armaan-release/chrome/userContent.css
@-moz-document url("about:home"), url("about:blank"), url("about:newtab") {
body {
}
#+end_src
** Xresources
-*** Color scheme
-Modus operandi.
+Modus operandi theme.
#+begin_src conf :tangle ~/.Xresources
! special
,*.foreground: #ffffff
,*.color7: #eeeeee
,*.color15: #dddddd
#+end_src
-*** Copy paste
-#+begin_src conf :tangle ~/.Xresources
- xterm*VT100.Translations: #override \
- Shift <KeyPress> Insert: insert-selection(CLIPBOARD) \n\
- Ctrl Shift <Key>V: insert-selection(CLIPBOARD) \n\
- Ctrl Shift <Key>C: copy-selection(CLIPBOARD) \n\
- Ctrl <Btn1Up>: exec-formatted("xdg-open '%t'", PRIMARY)
-#+end_src
-*** Blink cursor
-#+begin_src conf :tangle ~/.Xresources
- xterm*cursorBlink: true
-#+end_src
-*** Alt keys
-#+begin_src conf :tangle ~/.Xresources
- XTerm*eightBitInput: false
- XTerm*eightBitOutput: true
-#+end_src
** Tmux
#+begin_src conf :tangle ~/.tmux.conf
set -g status off
+ set -g mouse on
set-window-option -g mode-keys vi
#+end_src
+** GPG
+*** Config
+#+begin_src conf :tangle ~/.gnupg/gpg.conf
+ default-key 3C9ED82FFE788E4A
+ use-agent
+#+end_src
+*** Agent
+#+begin_src conf :tangle ~/.gnupg/gpg-agent.conf
+ pinentry-program /sbin/pinentry-gnome3
+ max-cache-ttl 600
+ default-cache-ttl 600
+ allow-emacs-pinentry
+#+end_src