;;; obsolete.el --- code I don't use anymore -*- lexical-binding: t; -*- ;; Copyright (C) 2023 mir ;; Author: mir ;; Keywords:local,maint ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see . ;;; Commentary: ;; All the code here is taken from my other files. This is never meant to be ;; loaded. ;;; Code: (error "Please don't load `obsolete.el', it's obsolete.") ;; scribble SVGs in org buffers like it's 2005 (idk I was a baby then) (use-package edraw :elpaca (:repo "https://github.com/misohena/el-easydraw") :after org :config (require 'edraw-org) (edraw-org-setup-default) ;; following function taken from https://github.com/wn/doom.d/blob/46ca46f2ef21e933fb76b1568be1a62b262ed288/config.el#L47 (defun org-mode-open-edraw (&optional filename) (interactive) (let ((filename (or filename (concat "./" (file-relative-name (read-file-name (edraw-msg "Write svg file: ") default-directory) default-directory))))) (insert (format "[[edraw:file=%s]]" filename)) (backward-char) (org-return)))) (use-package yascroll :diminish :defer 1 ;; :if (not (display-graphic-p)) :custom (yascroll:delay-to-hide nil) ;; :custom-face ;; (yascroll:thumb-fringe ;; ((t (:background "green3")))) :config (defun yascroll:make-thumb-overlay-fringe (left-or-right) "Make thumb overlay on the LEFT-OR-RIGHT fringe." (let* ((pos (point)) ;; If `pos' is at the beginning of line, overlay of the ;; fringe will be on the previous visual line. (pos (if (= (line-end-position) pos) pos (1+ pos))) ;; below originally said `filled-rectangle' instead of `empty-line'. ;; Changed to fix transparency. (display-string `(,left-or-right empty-line yascroll:thumb-fringe)) (after-string (propertize "." 'display display-string)) (overlay (make-overlay pos pos))) (overlay-put overlay 'after-string after-string) (overlay-put overlay 'fringe-helper t) (overlay-put overlay 'window (selected-window)) (overlay-put overlay 'priority yascroll:priority) overlay)) (add-to-list 'yascroll:disabled-modes 'org-mode) ;; (global-yascroll-bar-mode 1) ) (remove '(?< . ?>) electric-pair-pairs) (electric-pair-mode -1) (defvar org-electric-pairs '((?_ . ?_) (?/ . ?/) (?* . ?*) (?+ . ?+) (?~ . ?~) (?= . ?=)) "Electric pairs for org-mode. See https://emacs.stackexchange.com/questions/2538/how-to-define-additional-mode-specific-pairs-for-electric-pair-mode") (defun org-add-electric-pairs () (setq-local electric-pair-pairs (append electric-pair-pairs org-electric-pairs)) (setq-local electric-pair-text-pairs electric-pair-pairs)) (add-hook 'org-mode-hook 'org-add-electric-pairs) (require 'mir-orgstuff) (general-define-key :states '(normal visual insert) :keymaps 'org-mode-map "_" 'mir/org-dwim-char "/" 'mir/org-dwim-char "*" 'mir/org-dwim-char "+" 'mir/org-dwim-char "~" 'mir/org-dwim-char "=" 'mir/org-dwim-char) (use-package org-modern-indent :elpaca (:host github :repo "jdtsmith/org-modern-indent") :diminish org-indent-mode :hook (org-mode . org-indent-mode) :config (add-hook 'org-mode-hook #'org-modern-indent-mode 90)) (use-package org-block-capf :elpaca (org-block-capf :host github :repo "xenodium/org-block-capf") :after org :init (add-hook 'org-mode-hook #'org-block-capf-add-to-completion-at-point-functions)) (use-package org-pretty-table :elpaca (org-pretty-table :host github :repo "Fuco1/org-pretty-table") :diminish :hook (org-mode . org-pretty-table-mode)) ;; Tree-sitter (disabled because broken?) (use-package treesit-auto :elpaca (treesit-auto :host github :repo "renzmann/treesit-auto") :custom (treesit-auto-install 'prompt) ;; :init (add-to-list 'treesit-auto-fallback-alist '(bash-ts-mode . sh-mode)) ) ;; see https://www.reddit.com/r/emacs/comments/xyo2fo/orgmode_vterm_tmux/ (use-package ob-tmux :after (org dash) :config (setq org-src-lang-modes (-replace '("tmux" . sh) '("tmux" . powershell) org-src-lang-modes)) :custom (org-babel-default-header-args:tmux '((:results . "display") (:session . "default") (:socket . nil))) (org-babel-tmux-session-prefix "ob-") (org-babel-tmux-terminal "/home/mir/.local/bin/emacs-term-shim.sh") (org-babel-tmux-terminal-opts)) (use-package org-modern :after org :custom (org-modern-tag nil) (org-modern-todo nil) (org-modern-block-name nil) (org-modern-table nil) (org-modern-hide-stars nil) (org-modern-star nil) ;; (org-modern-block-fringe 16) :hook (org-mode . org-modern-mode) :config ) ;; svg-tags; disabled because reasons (use-package svg-tag-mode :elpaca (svg-tag-mode :host github :repo "rougier/svg-tag-mode") ;; :after org-modern :hook (org-modern-mode . svg-tag-mode) :custom (svg-tag-tags `((,(rx blank (group (= 4 upper)) blank) . ((lambda (tag) (svg-tag-make tag :inverse t :face (intern (format "org-%s" (downcase tag))))))) (,(rx (group "#+" (or "begin" "end") "_src")) . ((lambda (tag) (let* ((begend (string-trim tag "#\\+" "_src")) (upcased (upcase begend))) (svg-tag-make upcased :face 'org-block-begin-line))))))) ) ;; disabled because error and useless (use-package aggressive-indent :after paredit :commands aggressive-indent-mode :hook (emacs-lisp-mode . aggresssive-indent-mode)) (provide 'obsolete) ;;; obsolete.el ends here