Use `:ensure t` instead of use-package-always-ensure

The latter would break if I use-package'd a library which was not also
a package.
This commit is contained in:
contrapunctus 2022-01-15 01:02:48 +05:30
parent cf98d4e53f
commit 2956ec4f27
1 changed files with 96 additions and 35 deletions

131
init.org
View File

@ -14,7 +14,6 @@ Ever since I discovered Kmonad and used it to have Space trigger Ctrl when held,
(eval-when-compile
(add-to-list 'load-path "~/.emacs.d/elisp-git/use-package/")
(require 'use-package))
(setq use-package-always-ensure t)
#+END_SRC
* TODO dvorak [60%]
@ -179,6 +178,7 @@ NAME is the name of the process and its buffer."
** volume
#+BEGIN_SRC emacs-lisp
(use-package volume
:ensure t
:bind
(:map volume-mode-map
("c" . volume-raise)
@ -186,6 +186,7 @@ NAME is the name of the process and its buffer."
("C-c" . volume-raise-10)
("C-r" . volume-lower-10)))
#+END_SRC
* Emacs and Emacs-specific packages
:PROPERTIES:
:CUSTOM_ID: emacs-settings
@ -228,6 +229,7 @@ NAME is the name of the process and its buffer."
** feather
#+BEGIN_SRC emacs-lisp
(use-package feather
:ensure t
:diminish
:hook (package-menu-mode . feather-mode)
:bind ("<f5> p " . list-packages))
@ -236,6 +238,7 @@ NAME is the name of the process and its buffer."
** esup, the Emacs StartUp Profiler
#+BEGIN_SRC emacs-lisp
(use-package esup
:ensure t
:config (setq esup-depth 0))
#+END_SRC
@ -258,6 +261,7 @@ NAME is the name of the process and its buffer."
** helpful
#+BEGIN_SRC emacs-lisp
(use-package helpful
:ensure t
:bind (("<f1> <f1>" . #'helpful-at-point)
("<f1> f" . #'helpful-callable)
("<f1> c" . #'helpful-command)
@ -294,6 +298,7 @@ NAME is the name of the process and its buffer."
:END:
#+BEGIN_SRC emacs-lisp
(use-package shackle
:ensure t
:init (shackle-mode)
:config (setq shackle-rules '((Info-mode :same t))))
#+END_SRC
@ -316,6 +321,7 @@ NAME is the name of the process and its buffer."
;; (set-face-attribute 'mode-line-inactive nil :background "#f9f2d9")))
(use-package moody
:ensure t
:config
(setq x-underline-at-descent-line t)
(moody-replace-mode-line-buffer-identification)
@ -381,7 +387,8 @@ Must put this after loading the custom file, or I get prompted about the theme e
** powerline
#+BEGIN_SRC emacs-lisp
(use-package powerline)
(use-package powerline
:ensure t)
#+END_SRC
**
@ -533,6 +540,7 @@ ARGS are ignored."
:END:
#+BEGIN_SRC emacs-lisp
(use-package ag
:ensure t
:bind
("<f2> p" . ag)
("<f2> P" . ag-project-regexp)
@ -546,6 +554,7 @@ ARGS are ignored."
:END:
#+BEGIN_SRC emacs-lisp
(use-package swiper
:ensure t
:bind
(("C-s" . swiper)
("C-r" . swiper-backward)
@ -749,6 +758,7 @@ as links into an Org or Markdown document."
:END:
#+BEGIN_SRC emacs-lisp
(use-package undo-tree
:ensure t
:commands global-undo-tree-mode
:if (not (featurep 'evil))
:diminish undo-tree-mode
@ -777,6 +787,7 @@ as links into an Org or Markdown document."
:END:
#+BEGIN_SRC emacs-lisp
(use-package iedit
:ensure t
:bind (("C-;" . iedit-mode)
("C-:" . iedit-mode-toggle-on-function)
(:map iedit-mode-keymap
@ -790,6 +801,7 @@ as links into an Org or Markdown document."
:END:
#+BEGIN_SRC emacs-lisp
(use-package multiple-cursors
:ensure t
:bind (("C-M-l" . #'mc/mark-previous-like-this-symbol)
("C-M-;" . #'mc/mark-next-like-this-symbol)
("C-M-'" . #'mc/mark-all-symbols-like-this)
@ -838,6 +850,7 @@ as links into an Org or Markdown document."
Doesn't work in my current main browser (Tor Browser), and thus barely used of late...
#+BEGIN_SRC emacs-lisp
(use-package atomic-chrome
:ensure t
:init (atomic-chrome-start-server)
:config
(setq atomic-chrome-url-major-mode-alist
@ -919,6 +932,7 @@ Suggestion by lampilelo for extending =iso-transl-ctl-x-8-map= (https://dpaste.c
** active boon config
#+BEGIN_SRC emacs-lisp
(use-package boon
:ensure t
:commands (boon-mode)
:load-path "~/.emacs.d/elisp-git/boon"
:bind
@ -992,6 +1006,7 @@ Suggestion by lampilelo for extending =iso-transl-ctl-x-8-map= (https://dpaste.c
:init
(boon-mode))
#+END_SRC
** experimental boon+modalka config :disabled:
#+BEGIN_SRC emacs-lisp :load no
(use-package boon
@ -1003,6 +1018,7 @@ Suggestion by lampilelo for extending =iso-transl-ctl-x-8-map= (https://dpaste.c
("M-f" . 'boon-smarter-forward)
("M-b" . 'boon-smarter-backward))
#+END_SRC
** experimental Emacs-flavored-Boon config :disabled:
#+BEGIN_SRC emacs-lisp :load no
(use-package boon
@ -1027,6 +1043,7 @@ Suggestion by lampilelo for extending =iso-transl-ctl-x-8-map= (https://dpaste.c
(use-package boon-qwerty)
(boon-mode))
#+END_SRC
** modalka :disabled:
<2019-11-03>
I'm pretty much using this to emulate `god-mode', which was great, but is no longer actively developed and had no support for non-Latin input methods.
@ -1683,8 +1700,10 @@ FIXME -
1. instead of changing the last plist, change the last plist with name "OSM" and without tags or key-values (because a new plist may have been inserted in the meantime)
#+BEGIN_SRC emacs-lisp
(use-package request)
(use-package esxml)
(use-package request
:ensure t)
(use-package esxml
:ensure t)
(defun my-get-changeset-comment (changeset)
(->> (esxml-query "[k=comment]" changeset)
@ -1808,6 +1827,7 @@ What if...
*** key-values
#+BEGIN_SRC emacs-lisp
(use-package chronometrist-key-values
:ensure t
:after chronometrist
:load-path "~/.emacs.d/contrapunctus/chronometrist/elisp/")
#+END_SRC
@ -1954,6 +1974,7 @@ An example of querying the Chronometrist file data - finding out how much time I
#+BEGIN_SRC emacs-lisp
(use-package emms
:ensure t
:after hydra
:init (setq emms-info-functions '(emms-info-tinytag))
:bind
@ -2068,8 +2089,8 @@ An example of querying the Chronometrist file data - finding out how much time I
((derived-mode-p 'html-mode)
(eww-open-file (buffer-file-name)))
(t (call-interactively #'eww))))
#+END_SRC
*** url-cookie
Ask for confirmation before saving cookies. I'd rather just disallow them all though 🤔
#+BEGIN_SRC emacs-lisp
@ -2081,6 +2102,7 @@ Ask for confirmation before saving cookies. I'd rather just disallow them all th
*** elpher
#+BEGIN_SRC emacs-lisp
(use-package elpher
:ensure t
:bind (:map elpher-mode-map
("r" . elpher-next-link)
("c" . elpher-prev-link)
@ -2094,6 +2116,7 @@ Ask for confirmation before saving cookies. I'd rather just disallow them all th
*** elfeed
#+BEGIN_SRC emacs-lisp
(use-package elfeed
:ensure t
:bind (:map elfeed-show-mode-map
("v" . nil))
:config
@ -2135,10 +2158,16 @@ PR ideas
2. [ ] grammar - "written /path/to/file"
#+BEGIN_SRC emacs-lisp
(use-package emacsshot
:ensure t
:bind
("<print> <f10>" . emacsshot-snap-window-filename)
("<print> <f11>" . emacsshot-snap-frame-filename)
("<print> <f12>" . emacsshot-snap-mouse-filename)
:config
(setq emacsshot-with-timestamp t
emacsshot-snap-window-filename "/media/data/anon/Pictures/screenshots/emacsshot/emacsshot.png"))
#+END_SRC
** File management
#+BEGIN_SRC emacs-lisp
(use-package dired
@ -2360,6 +2389,7 @@ PR ideas
:END:
#+BEGIN_SRC emacs-lisp
(use-package async-backup
:ensure t
:config (setq async-backup-location
"/media/data/anon/backups/emacs-async-backup/"))
#+END_SRC
@ -2426,13 +2456,13 @@ PR ideas
** doc-view
#+BEGIN_SRC emacs-lisp
(use-package doc-view
:config
(setq doc-view-resolution 300))
:config (setq doc-view-resolution 300))
#+END_SRC
** pdf-tools
#+BEGIN_SRC emacs-lisp
(use-package pdf-tools
:ensure t
:init (pdf-tools-install)
:hook
(pdf-view-mode . auto-revert-mode)
@ -2458,6 +2488,7 @@ PR ideas
** nov.el
#+BEGIN_SRC emacs-lisp
(use-package nov
:ensure t
:mode ("\\.epub\\'" . nov-mode)
:hook (nov-mode . visual-line-mode)
:bind
@ -2480,11 +2511,15 @@ PR ideas
:config
(setq-default proced-auto-update-flag t))
#+END_SRC
** webpaste
#+BEGIN_SRC emacs-lisp
(use-package webpaste
:config
(setq webpaste-provider-priority (delete "ix.io" (mapcar #'car webpaste-providers-alist))))
:ensure t
:config (setq webpaste-provider-priority
(delete "ix.io" (mapcar #'car webpaste-providers-alist))))
#+END_SRC
#+END_SRC
** comint
@ -2513,6 +2548,7 @@ PR ideas
("b" . Info-history-back)
("f" . Info-history-forward)))
#+END_SRC
** image-mode
#+BEGIN_SRC emacs-lisp
(use-package image-mode
@ -2535,6 +2571,7 @@ PR ideas
2. [ ] binding "c" to magit-section-backward and "j" to magit-commit means I can't nonchalantly hit "c c" to commit like before...it becomes "j c" :\
#+BEGIN_SRC emacs-lisp
(use-package magit
:ensure t
:bind (;; boon-like keys
:map magit-mode-map
("r" . magit-section-forward)
@ -2593,6 +2630,7 @@ But with =initials=, the desired completion is often buried in the results. That
** counsel
#+BEGIN_SRC emacs-lisp
(use-package counsel
:ensure t
:bind ("M-x" . counsel-M-x)
:config
(setq counsel-find-file-ignore-regexp "\\`\\."))
@ -2601,6 +2639,7 @@ But with =initials=, the desired completion is often buried in the results. That
** Ivy
#+BEGIN_SRC emacs-lisp
(use-package ivy
:ensure t
:commands ivy-mode
:init (ivy-rich-mode) ;; display command docstrings in `counsel-M-x'
:bind (:map ivy-minibuffer-map
@ -2617,6 +2656,7 @@ But with =initials=, the desired completion is often buried in the results. That
** ivy-xref
#+BEGIN_SRC emacs-lisp
(use-package ivy-xref
:ensure t
:config
(setq xref-show-definitions-function #'ivy-xref-show-defs))
#+END_SRC
@ -2650,12 +2690,12 @@ But with =initials=, the desired completion is often buried in the results. That
:CREATED: 2022-01-13T20:50:41+0530
:END:
#+BEGIN_SRC emacs-lisp
(require 'flex-isearch)
(flex-isearch-mode 1)
(general-define-key
"C-M-s" 'flex-isearch-forward
"C-M-r" 'flex-isearch-backward)
(use-package flex-isearch
:disabled t
:init (flex-isearch-mode 1)
:bind
("C-M-s" . flex-isearch-forward)
("C-M-r" . flex-isearch-backward))
#+END_SRC
** company
@ -2665,6 +2705,7 @@ But with =initials=, the desired completion is often buried in the results. That
:END:
#+BEGIN_SRC emacs-lisp
(use-package company
:ensure t
:diminish company-mode
:hook (prog-mode . company-mode)
(special-mode . company-mode)
@ -2704,6 +2745,7 @@ But with =initials=, the desired completion is often buried in the results. That
** company-emoji
#+BEGIN_SRC emacs-lisp
(use-package company-emoji
:ensure t
:hook (text-mode . company-emoji-init)
:config (add-to-list 'company-backends 'company-emoji))
#+END_SRC
@ -2715,6 +2757,7 @@ But with =initials=, the desired completion is often buried in the results. That
:END:
#+BEGIN_SRC emacs-lisp
(use-package company-prescient
:ensure t
:init (company-prescient-mode)
(prescient-persist-mode))
#+END_SRC
@ -2738,10 +2781,13 @@ Add these common operations to the hydra -
4. [X] =toggle-debug-on-error=
5. [X] "insert" hydra, for timestamps, dates; in Elisp, insert as strings; in Org, in angular brackets; etc
6. [X] remove duplication
#+BEGIN_SRC emacs-lisp
(use-package hydra :commands defhydra)
#+BEGIN_SRC emacs-lisp
(use-package hydra
:ensure t
:commands defhydra)
#+END_SRC
** common hydra heads
#+BEGIN_SRC emacs-lisp
(defvar my-hydra-common-heads
@ -3252,18 +3298,6 @@ Don't try to check if there are files with a certain extension...it will lead to
#+END_SRC
* general (keybindings)
#+BEGIN_SRC emacs-lisp
(use-package general
:commands general-define-key)
;; 2017-06-09T00:24:36+0530
;; my laptop's X, W, and G keys gave up the ghost
;; temporary bindings, till my laptop keyboard is fixed
;; 2020-01-07T12:43:41+0530
;; update to use general, add M-f8 binding
#+END_SRC
#+BEGIN_SRC emacs-lisp
(general-define-key
"<f8>" 'keyboard-quit
@ -3293,7 +3327,6 @@ Don't try to check if there are files with a certain extension...it will lead to
(set-keyboard-coding-system 'utf-8)
(set-selection-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
#+END_SRC
* Linewrapping
@ -3302,6 +3335,7 @@ Don't try to check if there are files with a certain extension...it will lead to
(add-hook 'text-mode-hook 'visual-line-mode)
(use-package visual-fill-column
:ensure t
:hook
(markdown-mode . visual-fill-column-mode)
(markdown-mode . visual-line-mode)
@ -3310,6 +3344,7 @@ Don't try to check if there are files with a certain extension...it will lead to
(message-mode . visual-fill-column-mode))
(use-package adaptive-wrap
:ensure t
:hook (markdown-mode . adaptive-wrap-prefix-mode))
#+END_SRC
@ -3423,6 +3458,7 @@ Don't try to check if there are files with a certain extension...it will lead to
;; ;(setq win-switch-other-window-first nil)
(use-package window-numbering
:ensure t
:commands (window-numbering-mode)
:init (window-numbering-mode 1)
:bind (:map window-numbering-keymap
@ -3463,6 +3499,7 @@ Don't try to check if there are files with a certain extension...it will lead to
("SPC" . scroll-up-command)))
(use-package avy
:ensure t
:config
(setq avy-case-fold-search nil))
#+END_SRC
@ -3501,8 +3538,8 @@ Don't try to check if there are files with a certain extension...it will lead to
(outline-toggle-children)
(indent-for-tab-command)))
#+END_SRC
** outshine
** outshine
#+BEGIN_SRC emacs-lisp
(use-package outshine
:commands (outshine-mode outshine-cycle)
@ -3566,6 +3603,7 @@ and eval it."
(buffer-list))))
(switch-to-buffer (first buffers))))
#+END_SRC
** ibuffer
#+BEGIN_SRC emacs-lisp
(use-package ibuffer
@ -3646,6 +3684,7 @@ and eval it."
;; (kbd "s-<mouse-9>") 'helm-mini
)
#+END_SRC
** midnight-mode (automatic buffer cleanup)
#+BEGIN_SRC emacs-lisp
(use-package midnight
@ -3920,6 +3959,7 @@ From https://emacs.stackexchange.com/questions/20577/org-babel-load-all-language
org-babel-load-languages))
ad-do-it))
#+END_SRC
*** org-html-themify
#+BEGIN_SRC emacs-lisp
(use-package org-html-themify
@ -3931,6 +3971,7 @@ From https://emacs.stackexchange.com/questions/20577/org-babel-load-all-language
(setq org-html-themify-themes
'((dark . doom-molokai))))
#+END_SRC
*** ox-publish
#+BEGIN_SRC emacs-lisp
(use-package ox-publish
@ -3955,9 +3996,11 @@ From https://emacs.stackexchange.com/questions/20577/org-babel-load-all-language
(defun my-org-publish-html (plist filename pub-dir)
)
#+END_SRC
** markdown-mode :editing:
#+BEGIN_SRC emacs-lisp
(use-package markdown-mode
:ensure t
:mode "\\.md\\'"
:hook
(markdown-mode . (lambda ()
@ -4122,8 +4165,8 @@ whole-line-or-region-kill-ring-save instead."
#+BEGIN_SRC emacs-lisp
(use-package mediawiki
:commands mediawiki-mode)
#+END_SRC
** asciidoc-mode
Used by Eldev documentation.
#+BEGIN_SRC emacs-lisp
@ -4135,18 +4178,19 @@ Used by Eldev documentation.
<2021-07-12T16:06:08+0530>
#+BEGIN_SRC emacs-lisp
(use-package gemini-mode
:ensure t
:hook (gemini-mode . (lambda ()
(make-local-variable 'outline-regexp)
(setq outline-regexp "[#]+")))
:bind (:map gemini-mode-map
("TAB" . contrapunctus-outline-indent-or-toggle-children))
:config)
("TAB" . contrapunctus-outline-indent-or-toggle-children)))
#+END_SRC
** TODO LaTeX
1. [ ] merge personal commands with those in Lilypond mode
#+BEGIN_SRC emacs-lisp
(use-package auctex
:ensure t
:hook ((tex-mode . TeX-source-correlate-mode))
:bind (:map LaTeX-mode-map
("M-c" . cp-backward-def)
@ -4181,12 +4225,14 @@ Used by Eldev documentation.
(beginning-of-line)
(recenter)))
#+END_SRC
* yasnippet
:PROPERTIES:
:CREATED: 2022-01-05T20:16:31+0530
:END:
#+BEGIN_SRC emacs-lisp
(use-package yasnippet
:ensure t
:commands (yas-expand-snippet)
:hook (emacs-lisp-mode . yas-global-mode))
#+END_SRC
@ -4254,9 +4300,11 @@ pjb suggested a different approach [[http://paste.lisp.org/display/10157][here]]
(keyswap-add-pairs ?\] ?\))
(keyswap-update-keys)))
#+END_SRC
*** other things
#+BEGIN_SRC emacs-lisp
(use-package projectile
:ensure t
:hook (prog-mode . projectile-mode)
:bind (:map boon-command-map
("\\" . projectile-command-map)))
@ -4264,6 +4312,7 @@ pjb suggested a different approach [[http://paste.lisp.org/display/10157][here]]
#+BEGIN_SRC emacs-lisp
(use-package rainbow-delimiters
:ensure t
:hook (prog-mode . rainbow-delimiters-mode))
#+END_SRC
@ -4332,6 +4381,7 @@ pjb suggested a different approach [[http://paste.lisp.org/display/10157][here]]
*** smartparens
#+BEGIN_SRC emacs-lisp
(use-package smartparens
:ensure t
:init
(smartparens-global-mode)
:config
@ -4401,6 +4451,7 @@ Create advice for =lispy-pair= - if =lispy--in-string-or-comment-p= is true, sel
#+BEGIN_SRC emacs-lisp
(use-package lispy
:ensure t
:hook
(emacs-lisp-mode . lispy-mode)
(inferior-emacs-lisp-mode . lispy-mode)
@ -4468,6 +4519,7 @@ Create advice for =lispy-pair= - if =lispy--in-string-or-comment-p= is true, sel
*** imenu
#+BEGIN_SRC emacs-lisp
(use-package imenu
:ensure t
:config
(setq imenu-auto-rescan t
org-imenu-depth 5))
@ -4476,6 +4528,7 @@ Create advice for =lispy-pair= - if =lispy--in-string-or-comment-p= is true, sel
**** imenus
#+BEGIN_SRC emacs-lisp
(use-package imenus
:ensure t
:commands imenus)
#+END_SRC
@ -4524,6 +4577,7 @@ active, else `sp-copy-sexp'."
;; `exec-path-from-shell-copy-envs' (which it calls internally)
;; doesn't seem idempotent, either.
(use-package exec-path-from-shell
:ensure t
:hook
(compilation-mode . exec-path-from-shell-initialize)
(shell-mode-hook . exec-path-from-shell-initialize)
@ -4561,6 +4615,7 @@ active, else `sp-copy-sexp'."
*** literate-elisp
#+BEGIN_SRC emacs-lisp
(use-package literate-elisp
:ensure t
:commands (literate-elisp-load))
#+END_SRC
@ -4572,6 +4627,7 @@ active, else `sp-copy-sexp'."
:init (add-hook 'emacs-lisp-mode-hook 'eldoc-mode)
:config (setq eldoc-idle-delay 0))
#+END_SRC
*** emr - emacs refactor
#+BEGIN_SRC emacs-lisp
(use-package emr
@ -4581,6 +4637,7 @@ active, else `sp-copy-sexp'."
*** nameless-mode
#+BEGIN_SRC emacs-lisp
(use-package nameless
:ensure t
:commands nameless-mode
:hook
(ert-results-mode . nameless-mode)
@ -4589,11 +4646,12 @@ active, else `sp-copy-sexp'."
:bind (:map emacs-lisp-mode-map
("C-c C-n" . nameless-mode)
("C-c C--" . nameless-insert-name)))
#+END_SRC
*** explain-pause-mode
#+BEGIN_SRC emacs-lisp
(use-package explain-pause-mode
:ensure t
:load-path "~/.emacs.d/elisp-git/explain-pause-mode/"
:diminish
:commands explain-pause-mode
@ -4670,6 +4728,7 @@ All COMMAND-SPECS should be a list in the form
*** redshank
#+BEGIN_SRC emacs-lisp
(use-package redshank
:ensure t
:hook (slime-mode . redshank-mode))
#+END_SRC
@ -4679,6 +4738,7 @@ All COMMAND-SPECS should be a list in the form
:END:
#+BEGIN_SRC emacs-lisp
(use-package slime
:ensure t
:commands (slime-eval-buffer slime-eval-defun)
:bind
(:map slime-mode-map
@ -4717,6 +4777,7 @@ All COMMAND-SPECS should be a list in the form
:END:
#+BEGIN_SRC emacs-lisp
(use-package slime-company
:ensure t
:after (slime company)
:config (setq slime-company-completion 'fuzzy
slime-company-after-completion 'slime-company-just-one-space))