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 --- packages.el | 129 ------------------------------------------------------------ 1 file changed, 129 deletions(-) delete mode 100644 packages.el (limited to 'packages.el') 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