Hm.
This commit is contained in:
commit
81c6f17854
|
@ -24,13 +24,13 @@
|
|||
;;(setq debug-on-error t)
|
||||
(message "Loading early-init.el...")
|
||||
|
||||
;; (define-advice load (:before (feature &rest _))
|
||||
;; "Message the user when loading a library."
|
||||
;; (with-temp-message (format "Now loading: '%s'" feature)))
|
||||
(define-advice load (:before (feature &rest _))
|
||||
"Message the user when loading a library."
|
||||
(with-temp-message (format "Now loading: '%s'" feature)))
|
||||
|
||||
;;; Speed up init
|
||||
|
||||
;; (setq gc-cons-threshold most-positive-fixnum)
|
||||
(setq gc-cons-threshold most-positive-fixnum)
|
||||
|
||||
(add-hook 'emacs-startup-hook
|
||||
(defun emacs-startup@restore-values ()
|
||||
|
|
|
@ -12,3 +12,26 @@ vterm
|
|||
cat ~/Sync/fonts-debian.txt | sudo xargs apt install
|
||||
cat ~/Sync/fonts-debian.txt | sudo xargs apt install -y
|
||||
alias e='find-file $*'
|
||||
emacs --debug-init
|
||||
apt search xfce
|
||||
sudo apt install bluebird-gtk-theme blackbird-gtk-theme greybird-gtk-theme xfce4-mount-plugin
|
||||
apt search icons
|
||||
sudo apt install elementary-xfce-icon-theme
|
||||
apt search elementary
|
||||
apt search wingpanel
|
||||
apt search elementary
|
||||
cd ~/src
|
||||
ls
|
||||
git clone https://github.com/elementary/stylesheet.git elementary-gtk-stylesheet
|
||||
cd elementary-gtk-stylesheet/
|
||||
meson build --prefix=~/.local
|
||||
meson build --prefix=$HOME/.local
|
||||
sudo apt install meson ninja sassc
|
||||
sudo apt install meson sassc
|
||||
meson build --prefix=$HOME/.local
|
||||
cd build
|
||||
ninja install
|
||||
ninja clean
|
||||
sudo apt install gimp
|
||||
(derived-mode-p 'eshell-mode)
|
||||
echo $PAGER
|
||||
|
|
|
@ -9,3 +9,8 @@
|
|||
/home/case/Sync
|
||||
/home/case
|
||||
/home/case/.emacs.d
|
||||
/home/case/Sync/emacs/private
|
||||
/home/case/src
|
||||
/home/case/src/elementary-gtk-stylesheet
|
||||
/home/case/src/elementary-gtk-stylesheet/build
|
||||
~
|
||||
|
|
93
init.el
93
init.el
|
@ -413,13 +413,13 @@
|
|||
;; Brand new for Emacs 28: see https://ruzkuku.com/texts/emacs-mouse.html
|
||||
;; Actually, look at this as well: https://www.emacswiki.org/emacs/Mouse3
|
||||
(when (fboundp 'context-menu-mode)
|
||||
;; (:option context-menu-functions
|
||||
;; '(context-menu-ffap
|
||||
;; context-menu-region
|
||||
;; context-menu-undo
|
||||
;; context-menu-dictionary))
|
||||
(:option context-menu-functions
|
||||
'(context-menu-ffap
|
||||
context-menu-region
|
||||
context-menu-undo
|
||||
context-menu-dictionary))
|
||||
(context-menu-mode +1))
|
||||
(dolist (click '( ; Fix scrolling in the margin
|
||||
(dolist (click '(;; Fix scrolling in the margin
|
||||
wheel-down double-wheel-down triple-wheel-down
|
||||
wheel-up double-wheel-up triple-wheel-up))
|
||||
(global-set-key (vector 'right-margin click) 'mwheel-scroll)
|
||||
|
@ -505,6 +505,8 @@
|
|||
;; (let ((browse-url-browser-function browse-url-secondary-browser-function))
|
||||
;; (apply fn r)))
|
||||
(with-eval-after-load 'org
|
||||
(setf (alist-get "\\.x?html?\\'" org-file-apps nil nil #'equal)
|
||||
#'+org-open-html)
|
||||
(org-clock-persistence-insinuate)
|
||||
(org-link-set-parameters "tel" :follow #'+org-tel-open)
|
||||
(setf (alist-get "\\.x?html?\\'" org-file-apps nil nil #'equal)
|
||||
|
@ -626,11 +628,52 @@
|
|||
|
||||
(setup time
|
||||
;; TODO: +display-time-mode with MOAR customizations
|
||||
(:option display-time-format "%H:%M %a %e"
|
||||
display-time-default-load-average nil
|
||||
(:option display-time-default-load-average nil
|
||||
display-time-mail-file :disable)
|
||||
(with-eval-after-load 'discord
|
||||
(with-eval-after-load '+tab-bar
|
||||
(:option display-time-string-forms
|
||||
'((propertize (format-time-string "%H:%M %a %e" now)
|
||||
'face '+tab-bar-extra
|
||||
'help-echo (discord-date-string))
|
||||
load
|
||||
(if mail
|
||||
(concat " "
|
||||
(propertize
|
||||
display-time-mail-string
|
||||
'display `(when (and display-time-use-mail-icon
|
||||
(display-graphic-p))
|
||||
,@display-time-mail-icon
|
||||
,@(when (and
|
||||
display-time-mail-face
|
||||
(memq
|
||||
(plist-get
|
||||
(cdr display-time-mail-icon)
|
||||
:type)
|
||||
'(pbm xbm)))
|
||||
(let ((bg (face-attribute
|
||||
display-time-mail-face
|
||||
:background)))
|
||||
(when (stringp bg)
|
||||
(list :background bg)))))
|
||||
'face display-time-mail-face))
|
||||
"")
|
||||
" "))))
|
||||
|
||||
(display-time-mode +1))
|
||||
|
||||
(setup tramp
|
||||
(el-patch-feature tramp)
|
||||
(with-eval-after-load 'tramp
|
||||
(el-patch-defun tramp-debug-buffer-command-completion-p (_symbol buffer)
|
||||
"A predicate for Tramp interactive commands.
|
||||
They are completed by \"M-x TAB\" only in Tramp debug buffers."
|
||||
(with-current-buffer buffer
|
||||
(el-patch-wrap 2
|
||||
(save-restriction
|
||||
(widen)
|
||||
(string-equal (buffer-substring 1 10) ";; Emacs:")))))))
|
||||
|
||||
(setup (:straight 0x0)
|
||||
(:option 0x0-default-server 'ttm)
|
||||
(with-eval-after-load 'embark
|
||||
|
@ -1015,7 +1058,7 @@ See also `crux-reopen-as-root-mode'."
|
|||
(electric-cursor-mode +1))
|
||||
|
||||
(setup (:straight elfeed)
|
||||
(:also-load +elfeed)
|
||||
(:require +elfeed)
|
||||
(+define-dir elfeed/ (sync/ "emacs/elfeed/" t))
|
||||
(:option
|
||||
elfeed-curl-program-name (executable-find "curl")
|
||||
|
@ -1046,10 +1089,7 @@ See also `crux-reopen-as-root-mode'."
|
|||
"&" #'+elfeed-show-browse-generic
|
||||
"RET" #'shr-browse-url)
|
||||
(:hook #'reading-mode)
|
||||
;; (define-advice elfeed-show-entry (:after (&rest _))
|
||||
;; "Re-flow the entry a short time after showing it."
|
||||
;; (run-at-time 0.1 nil #'elfeed-show-refresh))
|
||||
))
|
||||
(+elfeed-update-async-mode +1)))
|
||||
|
||||
(setup (:straight elfeed-org)
|
||||
(:also-load +org-capture)
|
||||
|
@ -1212,6 +1252,8 @@ See also `crux-reopen-as-root-mode'."
|
|||
(setup (:straight hungry-delete)
|
||||
(:option hungry-delete-chars-to-skip " \t"
|
||||
hungry-delete-join-reluctantly nil)
|
||||
(+with-ensure-after-init
|
||||
(add-to-list 'hungry-delete-except-modes 'eshell-mode))
|
||||
(:bind-into paredit
|
||||
;; I define these functions here because they really require both packages
|
||||
;; to make any sense. So, would I put them in `+hungry-delete' or
|
||||
|
@ -1297,6 +1339,17 @@ See also `crux-reopen-as-root-mode'."
|
|||
(setf (alist-get 'markdown-mode apheleia-mode-alist) 'markdownfmt)
|
||||
(setf (alist-get 'gfm-mode apheleia-mode-alist) 'markdownfmt))))
|
||||
|
||||
(setup (:straight mastodon)
|
||||
(:option mastodon-instance-url "https://tiny.tilde.website"
|
||||
mastodon-client--token-file (.etc "mastodon.plstore")
|
||||
mastodon-auth-source-file (car auth-sources)
|
||||
mastodon-tl--enable-proportional-fonts t
|
||||
mastodon-tl--show-avatars t)
|
||||
(:hook #'mastodon-async-mode
|
||||
#'reading-mode
|
||||
#'hl-line-mode
|
||||
#'lin-mode))
|
||||
|
||||
(setup (:straight minions)
|
||||
(minions-mode +1))
|
||||
|
||||
|
@ -1649,13 +1702,6 @@ See also `crux-reopen-as-root-mode'."
|
|||
(sync/ "emacs/snippets" t)))
|
||||
(yas-global-mode +1))
|
||||
|
||||
(setup (:straight zoom-frm))
|
||||
|
||||
(setup (:straight zzz-to-char)
|
||||
(:require +zzz-to-char)
|
||||
(:option zzz-to-char-reach 1024)
|
||||
(:global "M-z" #'+zzz-to-char))
|
||||
|
||||
(setup (:straight (ytdious
|
||||
:host github :repo "spiderbit/ytdious"
|
||||
:fork (:host github :repo "duckwork/ytdious")))
|
||||
|
@ -1664,3 +1710,10 @@ See also `crux-reopen-as-root-mode'."
|
|||
(concat "https://" +invidious-host)
|
||||
"https://invidious.snopyta.org"))
|
||||
(:bind "y" #'+ytdious-watch))
|
||||
|
||||
(setup (:straight zoom-frm))
|
||||
|
||||
(setup (:straight zzz-to-char)
|
||||
(:require +zzz-to-char)
|
||||
(:option zzz-to-char-reach (+bytes 1 :kib))
|
||||
(:global "M-z" #'+zzz-to-char))
|
||||
|
|
|
@ -2,8 +2,6 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
(require 'elfeed)
|
||||
|
||||
;; https://karthinks.com/software/lazy-elfeed/
|
||||
(defun +elfeed-scroll-up-command (&optional arg)
|
||||
"Scroll up or go to next feed item in Elfeed"
|
||||
|
@ -31,5 +29,78 @@
|
|||
(interactive)
|
||||
(elfeed-show-visit t))
|
||||
|
||||
;;; Fetch feeds async
|
||||
;; https://github.com/skeeto/elfeed/issues/367
|
||||
|
||||
(defun +elfeed--update-message ()
|
||||
(message "[Elfeed] Update in progress")
|
||||
'ignore)
|
||||
|
||||
(defvar +elfeed--update-running nil "Whether an update is currently running.")
|
||||
|
||||
(defun +elfeed-update-command ()
|
||||
(interactive)
|
||||
(let ((script (expand-file-name "~/.local/bin/elfeed")))
|
||||
(message "[Elfeed] Updating in the background.")
|
||||
(setq +elfeed--update-running t)
|
||||
(elfeed-db-save)
|
||||
(advice-add 'elfeed :override #'+elfeed--update-message)
|
||||
(ignore-errors (kill-buffer "*elfeed-search*"))
|
||||
(ignore-errors (kill-buffer "*elfeed-log*"))
|
||||
(elfeed-db-unload)
|
||||
(unless (file-exists-p script)
|
||||
(make-directory (file-name-directory script) :parents)
|
||||
(with-temp-buffer
|
||||
(insert "(progn\n"
|
||||
" (load (locate-user-emacs-file \"early-init\"))\n"
|
||||
" (straight-use-package 'elfeed)\n"
|
||||
" (require 'elfeed)\n"
|
||||
" (elfeed)\n"
|
||||
" (elfeed-update)\n"
|
||||
" (while (> (elfeed-queue-count-total) 0)\n"
|
||||
" (sleep-for 5)\n"
|
||||
" (message \"%s\" (elfeed-queue-count-total))\n"
|
||||
" (accept-process-output))\n"
|
||||
" (elfeed-db-save-safe)\n"
|
||||
" (elfeed-db-gc-safe))")
|
||||
(write-file script)))
|
||||
(set-process-sentinel (start-process-shell-command
|
||||
"Elfeed" nil (concat "emacs --script " script))
|
||||
(lambda (a b)
|
||||
(advice-remove 'elfeed #'+elfeed--update-message)
|
||||
(setq +elfeed--update-running nil)
|
||||
(message "[Elfeed] Background update %s."
|
||||
(string-trim b))))))
|
||||
|
||||
(defvar +elfeed--update-timer nil "Timer for `elfeed-update-command'.")
|
||||
(defvar +elfeed--update-first-time 6 "How long to wait for the first time.")
|
||||
(defvar +elfeed--update-repeat (* 60 15) "How long between updates.")
|
||||
|
||||
(defun +elfeed--cancel-update-timer ()
|
||||
"Cancel `+elfeed--update-timer'."
|
||||
(unless +elfeed--update-running
|
||||
(ignore-errors (cancel-timer +elfeed--update-timer))
|
||||
(setq +elfeed--update-timer nil)))
|
||||
|
||||
(defun +elfeed--reinstate-update-timer ()
|
||||
"Reinstate `+elfeed--update-timer'."
|
||||
(setq +elfeed--update-timer
|
||||
(run-at-time +elfeed--update-first-time
|
||||
+elfeed--update-repeat
|
||||
#'+elfeed-update-command)))
|
||||
|
||||
(define-minor-mode +elfeed-update-async-mode
|
||||
"Minor mode to update elfeed async-style every 15 minutes."
|
||||
:global t
|
||||
(if +elfeed-update-async-mode
|
||||
(progn ; enable
|
||||
(+elfeed--reinstate-update-timer)
|
||||
(advice-add 'elfeed :before '+elfeed--cancel-update-timer)
|
||||
(advice-add 'elfeed-search-quit-window :after '+elfeed--reinstate-update-timer))
|
||||
(progn ; disable
|
||||
(advice-remove 'elfeed '+elfeed--cancel-update-timer)
|
||||
(advice-remove 'elfeed-search-quit-window '+elfeed--reinstate-update-timer)
|
||||
(+elfeed--cancel-update-timer))))
|
||||
|
||||
(provide '+elfeed)
|
||||
;;; +elfeed.el ends here
|
||||
|
|
|
@ -91,10 +91,10 @@ something, it's really annoying to work with."
|
|||
,@forms)
|
||||
(when (featurep 'eshell)
|
||||
`(dolist (buf (buffer-list))
|
||||
(with-current-buffer buf
|
||||
(when (derived-mode-p 'eshell-mode)
|
||||
(+eshell@setup)))))
|
||||
'(add-hook 'eshell-mode-hook #'+eshell@setup)))
|
||||
(with-current-buffer buf
|
||||
(when (derived-mode-p 'eshell-mode)
|
||||
(+eshell@setup)))))
|
||||
(add-hook 'eshell-mode-hook #'+eshell@setup)))
|
||||
|
||||
(provide '+eshell)
|
||||
;;; +eshell.el ends here
|
||||
|
|
|
@ -433,8 +433,12 @@ the deletion might narrow the column."
|
|||
(when (and (memq this-char-type types) (memq prev-char-type types))
|
||||
(backward-char)
|
||||
(setq type prev-char-type)) ; what the fuckckckckck
|
||||
(if (memq type types)
|
||||
(progn (org-open-at-point arg))
|
||||
;; Okay, so this ^ is pretty janky and doesn't /really/ work that well,
|
||||
;; especially on DEADLINE (and probably SCHEDULED) lines. However, since
|
||||
;; I really just want to open the list of URLs /most of the time/, I'm
|
||||
;; fixing it like this instead.
|
||||
(unless (and (memq type types)
|
||||
(ignore-errors (org-open-at-point arg)))
|
||||
(while (not
|
||||
(progn
|
||||
(org-back-to-heading)
|
||||
|
|
|
@ -0,0 +1,41 @@
|
|||
;;; +straight.el --- Straight.el extras -*- lexical-binding: t; -*-
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defun +straight-update-package (package &optional recursive)
|
||||
"Update PACKAGE using straight.
|
||||
This pulls, rebuilds, and loads the updated PACKAGE."
|
||||
(interactive (list (straight--select-package "Update package"
|
||||
#'straight--installed-p)
|
||||
current-prefix-arg))
|
||||
(+with-message (format "Pulling package `%s'%s" package
|
||||
(if recursive " and deps" ""))
|
||||
(funcall (if recursive
|
||||
#'straight-pull-package-and-deps
|
||||
#'straight-pull-package)
|
||||
package
|
||||
:from-upstream))
|
||||
(+with-message (format "Rebuilding package `%s'%s" package
|
||||
(if recursive " and deps" ""))
|
||||
(straight-rebuild-package package recursive))
|
||||
(+with-message (format "Loading package `%s'%s" package
|
||||
(if recursive " and deps" ""))
|
||||
(ignore-errors (load-library (symbol-name package)))
|
||||
(when recursive
|
||||
(dolist (dep (straight--get-transitive-dependencies package))
|
||||
(ignore-errors (load-library (symbol-name package)))))))
|
||||
|
||||
(defun +straight-update-all (from-upstream)
|
||||
"Update all installed packages using straight.
|
||||
This pulls and rebuilds all packages at once. It does not reload
|
||||
all of them, for reasons that should be obvious.
|
||||
|
||||
With a prefix argument, it also pulls the packages FROM-UPSTREAM."
|
||||
(interactive "P")
|
||||
(straight-pull-all from-upstream)
|
||||
(straight-rebuild-all))
|
||||
|
||||
(provide '+straight)
|
||||
;;; +straight.el ends here
|
|
@ -22,7 +22,7 @@
|
|||
`((global menu-item ,(string-trim-right
|
||||
(format-mode-line mode-line-misc-info))
|
||||
|
||||
ignore)))
|
||||
ignore :help (discord-date-string))))
|
||||
|
||||
(defvar +tab-bar-show-original nil
|
||||
"Original value of `tab-bar-show'.")
|
||||
|
@ -129,35 +129,30 @@ Used by `tab-bar-format-menu-bar'."
|
|||
;;; Tab bar format tabs
|
||||
|
||||
(require 'el-patch)
|
||||
|
||||
(el-patch-defun tab-bar--format-tab (tab i)
|
||||
(append
|
||||
(el-patch-remove
|
||||
`((,(intern (format "sep-%i" i)) menu-item ,(tab-bar-separator) ignore)))
|
||||
(cond
|
||||
((eq (car tab) 'current-tab)
|
||||
`((current-tab
|
||||
menu-item
|
||||
,(funcall tab-bar-tab-name-format-function tab i)
|
||||
ignore
|
||||
:help "Current tab")))
|
||||
(t
|
||||
`((,(intern (format "tab-%i" i))
|
||||
menu-item
|
||||
,(funcall tab-bar-tab-name-format-function tab i)
|
||||
,(or
|
||||
(alist-get 'binding tab)
|
||||
`(lambda ()
|
||||
(interactive)
|
||||
(tab-bar-select-tab ,i)))
|
||||
:help "Click to visit tab"))))
|
||||
`((,(if (eq (car tab) 'current-tab) 'C-current-tab (intern (format "C-tab-%i" i)))
|
||||
menu-item ""
|
||||
,(or
|
||||
(alist-get 'close-binding tab)
|
||||
`(lambda ()
|
||||
(interactive)
|
||||
(tab-bar-close-tab ,i)))))))
|
||||
(el-patch-feature tab-bar)
|
||||
(with-eval-after-load 'tab-bar
|
||||
(el-patch-defun tab-bar--format-tab (tab i)
|
||||
"Format TAB using its index I and return the result as a keymap."
|
||||
(append
|
||||
(el-patch-remove
|
||||
`((,(intern (format "sep-%i" i)) menu-item ,(tab-bar-separator) ignore)))
|
||||
(cond
|
||||
((eq (car tab) 'current-tab)
|
||||
`((current-tab
|
||||
menu-item
|
||||
,(funcall tab-bar-tab-name-format-function tab i)
|
||||
ignore
|
||||
:help "Current tab")))
|
||||
(t
|
||||
`((,(intern (format "tab-%i" i))
|
||||
menu-item
|
||||
,(funcall tab-bar-tab-name-format-function tab i)
|
||||
,(alist-get 'binding tab)
|
||||
:help "Click to visit tab"))))
|
||||
(when (alist-get 'close-binding tab)
|
||||
`((,(if (eq (car tab) 'current-tab) 'C-current-tab (intern (format "C-tab-%i" i)))
|
||||
menu-item ""
|
||||
,(alist-get 'close-binding tab)))))))
|
||||
|
||||
|
||||
;; Emacs 27
|
||||
|
|
24
lisp/acdw.el
24
lisp/acdw.el
|
@ -248,5 +248,29 @@ With optional ARG (\\[universal-argument]), just split."
|
|||
(interactive "P")
|
||||
(+split-window-then :below arg))
|
||||
|
||||
(defun +bytes (number unit)
|
||||
"Convert NUMBER UNITs to bytes.
|
||||
UNIT can be one of :kb, :mb, :gb, :tb, :pb, :eb, :zb, :yb; :kib, :mib, :gib,
|
||||
:tib, :pib, :eib, :zib, :yib."
|
||||
(* number (pcase unit
|
||||
;; Base 10 units
|
||||
(:kb 1000)
|
||||
(:mb (* 1000 1000))
|
||||
(:gb (* 1000 1000 1000))
|
||||
(:tb (* 1000 1000 1000 1000))
|
||||
(:pb (* 1000 1000 1000 1000 1000))
|
||||
(:eb (* 1000 1000 1000 1000 1000 1000))
|
||||
(:zb (* 1000 1000 1000 1000 1000 1000 1000))
|
||||
(:yb (* 1000 1000 1000 1000 1000 1000 1000 1000))
|
||||
;; Base 2 units
|
||||
(:kib 1024)
|
||||
(:mib (* 1024 1024))
|
||||
(:gib (* 1024 1024 1024))
|
||||
(:tib (* 1024 1024 1024 1024))
|
||||
(:pib (* 1024 1024 1024 1024 1024))
|
||||
(:eib (* 1024 1024 1024 1024 1024 1024))
|
||||
(:zib (* 1024 1024 1024 1024 1024 1024 1024))
|
||||
(:yib (* 1024 1024 1024 1024 1024 1024 1024 1024)))))
|
||||
|
||||
(provide 'acdw)
|
||||
;;; acdw.el ends here
|
||||
|
|
|
@ -0,0 +1,37 @@
|
|||
;;; fibs.el --- Play backgammon with FIBS -*- lexical-binding: t; -*-
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; fibs.com is one of the oldest backgammon servers out there, and it's
|
||||
;; accessible via telnet. This package provides a wrapper to enable you to play
|
||||
;; backgammon on fibs.com more easily than just opening a telnet session
|
||||
;; yourself.
|
||||
|
||||
;;; TODO:
|
||||
|
||||
;; - Automatically log in.
|
||||
;; - Add a `fibs-quit' function to kill the telnet server and buffer.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'telnet)
|
||||
|
||||
(defgroup fibs nil
|
||||
"Customizations for FIBS, the First Internet Backgammon Server."
|
||||
:group 'games)
|
||||
|
||||
(defcustom fibs-server "fibs.com"
|
||||
"The server to connect to FIBS with."
|
||||
:type 'string)
|
||||
|
||||
(defcustom fibs-port 4321
|
||||
"The port to connect to FIBS with."
|
||||
:type 'number)
|
||||
|
||||
;;;###autoload
|
||||
(defun fibs ()
|
||||
(interactive)
|
||||
(telnet fibs-server fibs-port))
|
||||
|
||||
(provide 'fibs)
|
||||
;;; fibs.el ends here
|
Loading…
Reference in New Issue