X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/2a292da98e0fa7fe82324b5c4d999b4fb18e8527..ebbb4b9de9eefc7b4a403d42946f53fb7daff3f2:/init.org?ds=sidebyside diff --git a/init.org b/init.org index fd734b1..2b46136 100644 --- a/init.org +++ b/init.org @@ -320,9 +320,10 @@ and without compromising on performance. use-package-expand-minimally t)) (setq use-package-always-defer t) +(require 'bind-key) #+end_src -*** Epkg +*** COMMENT Epkg #+begin_quote Browse the Emacsmirror package database @@ -333,7 +334,6 @@ database, low-level functions for querying the database, and a =package.el=-like user interface for browsing the available packages. #+begin_src emacs-lisp -(require 'bind-key) (use-package epkg :commands (epkg-list-packages epkg-describe-package) :bind @@ -400,7 +400,7 @@ in my 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) @@ -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 - :defer 1 + :defer 0.4 :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 - :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 - :defer 1 + :defer 0.4 :config (pixel-scroll-mode 1)) #+end_src @@ -873,41 +873,6 @@ system. In short, my favourite way of life. -First, we have to resort to a [[https://github.com/raxod502/straight.el#installing-org-with-straightel][hack]] to be able to use the correct -latest version of Org from upstream. - -#+begin_src emacs-lisp - (use-package git) - - (defun org-git-version () - "The Git version of org-mode. - Inserted by installing org-mode or when a release is made." - (require 'git) - (let ((git-repo (expand-file-name - "straight/repos/org/" user-emacs-directory))) - (string-trim - (git-run "describe" - "--match=release\*" - "--abbrev=6" - "HEAD")))) - - (defun org-release () - "The release version of org-mode. - Inserted by installing org-mode or when a release is made." - (require 'git) - (let ((git-repo (expand-file-name - "straight/repos/org/" user-emacs-directory))) - (string-trim - (string-remove-prefix - "release_" - (git-run "describe" - "--match=release\*" - "--abbrev=0" - "HEAD"))))) - -(provide 'org-version) -#+end_src - We will use the =org-plus-contrib= package to get the whole deal: #+begin_src emacs-lisp @@ -918,12 +883,12 @@ And here's where my actual Org configurations begin: #+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 - 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 @@ -1027,7 +992,7 @@ Not just how I do git, but /the/ way to do git. #+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)) @@ -1051,7 +1016,7 @@ Recently opened files. #+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)) @@ -1082,7 +1047,7 @@ There's no way I could top that, so I won't attempt to. #+begin_src emacs-lisp (use-package ivy - :defer 0.6 + :defer 0.3 :bind (:map ivy-minibuffer-map ([escape] . keyboard-escape-quit) @@ -1130,7 +1095,7 @@ There's no way I could top that, so I won't attempt to. #+begin_src emacs-lisp (use-feature eshell - :defer 2 + :defer 0.5 :commands eshell :bind ("C-c a s e" . eshell) :config @@ -1413,7 +1378,7 @@ Automatically save place in each file. #+begin_src emacs-lisp (use-package company - :defer 3 + :defer 0.6 :bind (:map company-active-map ([tab] . company-complete-common-or-cycle) @@ -1432,7 +1397,7 @@ Automatically save place in each file. #+begin_src emacs-lisp (use-package flycheck - :defer 3 + :defer 0.6 :hook (prog-mode . flycheck-mode) :bind (:map flycheck-mode-map @@ -1447,7 +1412,7 @@ Automatically save place in each file. ;; 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 @@ -1509,7 +1474,7 @@ Automatically save place in each file. #+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 @@ -1834,7 +1799,7 @@ treemacs :after (treemacs)) #+end_src -*** eclim +*** COMMENT eclim #+begin_src emacs-lisp (use-package eclim @@ -1888,7 +1853,7 @@ Emacs package that displays available keybindings in popup #+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 @@ -1907,7 +1872,7 @@ Emacs package that displays available keybindings in popup "C-c a e" "erc" "C-c a s" "shells" "C-c p" "package-management" - "C-c p e" "package-management/epkg" + ;; "C-c p e" "package-management/epkg" "C-c p s" "straight.el" "C-c psa" "all" "C-c psp" "package" @@ -2003,7 +1968,7 @@ Emacs package that displays available keybindings in popup #+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) @@ -2049,7 +2014,7 @@ Emacs package that displays available keybindings in popup #+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 @@ -2064,7 +2029,7 @@ Make =*scratch*= and =*Messages*= unkillable. #+begin_src emacs-lisp (use-package unkillable-scratch - :defer 3 + :defer 0.6 :config (unkillable-scratch 1) :custom @@ -2081,7 +2046,7 @@ Make =*scratch*= and =*Messages*= unkillable. #+begin_src emacs-lisp (use-package boxquote - :defer 3 + :defer 0.6 :bind (:prefix-map a/boxquote-prefix-map :prefix "C-c q" @@ -2121,7 +2086,7 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]]. #+begin_src emacs-lisp (use-package typo - :defer 2 + :defer 0.5 :config (typo-global-mode 1) :hook (text-mode . typo-mode)) @@ -2131,7 +2096,7 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]]. #+begin_src emacs-lisp (use-package hl-todo - :defer 4 + :defer 0.5 :config (global-hl-todo-mode)) #+end_src @@ -2140,7 +2105,7 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]]. #+begin_src emacs-lisp (use-package shrink-path - :defer 2 + :defer 0.5 :after eshell :config (defun +eshell/prompt () @@ -2180,7 +2145,7 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]]. #+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) @@ -2252,7 +2217,7 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]]. #+begin_src emacs-lisp (use-package yasnippet - :defer 3 + :defer 0.6 :config (defconst yas-verbosity-cur yas-verbosity) (setq yas-verbosity 2) @@ -2599,19 +2564,6 @@ Now with ERC! ((moznet "amin/moznet" ,pwd))))))) #+end_src -* Blogging -:PROPERTIES: -:CUSTOM_ID: blogging -:END: - -** [[https://ox-hugo.scripter.co][ox-hugo]] - -#+begin_src emacs-lisp -(use-package ox-hugo - :after ox - :demand) -#+end_src - * Post initialization :PROPERTIES: :CUSTOM_ID: post-initialization