Add `apii` alias

[config.org.git] / config.org

diff --git a/config.org b/config.org
index 05c4d769aa8a2830a709d5023f1fa7ff20a173b2..b4408790b61133a9b02dd901042713dad6859b6c 100644 (file)
--- a/config.org
+++ b/config.org
@@ -48,7 +48,7 @@ Its fine to set this here because I run Emacs in daemon mode, but if I were not,
 #+begin_src emacs-lisp
   (setq modus-themes-slanted-constructs t
         modus-themes-bold-constructs t
-        modus-themes-org-blocks 'rainbow
+        modus-themes-org-blocks 'grayscale
         modus-themes-mode-line '3d
         modus-themes-scale-headings t
         modus-themes-region 'no-extend
@@ -69,7 +69,7 @@ Great programming font with ligatures.
     (ligature-set-ligatures
      '(prog-mode text-mode)
      '("-|" "-~" "---" "-<<" "-<" "--" "->" "->>" "-->" "///" "/=" "/=="
-       "/>" "//" "/*" "*>" "***" "*/" "<-" "<<-" "<=>" "<=" "<|" "<||"
+       "/>" "//" "/*" "*>" "*/" "<-" "<<-" "<=>" "<=" "<|" "<||"
        "<|||" "<|>" "<:" "<>" "<-<" "<<<" "<==" "<<=" "<=<" "<==>" "<-|"
        "<<" "<~>" "<=|" "<~~" "<~" "<$>" "<$" "<+>" "<+" "</>" "</" "<*"
        "<*>" "<->" "<!--" ":>" ":<" ":::" "::" ":?" ":?>" ":=" "::=" "=>>"
@@ -220,7 +220,7 @@ tpope prevails!
     :custom (evilnc-invert-comment-line-by-line nil))
 #+end_src
 ** Undo tree
-Fix the oopsies!
+Fix the oopsies! Maybe replace with undo-fu or Emacs 28 built in undo-redo.
 #+begin_src emacs-lisp
   (use-package undo-tree
     :custom
@@ -269,13 +269,15 @@ Add back C-a/C-x
     :custom
     (org-ellipsis " ▾")
     (org-agenda-start-with-log-mode t)
+    (org-agenda-files (quote ("~/Org/tasks.org" "~/Org/break.org")))
     (org-log-done 'time)
     (org-log-into-drawer t)
     (org-src-tab-acts-natively t)
     (org-src-fontify-natively t)
     (org-startup-indented t)
     (org-hide-emphasis-markers t)
-    (org-fontify-whole-block-delimiter-line nil))
+    (org-fontify-whole-block-delimiter-line nil)
+    :bind ("C-c a" . org-agenda))
 #+end_src
 ** Tempo
 #+begin_src emacs-lisp
@@ -460,6 +462,44 @@ Set EWW as default browser except for videos.
           ("." . eww-browse-url)
           )))
 #+end_src
+** EWW
+Some EWW enhancements.
+*** Give buffer a useful name
+#+begin_src emacs-lisp
+  ;; From https://protesilaos.com/dotemacs/
+  (defun prot-eww--rename-buffer ()
+    "Rename EWW buffer using page title or URL.
+  To be used by `eww-after-render-hook'."
+    (let ((name (if (eq "" (plist-get eww-data :title))
+                    (plist-get eww-data :url)
+                  (plist-get eww-data :title))))
+      (rename-buffer (format "*%s # eww*" name) t)))
+
+  (add-hook 'eww-after-render-hook #'prot-eww--rename-buffer)
+#+end_src
+*** Better entrypoint
+#+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)
+#+end_src
 ** Emacs Anywhere
 Use Emacs globally. Use the Emacs daemon and bind a key in your wm to
 "emacsclient --eval "(emacs-everywhere)".
@@ -575,8 +615,7 @@ Company-box adds icons.
 *** Magit
 # TODO: Write a command that commits hunk, skipping staging step.
 #+begin_src emacs-lisp
-  (use-package magit
-    :hook (magit-mode-hook. pinentry-start))
+  (use-package magit)
 #+end_src
 *** Colored diff in line number area
 #+begin_src emacs-lisp
@@ -637,6 +676,10 @@ Abbreviate things!
   (setq save-abbrevs 'silent)
   (setq-default abbrev-mode t)
 #+end_src
+** TRAMP
+#+begin_src emacs-lisp
+  (setq tramp-default-method "ssh")
+#+end_src
 * Functions
 ** Easily convert splits
 Converts splits from horizontal to vertical and vice versa. Lifted from EmacsWiki.
@@ -726,12 +769,14 @@ No more clogging up init.el.
 ** GPG
 #+begin_src emacs-lisp
   (use-package epa-file
-    :straight (:type built-in))
-  (setq epa-file-select-keys nil
-        epa-file-encrypt-to '("me@armaanb.net")
-        password-cache-expiry (* 60 15))
+    :straight (:type built-in)
+    :custom
+    (epa-file-select-keys nil)
+    (epa-file-encrypt-to '("me@armaanb.net"))
+    (password-cache-expiry (* 60 15)))
 
-  (use-package pinentry)
+  (use-package pinentry
+    :config (pinentry-start))
 #+end_src
 ** Pastebin
 #+begin_src emacs-lisp
@@ -808,10 +853,10 @@ Gruvbox colors
   program[k] = xdotool keyup k key --clearmodifiers Up
   program[l] = xdotool keyup l key --clearmodifiers Right
 
-  bind[h] = MOD + Control + h
-  bind[j] = MOD + Control + j
-  bind[k] = MOD + Control + k
-  bind[l] = MOD + Control + l
+  bind[h] = Mod1 + Tab + h
+  bind[j] = Mod1 + Tab + j
+  bind[k] = Mod1 + Tab + k
+  bind[l] = Mod1 + Tab + l
 #+end_src
 **** Programs
 #+begin_src conf :tangle ~/.spectrwm.conf
@@ -1112,6 +1157,7 @@ I manage plugins using my own plugin manager, ZPE. https://git.sr.ht/~armaan/zpe
 #+begin_src shell :tangle ~/.config/zsh/zshrc
   alias aps='yay -Ss'
   alias api='yay -Syu'
+  alias apii='sudo pacman -S'
   alias app='yay -Rns'
   alias apc='yay -Sc'
   alias apo='yay -Qttd'