From 1b12caa6b8404140dd05372d6ab8f791e1cf9438 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Tue, 4 Jan 2022 23:57:39 -0600 Subject: Changes --- init.el | 36 ++++++++++++++++++++++++++++++------ lisp/+Info.el | 17 +++++++++++++++++ lisp/+elisp.el | 2 +- lisp/+modeline.el | 3 ++- lisp/+org-capture.el | 5 +++++ 5 files changed, 55 insertions(+), 8 deletions(-) create mode 100644 lisp/+Info.el diff --git a/init.el b/init.el index cd1e674..13284d1 100644 --- a/init.el +++ b/init.el @@ -96,15 +96,27 @@ (setup (:require reading) (:global "C-c C-r" #'reading-mode)) -(setup Info - (:hook #'reading-mode)) - (setup abbrev (:option abbrev-file-name (sync/ "abbrev.el") save-abbrevs 'silent) (:hook-into text-mode circe-chat-mode)) +(setup auto-insert + (setf (alist-get '("lisp/.*\\.el\\'" . "+Emacs lisp") + auto-insert-alist nil nil #'equal) + '("" ";;; " (file-name-nondirectory (buffer-file-name)) + (make-string (max 2 (- fill-column (current-column) 27)) 32) + "-*- lexical-binding: t; -*-" + '(setq lexical-binding t) + "\n\n;;Copyright (C) " (format-time-string "%Y") + " " (progn user-full-name) + "\n\n;;; Code:" + "\n\n" _ + "\n\n(provide '" (file-name-base (buffer-file-name)) ")" + "\n;;; " (file-name-nondirectory (buffer-file-name)) " ends here\n")) + (auto-insert-mode +1)) + (setup autorevert (:option global-auto-revert-non-file-buffers t auto-revert-verbose nil) @@ -133,7 +145,8 @@ "tildes.net" "taskiq" "twitter.com" "nitter.net" - "streamable.com")) + "streamable.com" + "hetzner.cloud")) (add-to-list '+browse-url-secondary-browser-regexps domain)) ;; Set up URL handlers. (+browse-url-set-handlers @@ -147,7 +160,7 @@ args))) (cons (rx ; videos (or "youtube.com" "youtu.be" "yewtu.be" - (seq "." (or "mp4" "gif" "mov" "MOV") eos))) + (seq "." (or "mp4" "gif" "mov" "MOV" "webm") eos))) (lambda (&rest args) (apply (if (executable-find "mpv") #'+browse-url-with-mpv @@ -328,6 +341,13 @@ (ibuffer-auto-mode +1) (ibuffer-switch-to-saved-filter-groups "default")))) +(setup info + (:also-load +Info) + (:with-mode Info-mode ; -_- + (:hook #'reading-mode) + (:bind "c" #'+Info-copy-current-node-name + "w" #'+Info-copy-current-node-name))) + (setup kmacro (:also-load +kmacro) (with-eval-after-load '+kmacro @@ -521,6 +541,10 @@ :repo "duckwork/actually-selected-window.el")) (actually-selected-window-mode +1)) +(setup (:straight adaptive-wrap) + (:with-mode adaptive-wrap-prefix-mode + (:hook-into visual-column-mode))) + (setup (:straight anzu) (:option anzu-cons-mode-line-p nil) (:+key [remap query-replace] #'anzu-query-replace-regexp @@ -670,7 +694,7 @@ lui-time-stamp-position 'right-margin lui-time-stamp-format "[ %H:%M" lui-track-behavior 'before-switch-to-buffer - lui-track-indicator 'fringe + lui-track-indicator 'bar lui-fill-remove-face-from-newline nil lui-formatting-list `((,(+lui-make-formatting-list-rx "*") 1 lui-strong-face) diff --git a/lisp/+Info.el b/lisp/+Info.el new file mode 100644 index 0000000..a3c2fcd --- /dev/null +++ b/lisp/+Info.el @@ -0,0 +1,17 @@ +;;; +Info.el -*- lexical-binding: t; -*- + +;;Copyright (C) 2022 Case Duckworth + +;;; Code: + +(require 'info) + +(defun +Info-copy-current-node-name (&optional arg) + "Put the name of the current Info invocation intothe kill ring. +This is the same as `Info-copy-current-node-name', but with the +arg reversed." + (interactive "P" Info-mode) + (Info-copy-current-node-name (unless arg 0))) + +(provide '+Info) +;;; +Info.el ends here diff --git a/lisp/+elisp.el b/lisp/+elisp.el index d2f018a..3eafbf3 100644 --- a/lisp/+elisp.el +++ b/lisp/+elisp.el @@ -6,7 +6,7 @@ (interactive) (if (region-active-p) (eval-region (region-beginning) (region-end)) - (eval-buffer))) + (+eval-region@pulse (lambda (_ _) (eval-buffer)) (point-min) (point-max)))) ;; Should I move this to `+pulse' ? (defun +eval-region@pulse (advised beg end &rest args) diff --git a/lisp/+modeline.el b/lisp/+modeline.el index db3deb4..4063d83 100644 --- a/lisp/+modeline.el +++ b/lisp/+modeline.el @@ -91,7 +91,8 @@ This function makes a lambda, so you can throw it straight into (propertize (+string-truncate (format-mode-line mode-name) 12) 'face 'bold 'keymap mode-line-major-mode-keymap - 'help-echo (concat mode-name " mode\nmouse-1: show menu.") + 'help-echo (concat (format-mode-line mode-name) + " mode\nmouse-1: show menu.") 'mouse-face 'mode-line-highlight))) (defcustom +modeline-modified-icon-alist '((ephemeral . "*") diff --git a/lisp/+org-capture.el b/lisp/+org-capture.el index 6968657..ba036bd 100644 --- a/lisp/+org-capture.el +++ b/lisp/+org-capture.el @@ -3,6 +3,7 @@ ;;; Code: (require 'cl-lib) +(require 'acdw) ;; We don't require `org-capture' here because I'll have to require this library ;; to init.el /before/ org-capture is fully needed. But I do need to declare ;; `org-capture-templates'. @@ -39,6 +40,10 @@ LIST is a symbol and defaults to `org-capture-templates'." (set list (sort (symbol-value list) (lambda (a b) (string< (car a) (car b)))))) +(defun +org-capture-sort-after-init (&optional list) + "Sort LIST with `+org-capture-sort' after Emacs init." + (+ensure-after-init #'+org-capture-sort)) + ;;;###autoload (defun +org-capture-templates-setf (key value &optional list sort-after) "Add KEY to LIST, using `setf'. -- cgit 1.4.1-21-gabe81