aboutsummaryrefslogtreecommitdiff
path: root/Emacs/.config/emacs/config.org
diff options
context:
space:
mode:
authorAryadev Chavali <aryadev@aryadevchavali.com>2024-06-11 18:35:17 +0100
committerAryadev Chavali <aryadev@aryadevchavali.com>2024-06-11 18:36:04 +0100
commit0b194beae99c71598bc7d8227be934f6db23d108 (patch)
tree507c44ddbc7e0337ecd2d96df5cd02c5ad5f5069 /Emacs/.config/emacs/config.org
parent65632113fe6f33dd878c73138303bf90c333e272 (diff)
downloaddotfiles-0b194beae99c71598bc7d8227be934f6db23d108.tar.gz
dotfiles-0b194beae99c71598bc7d8227be934f6db23d108.tar.bz2
dotfiles-0b194beae99c71598bc7d8227be934f6db23d108.zip
(Emacs/config)-WAIT sections that I definitely don't plan to use
Unlike the WAIT sections for programming languages, the things I've deleted have been superseded by other parts of my config.
Diffstat (limited to 'Emacs/.config/emacs/config.org')
-rw-r--r--Emacs/.config/emacs/config.org416
1 files changed, 0 insertions, 416 deletions
diff --git a/Emacs/.config/emacs/config.org b/Emacs/.config/emacs/config.org
index e77f573..794901f 100644
--- a/Emacs/.config/emacs/config.org
+++ b/Emacs/.config/emacs/config.org
@@ -74,52 +74,6 @@ Let's setup a few things:
* Custom functionality
Some Lisp I wrote that only depends on Emacs to provide some custom
functionality.
-** WAIT Toggle buffer
-:PROPERTIES:
-:header-args:emacs-lisp: :tangle no
-:END:
-Like VSCode's toggling feature for just the terminal but now for
-any buffer of choice, as long as I can generate it via a command.
-
-2024-04-23: Don't need this anymore due to
-~switch-to-buffer-obey-display-actions~.
-#+begin_src emacs-lisp
-(with-eval-after-load "window"
- (defmacro +oreo/create-toggle-function (func-name buf-name
- buf-create
- &optional accept-numeric)
- "Generate a function named FUNC-NAME that toggles the buffer with
-name BUF-NAME, using BUF-CREATE to generate it if buffer BUF-NAME
-does not exist already.
-
-BUF-NAME cannot be a regexp, it must be a fixed name.
-
-ACCEPT-NUMERIC modifies the function to allow numeric arguments
-via C-u. Mostly used in Eshell."
- (let ((interactive-arg
- (if accept-numeric '(interactive "p") '(interactive)))
- (arguments
- (if accept-numeric '(&optional arg) nil))
- (buffer-name (if accept-numeric
- `(if (= arg 1)
- ,buf-name
- (concat ,buf-name "<" (int-to-string arg) ">"))
- buf-name))
- (buffer-create (if accept-numeric
- `(if (= arg 1)
- (,buf-create)
- (,buf-create arg))
- `(,buf-create))))
- `(defun ,func-name ,arguments
- ,interactive-arg
- (let* ((buffer (or (get-buffer ,buffer-name)
- ,buffer-create))
- (displayed (get-buffer-window buffer)))
- (if displayed
- (delete-window displayed)
- (display-buffer buffer)
- (select-window (get-buffer-window buffer))))))))
-#+end_src
** Automatically run a command on saving
Define a macro which creates hooks into the ~after-save-hook~. On
certain ~conditions~ being met, ~to-run~ is evaluated.
@@ -765,87 +719,6 @@ Setup for counsel. Load after ivy and helpful.
(t . ivy--regex-ignore-order)))
(counsel-mode 1))
#+end_src
-**** WAIT Ivy posframe
-:PROPERTIES:
-:header-args:emacs-lisp: :tangle no
-:END:
-This makes ivy minibuffer windows use child frames.
-Very nice eyecandy, but can get kinda annoying.
-#+begin_src emacs-lisp
-(use-package ivy-posframe
- :hook (ivy-mode-hook . ivy-posframe-mode)
- :straight t
- :init
- (setq ivy-posframe-parameters
- '((left-fringe . 0)
- (right-fringe . 0)
- (background-color . "grey7")))
-
- (setq ivy-posframe-display-functions-alist
- '((t . ivy-posframe-display-at-window-center))))
-#+end_src
-**** WAIT Counsel etags
-:PROPERTIES:
-:header-args:emacs-lisp: :tangle no
-:END:
-Counsel etags allows me to search generated tag files for tags. I
-already have a function defined to generate the tags, so it's just
-searching them which I find to be a bit of a hassle, and where this
-package comes in.
-
-This has been replaced by [[*xref][xref]] which is inbuilt.
-#+begin_src emacs-lisp
-(use-package counsel-etags
- :after counsel
- :general
- (search-leader
- "t" #'counsel-etags-find-tag))
-#+end_src
-*** WAIT Ido
-:PROPERTIES:
-:header-args:emacs-lisp: :tangle no
-:END:
-Ido is a very old completion package that still works great to this
-day. Though it is limited in its scope (and may thus be called a
-completion add-on rather than a full on framework), it is still a very
-powerful package. With the use of ido-completing-read+, it may be used
-similarly to a fully fledged completion framework.
-
-#+begin_src emacs-lisp
-(use-package ido
- :demand t
- :general
- (general-def
- :keymaps '(ido-buffer-completion-map
- ido-file-completion-map
- ido-file-dir-completion-map
- ido-common-completion-map)
- (kbd "M-j") #'ido-next-match
- (kbd "M-k") #'ido-prev-match
- (kbd "C-x o") #'evil-window-up)
- :init
- (setq ido-decorations
- (list "{" "}" " \n" " ..." "[" "]" " [No match]" " [Matched]"
- " [Not readable]" " [Too big]" " [Confirm]")
- completion-styles '(flex partial-completion intials emacs22))
- (setq-default ido-enable-flex-matching t
- ido-enable-dot-prefix t
- ido-enable-regexp nil)
- (with-eval-after-load "magit"
- (setq magit-completing-read-function 'magit-ido-completing-read))
- :config
- (ido-mode)
- (ido-everywhere))
-#+end_src
-**** Ido ubiquitous
-Ido completing-read+ is a package that extends the ido package to work
-with more text based functions.
-#+begin_src emacs-lisp
-(use-package ido-completing-read+
- :after ido
- :config
- (ido-ubiquitous-mode +1))
-#+end_src
*** Amx
Amx is a fork of Smex that works to enhance the
execute-extended-command interface. It also provides support for ido
@@ -1102,32 +975,6 @@ with abstracting a few things away.
("smon"
(format-time-string "%B" (current-time)))))
#+end_src
-*** WAIT Skeletons
-:PROPERTIES:
-:header-args:emacs-lisp: :tangle no
-:END:
-Defines a macro for generating a skeleton + abbrev for a given mode.
-Doesn't sanitise inputs because I assume callers are /rational/ actors
-who would *only* use this for their top level Emacs config.
-
-Honestly didn't find much use for this currently, so disabled.
-#+begin_src emacs-lisp
-(use-package skeleton
- :after abbrev
- :config
- (defmacro +autotyping/gen-skeleton-abbrev (mode abbrev &rest skeleton)
- (let* ((table (intern (concat (symbol-name mode) "-abbrev-table")))
- (skeleton-name (intern (concat "+skeleton/" (symbol-name mode) "/" abbrev))))
- `(progn
- (define-skeleton
- ,skeleton-name
- ""
- ,@skeleton)
- (define-abbrev ,table
- ,abbrev
- ""
- ',skeleton-name)))))
-#+end_src
*** Auto insert
Allows inserting text immediately upon creating a new buffer with a
given name. Supports skeletons for inserting text. To make it easier
@@ -1556,54 +1403,6 @@ directories particularly efficiently.
Emacs is basically an operating system whose primary datatype is text.
Applications are interfaces/environments which serve a variety of
purposes, but provide a lot of capability.
-** WAIT Dashboard
-:PROPERTIES:
-:header-args:emacs-lisp: :tangle no
-:END:
-Dashboard creates a custom dashboard for Emacs that replaces the
-initial startup screen in default Emacs. It has a lot of customising
-options.
-
-Unfortunately not that useful, many things are easier to invoke
-directly such as recent files or project changing.
-#+begin_src emacs-lisp
-(use-package dashboard
- :straight t
- :demand t
- :general
- (app-leader
- "b" #'dashboard-refresh-buffer)
- (:states '(normal motion emacs)
- :keymaps 'dashboard-mode-map
- "q" (proc (interactive) (kill-this-buffer)))
- (nmmap
- :keymaps 'dashboard-mode-map
- "r" #'dashboard-jump-to-recent-files
- "p" #'dashboard-jump-to-projects
- "}" #'dashboard-next-section
- "{" #'dashboard-previous-section)
- :init
- (setq initial-buffer-choice nil
- dashboard-banner-logo-title "Oreomacs"
- dashboard-center-content t
- dashboard-set-init-info t
- dashboard-startup-banner (no-littering-expand-etc-file-name "dashboard/logo.png")
- dashboard-set-footer t
- dashboard-set-navigator t
- dashboard-items '((projects . 5)
- (recents . 5))
- dashboard-footer-messages (list
- "Collecting parentheses..."
- "Linking 'coffee_machine.o'..."
- "Uploading ip to hacker named 4chan..."
- "Dividing by zero..."
- "Solving 3-sat..."
- "Obtaining your health record..."
- (format "Recompiling Emacs for the %dth time..." (random 1000))
- "Escaping the cycle of samsara..."))
- :config
- (dashboard-setup-startup-hook))
-#+end_src
** EWW
Emacs Web Wowser is the inbuilt text based web browser for Emacs. It
can render images and basic CSS styles but doesn't have a JavaScript
@@ -1841,96 +1640,6 @@ easier than even using the mark based system.
"ZZ" #'wdired-finish-edit
"ZQ" #'wdired-abort-changes))
#+end_src
-** WAIT Xwidget
-:PROPERTIES:
-:header-args:emacs-lisp: :tangle no
-:END:
-Xwidget is a package which allows for the insertion of arbitrary
-xwidgets into Emacs through buffers. It must be compiled into Emacs
-so you might need to customise your install. One of its premier uses
-is in navigating the web which it provides through the function
-~xwidget-webkit-browse-url~. This renders a fully functional web
-browser within Emacs.
-
-Though I am not to keen on using Emacs to browse the web /via/ xwidget
-(EWW does a good job on its own), I am very interested in its
-capability to render pages with JavaScript, as it may come of use when
-doing web development. I can see the results of work very quickly
-without switching windows all within Emacs.
-
-2023-10-20: Disabled as it didn't seem to work, and honestly wasn't
-that useful.
-*** Xwidget Core
-#+begin_src emacs-lisp
-(use-package xwidget
- :general
- (app-leader
- "u" #'xwidget-webkit-browse-url)
- (nmmap
- :keymaps 'xwidget-webkit-mode-map
- "q" #'quit-window
- "h" #'xwidget-webkit-scroll-backward
- "j" #'xwidget-webkit-scroll-up
- "k" #'xwidget-webkit-scroll-down
- "l" #'xwidget-webkit-scroll-forward
- "+" #'xwidget-webkit-zoom-in
- "-" #'xwidget-webkit-zoom-out
- (kbd "C-f") #'xwidget-webkit-scroll-up
- (kbd "C-b") #'xwidget-webkit-scroll-down
- "H" #'xwidget-webkit-back
- "L" #'xwidget-webkit-forward
- "gu" #'xwidget-webkit-browse-url
- "gr" #'xwidget-webkit-reload
- "gg" #'xwidget-webkit-scroll-top
- "G" #'xwidget-webkit-scroll-bottom))
-#+end_src
-*** Xwidget Extensions
-Define a function ~+xwidget/render-file~ that reads a file name and
-presents it in an xwidget. If the current file is an HTML file, ask
-if user wants to open current file. Bind it to ~aU~ in the leader.
-
-Also define a function ~+xwidget/search-query~ that first asks the
-user what search engine they want to use
-([[https://duckduckgo.com][Duck Duck Go]] and
-[[https://devdocs.io][DevDocs]] currently) then asks for a query,
-which it parses then presents in an xwidget window. Bind to ~as~ in
-the leader.
-#+begin_src emacs-lisp
-(use-package xwidget
- :commands (+xwidget/render-file +xwidget/search)
- :general
- (app-leader
- "U" #'+xwidget/render-file
- "s" #'+xwidget/search)
- :config
- (setenv "WEBKIT_FORCE_SANDBOX" "0")
- (defun +xwidget/render-file (&optional FORCE)
- "Find file (or use current file) and render in xwidget."
- (interactive)
- (cond
- ((and (not FORCE) (or (string= (replace-regexp-in-string ".*.html"
- "html" (buffer-name)) "html")
- (eq major-mode 'web-mode)
- (eq major-mode 'html-mode))) ; If in html file
- (if (y-or-n-p "Open current file?: ") ; Maybe they want to open a separate file
- (xwidget-webkit-browse-url (format "file://%s" (buffer-file-name)))
- (+xwidget/render-file t))) ; recurse and open file via prompt
- (t
- (xwidget-webkit-browse-url
- (format "file://%s" (read-file-name "Enter file to open: "))))))
-
- (defun +xwidget/search ()
- "Run a search query on some search engine and display in
-xwidget."
- (interactive)
- (let* ((engine (completing-read "Engine: " '("duckduckgo.com" "devdocs.io") nil t))
- (query-raw (read-string "Enter query: "))
- (query
- (cond
- ((string= engine "duckduckgo.com") query-raw)
- ((string= engine "devdocs.io") (concat "_ " query-raw)))))
- (xwidget-webkit-browse-url (concat "https://" engine "/?q=" query)))))
-#+end_src
** Eshell
*** Why Eshell?
Eshell is an integrated shell environment for Emacs, written in Emacs
@@ -2332,34 +2041,6 @@ back in, I can just do it within Emacs. Pretty nifty, right?
(with-eval-after-load "evil-collection"
(evil-collection-calc-setup)))
#+end_src
-*** WAIT Calctex
-:PROPERTIES:
-:header-args:emacs-lisp: :tangle no
-:END:
-~calc-mode~ also has a 3rd party package called ~calctex~. It renders
-mathematical expressions within calc as if they were rendered in TeX.
-You can also copy the expressions in their TeX forms, which is pretty
-useful when writing a paper. I've set a very specific lock on this
-repository as it's got quite a messy work-tree and this commit seems to
-work for me given the various TeX utilities installed via Arch.
-
-#+begin_src emacs-lisp
-(use-package calctex
- :after calc
- :straight (calctex :type git :host github :repo "johnbcoughlin/calctex")
- :hook (calc-mode-hook . calctex-mode))
-#+end_src
-** WAIT Ledger
-:PROPERTIES:
-:header-args:emacs-lisp: :tangle no
-:END:
-#+begin_src emacs-lisp
-(use-package ledger-mode
- :defer t)
-
-(use-package evil-ledger
- :after ledger-mode)
-#+end_src
** Zone
Of course Emacs has a cool screensaver software.
@@ -2447,25 +2128,6 @@ and integrates slickly into image-dired. Of course,
erc-nick "oreodave"
erc-buffer-display "current"))
#+end_src
-** WAIT MPV
-:PROPERTIES:
-:header-args:emacs-lisp: :tangle no
-:END:
-Basically a porcelain over mpv via the IPC interface.
-#+begin_src emacs-lisp
-(use-package mpv
- :defer t
- :straight t
- :config
- (with-eval-after-load "org"
- (defun org-mpv-complete-link (&optional arg)
- (replace-regexp-in-string
- "file:" "mpv:"
- (org-link-complete-file arg)
- t t))
- (org-link-set-parameters "mpv"
- :follow #'mpv-play :complete #'org-mpv-complete-link)))
-#+end_src
* Text modes
Standard packages and configurations for text-mode and its derived
modes.
@@ -2850,37 +2512,6 @@ quickly generate them in C/C++ projects.
(visit-tags-table (concat (project-root (project-current)) "TAGS"))
(message "Finished generating tags!")))))))))
#+end_src
-** WAIT Projectile
-:PROPERTIES:
-:header-args:emacs-lisp: :tangle no
-:END:
-Projectile is a project management package which integrates with Emacs
-very well. It essentially provides alternative Emacs commands scoped
-to the current 'project', based on differing signs that a directory is
-a 'project'.
-#+begin_src emacs-lisp
-(use-package projectile
- :hook (emacs-startup-hook . projectile-mode)
- :general
- (general-def
- :keymaps 'projectile-command-map
- "t" #'projectile-test-project
- "r" #'projectile-run-project
- "q" #'projectile-replace-regexp)
- (leader
- "p" '(projectile-command-map :which-key "Projectile"))
- :init
- (setq projectile-tags-command "ctags -Re -f \"%s\" %s \"%s\""
- projectile-enable-caching t))
-#+end_src
-*** Counsel projectile
-Counsel integration for projectile commands, very nice.
-#+begin_src emacs-lisp
-(use-package counsel-projectile
- :after (projectile counsel)
- :config
- (counsel-projectile-mode +1))
-#+end_src
** devdocs
#+begin_src emacs-lisp
(use-package devdocs
@@ -3441,53 +3072,6 @@ $(DEPDIR):
"
_))
#+end_src
-** PDF
-I use PDFs mostly for reading reports or papers. Though Emacs isn't
-my preferred application for viewing PDFs (I highly recommend
-[[https://pwmt.org/projects/zathura/][Zathura]]), similar to most
-things with Emacs, having a PDF viewer builtin can be a very useful
-asset.
-
-For example if I were editing an org document which I was eventually
-compiling into a PDF, my workflow would be much smoother with a PDF
-viewer within Emacs that I can open on another pane.
-*** WAIT PDF tools
-:PROPERTIES:
-:header-args:emacs-lisp: :tangle no
-:END:
-~pdf-tools~ provides the necessary functionality for viewing PDFs.
-There is no proper PDF viewing without this package.
-~evil-collection~ provides a setup for this mode, so use that.
-#+begin_src emacs-lisp
-(use-package pdf-tools
- :mode ("\\.[pP][dD][fF]\\'" . pdf-view-mode)
- :straight t
- :display
- ("^.*pdf$"
- (display-buffer-same-window)
- (inhibit-duplicate-buffer . t))
- :config
- (pdf-tools-install-noverify)
- (with-eval-after-load "evil-collection"
- (evil-collection-pdf-setup)))
-#+end_src
-*** WAIT PDF grep
-:PROPERTIES:
-:header-args:emacs-lisp: :tangle no
-:END:
-PDF grep is a Linux tool that allows for searches against the text
-inside of PDFs similar to standard grep. This cannot be performed by
-standard grep due to how PDFs are encoded; they are not a clear text
-format.
-#+begin_src emacs-lisp
-(use-package pdfgrep
- :after pdf-tools
- :hook (pdf-view-mode-hook . pdfgrep-mode)
- :general
- (nmap
- :keymaps 'pdf-view-mode-map
- "M-g" #'pdfgrep))
-#+end_src
** WAIT SQL
:PROPERTIES:
:header-args:emacs-lisp: :tangle no