1 files changed, 30 insertions, 6 deletions

@@ -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)