From 0aaf20598d40cfbf17e047d27fcf5d1dcef0012c Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Wed, 10 May 2023 13:27:06 -0500 Subject: Remove spurious files --- definitions.el | 149 --------------------------------------------------------- packages.el | 129 ------------------------------------------------- 2 files changed, 278 deletions(-) delete mode 100644 definitions.el delete mode 100644 packages.el diff --git a/definitions.el b/definitions.el deleted file mode 100644 index 125c87e..0000000 --- a/definitions.el +++ /dev/null @@ -1,149 +0,0 @@ -;;; definitions.el --- definitions for my Emacs config -*- lexical-binding: t; -*- - -(defun other-window-or-switch-buffer (&optional arg) - "Switch to the other window. -If a window is the only buffer on a frame, switch buffer. When -run with \\[universal-argument], unconditionally switch buffer." - (interactive "P") - (if (or arg (one-window-p)) - (switch-to-buffer (other-buffer) nil t) - (other-window 1))) - -(defun cycle-spacing@ (&optional n) - ;; `cycle-spacing' is wildly different in 29.1 over 28. - "Negate N argument on `cycle-spacing'. -That is, with a positive N, deletes newlines as well, leaving -N -spaces. If N is negative, it will not delete newlines and leave -N spaces." - (interactive "*p") - (cycle-spacing (- n))) - -(defun first-frame@set-fonts () - (remove-hook 'server-after-make-frame-hook - #'first-frame@set-fonts) - (face-spec-set 'default - `((t :family "Recursive Mono Casual Static" - :height 110))) - ;; Emojis - (cl-loop with ffl = (font-family-list) - for font in '("Noto Emoji" "Noto Color Emoji" - "Segoe UI Emoji" "Apple Color Emoji" - "FreeSans" "FreeMono" "FreeSerif" - "Unifont" "Symbola") - if (member font ffl) - do (set-fontset-font t 'symbol font)) - ;; International fonts - (cl-loop with ffl = (font-family-list) - for (charset . font) - in '((latin . "Noto Sans") - (han . "Noto Sans CJK SC Regular") - (kana . "Noto Sans CJK JP Regular") - (hangul . "Noto Sans CJK KR Regular") - (cjk-misc . "Noto Sans CJK KR Regular") - (khmer . "Noto Sans Khmer") - (lao . "Noto Sans Lao") - (burmese . "Noto Sans Myanmar") - (thai . "Noto Sans Thai") - (ethiopic . "Noto Sans Ethiopic") - (hebrew . "Noto Sans Hebrew") - (arabic . "Noto Sans Arabic") - (gujarati . "Noto Sans Gujarati") - (devanagari . "Noto Sans Devanagari") - (kannada . "Noto Sans Kannada") - (malayalam . "Noto Sans Malayalam") - (oriya . "Noto Sans Oriya") - (sinhala . "Noto Sans Sinhala") - (tamil . "Noto Sans Tamil") - (telugu . "Noto Sans Telugu") - (tibetan . "Noto Sans Tibetan")) - if (member font ffl) - do (set-fontset-font t charset font))) - -(defun switch-themes () - (interactive) - (let ((current-theme (car custom-enabled-themes))) - (mapc #'disable-theme custom-enabled-themes) - (enable-theme (pcase current-theme - ('modus-operandi 'modus-vivendi) - ('modus-vivendi 'modus-operandi))))) - -(defun renz/sort-by-alpha-length (elems) - "Sort ELEMS first alphabetically, then by length." - (sort elems (lambda (c1 c2) - (or (string-version-lessp c1 c2) - (< (length c1) (length c2)))))) - -(defun renz/sort-by-history (elems) - "Sort ELEMS by minibuffer history. -Use `mct-sort-sort-by-alpha-length' if no history is available." - (if-let ((hist (and (not (eq minibuffer-history-variable t)) - (symbol-value minibuffer-history-variable)))) - (minibuffer--sort-by-position hist elems) - (renz/sort-by-alpha-length elems))) - -(defun renz/completion-category () - "Return completion category." - (when-let ((window (active-minibuffer-window))) - (with-current-buffer (window-buffer window) - (completion-metadata-get - (completion-metadata (buffer-substring-no-properties - (minibuffer-prompt-end) - (max (minibuffer-prompt-end) (point))) - minibuffer-completion-table - minibuffer-completion-predicate) - 'category)))) - -(defun renz/sort-multi-category (elems) - "Sort ELEMS per completion category." - (pcase (renz/completion-category) - ('nil elems) ; no sorting - ('kill-ring elems) - ('project-file (renz/sort-by-alpha-length elems)) - (_ (renz/sort-by-history elems)))) - -(defvar no-tabs-modes '(emacs-lisp-mode - lisp-mode - scheme-mode - python-mode - haskell-mode) - "Modes /not/ to indent with tabs.") - -(defun indent-tabs-mode-maybe () - (if (apply #'derived-mode-p no-tabs-modes) - (indent-tabs-mode -1) - (indent-tabs-mode 1))) - -(define-minor-mode truncate-lines-mode - "Buffer-local mode to toggle `truncate-lines'." - :lighter "" - (setq-local truncate-lines truncate-lines-mode)) - -;;; Region or buffer stuff - -(defun call-with-region-or-buffer (fn &rest _r) - "Call function FN with current region or buffer. -Good to use for :around advice." - (if (region-active-p) - (funcall fn (region-beginning) (region-end)) - (funcall fn (point-min) (point-max)))) - -(defun delete-trailing-whitespace-except-current-line () - (save-excursion - (delete-trailing-whitespace (point-min) - (line-beginning-position)) - (delete-trailing-whitespace (line-end-position) - (point-max)))) - -(defun create-missing-directories () - "Automatically create missing directories." - (let ((target-dir (file-name-directory buffer-file-name))) - (unless (file-exists-p target-dir) - (make-directory target-dir :parents)))) - - -(defun vc-remote-off () - "Turn VC off when remote." - (when (file-remote-p (buffer-file-name)) - (setq-local vc-handled-backends nil))) - - diff --git a/packages.el b/packages.el deleted file mode 100644 index 42d8eeb..0000000 --- a/packages.el +++ /dev/null @@ -1,129 +0,0 @@ -;;; packages.el --- my Emacs packages -*- lexical-binding: t; -*- - -(use-package scule - :load-path "~/src/scule.el/" - :bind-keymap ("M-c" . scule-map) - :init - ;; Use M-u for prefix keys - (keymap-global-set "M-u" #'universal-argument) - (keymap-set universal-argument-map "M-u" #'universal-argument-more)) - -(use-package frowny - :load-path "~/src/frowny.el/" - :hook ((jabber-chat-mode . frowny-mode))) - -(use-package hippie-completing-read - :load-path "~/src/hippie-completing-read.el/" - :bind (("M-/" . hippie-completing-read))) - -(use-package mode-line-bell - :load-path "~/src/mode-line-bell.el/" - :config - (setq mode-line-bell-flash-time 0.25) - (mode-line-bell-mode)) - -(use-package titlecase - :load-path "~/src/titlecase.el/" - :preface - (defun +titlecase-sentence-style-dwim (&optional arg) - "Titlecase a sentence. -With prefix ARG, toggle the value of -`titlecase-downcase-sentences' before sentence-casing." - (interactive "P") - (let ((titlecase-downcase-sentences (if arg (not titlecase-downcase-sentences) - titlecase-downcase-sentences))) - (titlecase-dwim 'sentence))) - (defun +titlecase-org-headings () - (interactive) - (require 'org) - (save-excursion - (goto-char (point-min)) - ;; See also `org-map-tree'. I'm not using that function because I want to - ;; skip the first headline. A better solution would be to patch - ;; `titlecase-line' to ignore org-mode metadata (TODO cookies, tags, etc). - (let ((level (funcall outline-level)) - (org-special-ctrl-a/e t)) - (while (and (progn (outline-next-heading) - (> (funcall outline-level) level)) - (not (eobp))) - (titlecase-region (progn (org-beginning-of-line) (point)) - (progn (org-end-of-line) (point))))))) - :config - (with-eval-after-load 'scule - (keymap-set scule-map "M-t" #'titlecase-dwim))) - -;;; Jabber - -(use-package jabber - :load-path "~/src/jabber.el" - :defer t - :bind-keymap (("C-c j" . jabber-global-keymap)) - :preface nil - (setq-default jabber-chat-buffer-format "*%n*" - jabber-browse-buffer-format "*%n*" - jabber-groupchat-buffer-format "*%n*" - jabber-muc-private-buffer-format "*%n*") - :custom-face - (jabber-activity-face ((t :inherit jabber-chat-prompt-foreign - :foreground unspecified - :weight normal))) - (jabber-activity-personal-face ((t :inherit jabber-chat-prompt-local - :foreground unspecified - :weight bold))) - (jabber-chat-prompt-local ((t :inherit minibuffer-prompt - :foreground unspecified - :weight normal - :slant italic))) - (jabber-chat-prompt-foreign ((t :inherit warning - :foreground unspecified - :weight normal))) - (jabber-chat-prompt-system ((t :inherit font-lock-doc-face - :foreground unspecified))) - (jabber-rare-time-face ((t :inherit font-lock-comment-face - :foreground unspecified - :underline nil))) - :config - (require 'jabber-httpupload nil t) - (setopt jabber-auto-reconnect t - jabber-last-read-marker "~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~" - jabber-muc-decorate-presence-patterns - '(("\\( enters the room ([^)]+)\\| has left the chatroom\\)$" . nil) - ("Mode #.*" . jabber-muc-presence-dim) - ("." . jabber-muc-presence-dim)) - jabber-activity-make-strings #'jabber-activity-make-strings-shorten - jabber-rare-time-format - (format " - - - - - %%H:%d %%F" - (let ((min (string-to-number (format-time-string "%M")))) - (* 5 (floor min 5)))) - jabber-muc-header-line-format '(" " jabber-muc-topic)) - - (setopt jabber-groupchat-prompt-format "%n. " - jabber-chat-local-prompt-format "%n. " - jabber-chat-foreign-prompt-format "%n. " - jabber-muc-private-foreign-prompt-format "%g/%n. ") - - (keymap-global-set "C-c C-SPC" #'jabber-activity-switch-to) - (map-keymap (lambda (key command) - (define-key jabber-global-keymap (vector (+ key #x60)) command)) - jabber-global-keymap) - (keymap-global-set "C-x C-j" #'dired-jump) - - (add-hook 'jabber-post-connect-hooks #'jabber-enable-carbons) - (remove-hook 'jabber-alert-muc-hooks 'jabber-muc-echo) - (remove-hook 'jabber-alert-presence-hooks 'jabber-presence-echo) - (add-hook 'jabber-chat-mode-hook 'visual-line-mode) - (add-hook 'jabber-chat-mode-hook (defun jabber-no-position () - (setq-local mode-line-position nil))) - - (add-hook 'jabber-alert-muc-hooks - (defun jabber@highlight-acdw (&optional _ _ buf _ _) - (when buf - (with-current-buffer buf - (let ((regexp (rx word-boundary - "acdw" ; maybe get from the config? - word-boundary))) - (hi-lock-unface-buffer regexp) - (highlight-regexp regexp 'jabber-chat-prompt-local)))))) - - (when (fboundp 'jabber-chat-update-focus) - (add-hook 'window-configuration-change-hook #'jabber-chat-update-focus))) -- cgit 1.4.1-21-gabe81