[rc/i3status] some tweaks

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index bc1be0c..3679c1c 100644 (file)
--- a/init.org
+++ b/init.org
@@ -400,7 +400,7 @@ in my shell.
 
 #+begin_src emacs-lisp
 (use-package exec-path-from-shell
 
 #+begin_src emacs-lisp
 (use-package exec-path-from-shell

-  :defer 1
+  :defer 0.4

   :init
   (setq exec-path-from-shell-arguments           nil
         exec-path-from-shell-check-startup-files nil)
   :init
   (setq exec-path-from-shell-arguments           nil
         exec-path-from-shell-check-startup-files nil)


@@ -431,7 +431,7 @@ See [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.htm
 
 #+begin_src emacs-lisp
 (use-feature server
 
 #+begin_src emacs-lisp
 (use-feature server

-  :defer 1
+  :defer 0.4

   :config (or (server-running-p) (server-mode)))
 #+end_src
 
   :config (or (server-running-p) (server-mode)))
 #+end_src
 


@@ -507,14 +507,14 @@ buffers and/or modes.
       scroll-preserve-screen-position 1)
 
 (use-feature mwheel
       scroll-preserve-screen-position 1)
 
 (use-feature mwheel

-  :defer 1
+  :defer 0.4

   :config
   (setq mouse-wheel-scroll-amount '(1 ((shift) . 1)) ; one line at a time
         mouse-wheel-progressive-speed nil            ; don't accelerate scrolling
         mouse-wheel-follow-mouse t))                 ; scroll window under mouse
 
 (use-feature pixel-scroll
   :config
   (setq mouse-wheel-scroll-amount '(1 ((shift) . 1)) ; one line at a time
         mouse-wheel-progressive-speed nil            ; don't accelerate scrolling
         mouse-wheel-follow-mouse t))                 ; scroll window under mouse
 
 (use-feature pixel-scroll

-  :defer 1
+  :defer 0.4

   :config (pixel-scroll-mode 1))
 #+end_src
 
   :config (pixel-scroll-mode 1))
 #+end_src
 


@@ -883,23 +883,29 @@ And here's where my actual Org configurations begin:
 
 #+begin_src emacs-lisp
 (use-feature org
 
 #+begin_src emacs-lisp
 (use-feature org

-  :defer 2
+  :defer 0.5

   :config
   (setq org-src-tab-acts-natively t
         org-src-preserve-indentation nil
         org-edit-src-content-indentation 0
   :config
   (setq org-src-tab-acts-natively t
         org-src-preserve-indentation nil
         org-edit-src-content-indentation 0

-        org-email-link-description-format "Email %c: %s" ; %.30s
+        org-link-email-description-format "Email %c: %s" ; %.30s

         org-highlight-latex-and-related '(entities)
         org-use-speed-commands t
         org-startup-folded 'content
         org-catch-invisible-edits 'show-and-error
         org-log-done 'time)
   (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t)
         org-highlight-latex-and-related '(entities)
         org-use-speed-commands t
         org-startup-folded 'content
         org-catch-invisible-edits 'show-and-error
         org-log-done 'time)
   (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t)

-  :bind (:map org-mode-map ("M-L" . org-insert-last-stored-link))
+  :bind
+  (("C-c a o a" . org-agenda)
+   :map org-mode-map
+   ("M-L" . org-insert-last-stored-link))

   :hook ((org-mode . org-indent-mode)
          (org-mode . auto-fill-mode)
          (org-mode . flyspell-mode))
   :custom
   :hook ((org-mode . org-indent-mode)
          (org-mode . auto-fill-mode)
          (org-mode . flyspell-mode))
   :custom

+  (org-agenda-files '("~/usr/org/todos/personal.org"
+                      "~/usr/org/todos/masters.org"))
+  (org-agenda-start-on-weekday 0)

   (org-latex-packages-alist '(("" "listings") ("" "color")))
   :custom-face
   '(org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21"))))
   (org-latex-packages-alist '(("" "listings") ("" "color")))
   :custom-face
   '(org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21"))))


@@ -992,7 +998,7 @@ Not just how I do git, but /the/ way to do git.
 
 #+begin_src emacs-lisp
 (use-package magit
 
 #+begin_src emacs-lisp
 (use-package magit

-  :defer 2
+  :defer 0.5

   :bind (("C-x g" . magit-status)
          ("s-g s" . magit-status)
          ("s-g l" . magit-log-buffer-file))
   :bind (("C-x g" . magit-status)
          ("s-g s" . magit-status)
          ("s-g l" . magit-log-buffer-file))


@@ -1016,7 +1022,7 @@ Recently opened files.
 
 #+begin_src emacs-lisp
 (use-feature recentf
 
 #+begin_src emacs-lisp
 (use-feature recentf

-  :defer 0.5
+  :defer 0.2

   :config
   (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
   (setq recentf-max-saved-items 40))
   :config
   (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
   (setq recentf-max-saved-items 40))


@@ -1047,7 +1053,7 @@ There's no way I could top that, so I won't attempt to.
 
 #+begin_src emacs-lisp
 (use-package ivy
 
 #+begin_src emacs-lisp
 (use-package ivy

-  :defer 0.6
+  :defer 0.3

   :bind
   (:map ivy-minibuffer-map
    ([escape] . keyboard-escape-quit)
   :bind
   (:map ivy-minibuffer-map
    ([escape] . keyboard-escape-quit)


@@ -1095,7 +1101,7 @@ There's no way I could top that, so I won't attempt to.
 
 #+begin_src emacs-lisp
 (use-feature eshell
 
 #+begin_src emacs-lisp
 (use-feature eshell

-  :defer 2
+  :defer 0.5

   :commands eshell
   :bind ("C-c a s e" . eshell)
   :config
   :commands eshell
   :bind ("C-c a s e" . eshell)
   :config


@@ -1378,7 +1384,7 @@ Automatically save place in each file.
 
 #+begin_src emacs-lisp
 (use-package company
 
 #+begin_src emacs-lisp
 (use-package company

-  :defer 3
+  :defer 0.6

   :bind
   (:map company-active-map
         ([tab]    . company-complete-common-or-cycle)
   :bind
   (:map company-active-map
         ([tab]    . company-complete-common-or-cycle)


@@ -1397,7 +1403,7 @@ Automatically save place in each file.
 
 #+begin_src emacs-lisp
 (use-package flycheck
 
 #+begin_src emacs-lisp
 (use-package flycheck

-  :defer 3
+  :defer 0.6

   :hook (prog-mode . flycheck-mode)
   :bind
   (:map flycheck-mode-map
   :hook (prog-mode . flycheck-mode)
   :bind
   (:map flycheck-mode-map


@@ -1412,7 +1418,7 @@ Automatically save place in each file.
 
 ;; http://endlessparentheses.com/ispell-and-apostrophes.html
 (use-package ispell
 
 ;; http://endlessparentheses.com/ispell-and-apostrophes.html
 (use-package ispell

-  :defer 3
+  :defer 0.6

   :config
   ;; ’ can be part of a word
   (setq ispell-local-dictionary-alist
   :config
   ;; ’ can be part of a word
   (setq ispell-local-dictionary-alist


@@ -1474,7 +1480,7 @@ Automatically save place in each file.
 #+begin_src emacs-lisp
 (eval-when-compile (defvar lean-mode-map))
 (use-package lean-mode
 #+begin_src emacs-lisp
 (eval-when-compile (defvar lean-mode-map))
 (use-package lean-mode

-  :defer 1
+  :defer 0.4

   :bind (:map lean-mode-map
               ("S-SPC" . company-complete))
   :config
   :bind (:map lean-mode-map
               ("S-SPC" . company-complete))
   :config


@@ -1853,7 +1859,7 @@ Emacs package that displays available keybindings in popup
 
 #+begin_src emacs-lisp
 (use-package which-key
 
 #+begin_src emacs-lisp
 (use-package which-key

-  :defer 1
+  :defer 0.4

   :config
   (which-key-add-key-based-replacements
     ;; prefixes for global prefixes and minor modes
   :config
   (which-key-add-key-based-replacements
     ;; prefixes for global prefixes and minor modes


@@ -1870,6 +1876,7 @@ Emacs package that displays available keybindings in popup
     ;; prefixes for my personal bindings
     "C-c a"   "applications"
     "C-c a e" "erc"
     ;; prefixes for my personal bindings
     "C-c a"   "applications"
     "C-c a e" "erc"

+    "C-c a o" "org"

     "C-c a s" "shells"
     "C-c p"   "package-management"
     ;; "C-c p e" "package-management/epkg"
     "C-c a s" "shells"
     "C-c p"   "package-management"
     ;; "C-c p e" "package-management/epkg"


@@ -1968,7 +1975,7 @@ Emacs package that displays available keybindings in popup
 
 #+begin_src emacs-lisp
 (use-package crux                       ; results in Waiting for git... [2 times]
 
 #+begin_src emacs-lisp
 (use-package crux                       ; results in Waiting for git... [2 times]

-  :defer 1
+  :defer 0.4

   :bind (("C-c b k" . crux-kill-other-buffers)
          ("C-c d"   . crux-duplicate-current-line-or-region)
          ("C-c D"   . crux-duplicate-and-comment-current-line-or-region)
   :bind (("C-c b k" . crux-kill-other-buffers)
          ("C-c d"   . crux-duplicate-current-line-or-region)
          ("C-c D"   . crux-duplicate-and-comment-current-line-or-region)


@@ -2014,7 +2021,7 @@ Emacs package that displays available keybindings in popup
 
 #+begin_src emacs-lisp
 (use-package helpful
 
 #+begin_src emacs-lisp
 (use-package helpful

-  :defer 3
+  :defer 0.6

   :bind
   (("C-S-h c" . helpful-command)
    ("C-S-h f" . helpful-callable)        ; helpful-function
   :bind
   (("C-S-h c" . helpful-command)
    ("C-S-h f" . helpful-callable)        ; helpful-function


@@ -2029,7 +2036,7 @@ Make =*scratch*= and =*Messages*= unkillable.
 
 #+begin_src emacs-lisp
 (use-package unkillable-scratch
 
 #+begin_src emacs-lisp
 (use-package unkillable-scratch

-  :defer 3
+  :defer 0.6

   :config
   (unkillable-scratch 1)
   :custom
   :config
   (unkillable-scratch 1)
   :custom


@@ -2046,7 +2053,7 @@ Make =*scratch*= and =*Messages*= unkillable.
 
 #+begin_src emacs-lisp
 (use-package boxquote
 
 #+begin_src emacs-lisp
 (use-package boxquote

-  :defer 3
+  :defer 0.6

   :bind
   (:prefix-map a/boxquote-prefix-map
    :prefix "C-c q"
   :bind
   (:prefix-map a/boxquote-prefix-map
    :prefix "C-c q"


@@ -2086,7 +2093,7 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
 
 #+begin_src emacs-lisp
 (use-package typo
 
 #+begin_src emacs-lisp
 (use-package typo

-  :defer 2
+  :defer 0.5

   :config
   (typo-global-mode 1)
   :hook (text-mode . typo-mode))
   :config
   (typo-global-mode 1)
   :hook (text-mode . typo-mode))


@@ -2096,7 +2103,7 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
 
 #+begin_src emacs-lisp
 (use-package hl-todo
 
 #+begin_src emacs-lisp
 (use-package hl-todo

-  :defer 4
+  :defer 0.5

   :config
   (global-hl-todo-mode))
 #+end_src
   :config
   (global-hl-todo-mode))
 #+end_src


@@ -2105,7 +2112,7 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
 
 #+begin_src emacs-lisp
 (use-package shrink-path
 
 #+begin_src emacs-lisp
 (use-package shrink-path

-  :defer 2
+  :defer 0.5

   :after eshell
   :config
   (defun +eshell/prompt ()
   :after eshell
   :config
   (defun +eshell/prompt ()


@@ -2145,7 +2152,7 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
 
 #+begin_src emacs-lisp
 (use-package multi-term
 
 #+begin_src emacs-lisp
 (use-package multi-term

-  :defer 3
+  :defer 0.6

   :bind (("C-c a s m" . multi-term-dedicated-toggle)
          :map term-mode-map
          ("C-c C-j" . term-char-mode)
   :bind (("C-c a s m" . multi-term-dedicated-toggle)
          :map term-mode-map
          ("C-c C-j" . term-char-mode)


@@ -2217,7 +2224,7 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
 
 #+begin_src emacs-lisp
 (use-package yasnippet
 
 #+begin_src emacs-lisp
 (use-package yasnippet

-  :defer 3
+  :defer 0.6

   :config
   (defconst yas-verbosity-cur yas-verbosity)
   (setq yas-verbosity 2)
   :config
   (defconst yas-verbosity-cur yas-verbosity)
   (setq yas-verbosity 2)


@@ -2315,8 +2322,6 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
       (concat local lapsed))))
   (bind-keys
    :map gnus-article-mode-map
       (concat local lapsed))))
   (bind-keys
    :map gnus-article-mode-map

-   ("r"   . gnus-article-reply-with-original)
-   ("R"   . gnus-article-wide-reply-with-original)

    ("M-L" . org-store-link)))
 
 (use-feature gnus-sum
    ("M-L" . org-store-link)))
 
 (use-feature gnus-sum


@@ -2329,8 +2334,6 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
   :config
   (bind-keys
    :map gnus-summary-mode-map
   :config
   (bind-keys
    :map gnus-summary-mode-map

-   ("r"   . gnus-summary-reply-with-original)
-   ("R"   . gnus-summary-wide-reply-with-original)

    ("M-L" . org-store-link))
   :hook (gnus-summary-mode . a/no-mouse-autoselect-window))
 
    ("M-L" . org-store-link))
   :hook (gnus-summary-mode . a/no-mouse-autoselect-window))