diff options
Diffstat (limited to 'init.el')
-rw-r--r-- | init.el | 3260 |
1 files changed, 3260 insertions, 0 deletions
@@ -0,0 +1,3260 @@ +;; -*- lexical-binding: t; -*- + +;;; Initialisation +;;;; Bootstrap and use package +(defvar jao-emacs-dir (expand-file-name "~/etc/emacs")) + +(setq package-user-dir + (expand-file-name (format "~/.emacs.d/elpa.%s" emacs-major-version)) + package-check-signature 'allow-unsigned) + +(require 'package) +(setq package-archives + '(("gnu-devel" . "https://elpa.gnu.org/devel/") + ("nongnu-devel" . "https://elpa.nongnu.org/nongnu-devel/") + ("melpa" . "https://melpa.org/packages/")) + package-archive-priorities '(("gnu-devel" . 2) + ("nongnu-devel" . 1) + ("melpa" . 0))) + +(package-initialize) + +(unless (package-installed-p 'use-package) + (package-refresh-contents) + (package-install 'use-package)) +(require 'use-package) + +(use-package gnu-elpa-keyring-update :ensure t) + +;;;; .elc vs .el loading + +(setq load-prefer-newer t) +(setq comp-async-report-warnings-errors nil + warning-suppress-types '((comp))) + +;;; Paths +(defvar jao-local-lisp-dir "~/lib/elisp" + "Directory for external elisp libraries and repos") + +(defvar jao-data-dir (expand-file-name "data" jao-emacs-dir) + "Directory containing static data, such as images.") + +(defun jao-data-file (file) (expand-file-name file jao-data-dir)) + +(setq jao-org-dir (expand-file-name "~/doc/org")) + +(defvar jao-sink-dir + (file-name-as-directory (expand-file-name "~/doc/sink")) + "Directory used for downloads and such.") + +(defvar jao-site-dir (expand-file-name "site" jao-emacs-dir)) +(defun jao-site-el (basename &optional gpg) + (expand-file-name (concat basename ".el" (when gpg ".gpg")) jao-site-dir)) + +(defun jao-load-site-el (basename &optional gpg) + (let ((lf (jao-site-el basename gpg))) + (if (file-exists-p lf) + (load lf) + (message "Attempted to load non existing %s" lf)))) + +(defun jao-exec-path (dir) + (let ((fn (expand-file-name dir))) + (add-to-list 'exec-path fn nil) + (setenv "PATH" (concat fn ":" (getenv "PATH"))))) + +(defun jao-load-path (subdir) + "Add to load path a subdir of `jao-local-lisp-dir'" + (let ((path (expand-file-name subdir jao-local-lisp-dir))) + (when (file-directory-p path) (add-to-list 'load-path path)))) + +;;;; load and info path initialisation +(add-to-list 'load-path jao-site-dir) +(add-to-list 'load-path jao-local-lisp-dir) +(add-to-list 'load-path (expand-file-name "custom" jao-emacs-dir)) +(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/") + +(let ((libd (expand-file-name "lib" jao-emacs-dir))) + (add-to-list 'load-path libd) + (dolist (f (directory-files libd t "^[^.]+$")) + (when (file-directory-p f) (add-to-list 'load-path f)))) + +(defvar jao-info-dir (expand-file-name "~/doc/info")) +(require 'info) +(add-to-list 'Info-directory-list jao-info-dir) + +;;;; custom location of custom.el and co. +(setq custom-file (jao-site-el "custom")) +(load custom-file) +(setq custom-unlispify-tag-names nil) +(setq custom-buffer-done-kill t) +(setq custom-raised-buttons nil) + +;;; Preamble +;;;; preamble (pre.el) +(jao-load-site-el "pre") + +;;; System Utilities +;;; persist +(require 'persist) + +;;;; (no) backups +(setq vc-make-backup-files nil + make-backup-files nil) + +;;;; history (saveplace, recentf, savehist) +(require 'saveplace) +(setq save-place-file (expand-file-name "~/.emacs.d/cache/places")) +(save-place-mode 1) + +(setq recentf-save-file (expand-file-name "~/.emacs.d/cache/recentf") + recentf-max-saved-items 2000 + recentf-exclude '("/home/jao/\\.emacs\\.d/elpa.*/.*" + ".*/.git/COMMIT_EDITMSG")) + +(require 'recentf) +(recentf-mode 1) + + +(setq savehist-file (expand-file-name "~/.emacs.d/cache/history")) +(require 'savehist) + +(savehist-mode t) + +(defun jao-unpropertize-kill-ring () + (setq kill-ring (mapcar #'substring-no-properties kill-ring))) + +(add-hook 'kill-emacs-hook #'jao-unpropertize-kill-ring) + +(setq savehist-additional-variables '(kill-ring search-ring regexp-search-ring) + savehist-ignored-variables '(ido-file-history)) + +;;;; yes/no, bell, startup message + +(setq use-short-answers t) +(setq inhibit-startup-message t) +(setq visible-bell t) + +;;;; server +(setenv "EDITOR" "emacsclient") +(require 'server) +(unless (or (daemonp) (server-running-p)) (server-start)) + +;;;; timers +(put 'list-timers 'disabled nil) + +;;;; tramp +(setq tramp-mode nil) + +;;;; sleep/awake +(use-package jao-sleep) +(jao-sleep-dbus-register) + +;;;; process runners +(use-package jao-shell + :demand t + :config (jao-shell-def-exec jao-trayer "trayer.sh") + :bind (("s-r" . jao-shell-exec))) + +;;;; app launcher +(jao-load-path "app-launcher") +(use-package app-launcher + :bind (("s-R" . app-launcher-run-app))) + +;;;; brightness control +(jao-shell-def-exec jao-bright-set-up "brightnessctl" "-q" "s" "5%+") +(jao-shell-def-exec jao-bright-set-down "brightnessctl" "-q" "s" "5%-") + +(defun jao-brightness () + (string-trim (or (cadr (jao-shell-cmd-lines "brightnessctl")) "(Unknown)"))) + +(defun jao-bright-show () + (interactive) + (message "%s" (jao-brightness))) + +(defun jao-bright-up () + (interactive) + (jao-shell-exec "brightnessctl -q s 5%%+" t) + (jao-bright-show)) + +(defun jao-bright-down () + (interactive) + (jao-shell-exec "brightnessctl -q s 5%%-" t) + (jao-bright-show)) + +;;;; keyboard +(when (> emacs-major-version 27) + (use-package repeat + :config (setq repeat-echo-function 'repeat-echo-mode-line + repeat-exit-key "SHIFT" + repeat-exit-timeout 2)) + (repeat-mode)) + +(defun jao-kb-toggle (&optional lyt) + (interactive) + (shell-command-to-string (or lyt + (if (jao-kb-toggled-p) + "setxkbmap us" + "setxkbmap us -variant intl")))) + +(defun jao-kb-toggled-p () + (not (string-empty-p + (shell-command-to-string "setxkbmap -query|grep variant")))) + +(customize-set-variable 'default-input-method "catalan-prefix") +;; http://mbork.pl/2022-03-07_Transient_input_method +(customize-set-variable 'default-transient-input-method "TeX") + +(setq echo-keystrokes 1 + suggest-key-bindings nil) + +;;;; transient +(use-package transient + :init (setq transient-show-popup t) ;; 2.0 + :demand t + :config + (transient-bind-q-to-quit)) + +(defmacro jao-transient-major-mode (mode &rest suffix) + (declare (indent defun)) + (let ((mode (intern (format "%s-mode" mode))) + (mmap (intern (format "%s-mode-map" mode))) + (name (intern (format "jao-transient-%s" mode)))) + `(progn + (transient-define-prefix ,name () + ,(format "Transient ops for %s" mode) + [,(format "Operations for %s" mode) :if-derived ',mode ,@suffix]) + (define-key ,mmap (kbd "s-SPC") #',name) + (define-key ,mmap (kbd "C-c SPC") #',name)))) + +(defmacro jao-transient-major-mode+1 (mode suffix) + (declare (indent defun)) + (let ((name (intern (format "jao-transient-%s" mode)))) + (if (fboundp name) + `(transient-append-suffix ',name '(0 -1) ,suffix) + `(jao-transient-major-mode ,mode ,suffix)))) + +(defmacro jao-transient-major-mode+ (mode &rest suffixes) + (declare (indent defun)) + `(progn ,@(mapcar (lambda (s) `(jao-transient-major-mode+1 ,mode ,s)) + suffixes))) + +;;;; disk monitoring +(use-package jao-dirmon + :commands jao-dirmon-report) +;;;; mailcap +(use-package mailcap + :config + (add-to-list 'mailcap-mime-extensions '(".JPEG" . "image/jpeg")) + (add-to-list 'mailcap-mime-extensions '(".JPG" . "image/jpeg")) + + (defun jao-icalendar-import-buffer (&optional no-kill) + (let ((icalendar-import-format "%s%u%l%d")) + (icalendar-import-buffer diary-file t nil)) + (unless no-kill (kill-buffer)) + (message "Event imported into diary")) + + (defun jao-icalendar-import-invite (file) + (with-temp-buffer + (insert-file-contents file) + (jao-icalendar-import-buffer t))) + + :custom + ((mailcap-user-mime-data + `((jao-icalendar-import-buffer "application/ics") + ("emacsclient -e '(jao-icalendar-import-invite \"%s\")'" "application/ics") + (doc-view-mode "application/.*pdf" (display-graphic-p)) + ("zathura \"%s\"" "application/.*pdf") + (image-mode "image/.*" (display-graphic-p)) + ("firefox %s && riverctl set-focused-tags 2" "text/html" jao-river-enabled) + ("swayimg \"%s\"" "image/.*" jao-sway-enabled) + ("imv-wayland \"%s\"" "image/.*" jao-wayland-enabled) + ("imv-x11 \"%s\"" "image/.*"))))) + +;;; Crypto +;;;; PGP, EPG, passwords +(setq auth-source-debug nil) + +(require 'auth-source) +(add-to-list 'auth-source-protocols '(local "local")) +(setq auth-sources '("~/.emacs.d/authinfo.gpg" "~/.netrc")) + +(use-package epa-file + :init (setq epa-file-cache-passphrase-for-symmetric-encryption t) + :config (epa-file-enable)) +(require 'epa-file) + +(defun jao--get-user/password (h) + (let ((item (car (auth-source-search :type 'netrc :host h :max 1)))) + (when item + (let ((user (plist-get item :user)) + (pwd (plist-get item :secret))) + (list user (when pwd (funcall pwd))))))) + +(defun jao-call-with-auth (host fun) + (let ((up (jao--get-user/password host))) + (funcall fun (car up) (cadr up)))) + +(defmacro jao-with-auth (host usr pwd &rest body) + (declare (indent defun)) + `(jao-call-with-auth ,host (lambda (,usr ,pwd) ,@body))) + +;;;; pass +(use-package password-store + :ensure t + :bind (("C-c p" . jao-transient-password))) + +(transient-define-prefix jao-transient-password () + ["Password store" + [("c" "copy secret" password-store-copy) + ("C" "copy field" password-store-copy-field)] + [("i" "insert entry" password-store-insert) + ("e" "edit entry" password-store-edit) + ("g" "generate password" password-store-generate)] + [("d" "delete entry" password-store-remove) + ("r" "rename entry" password-store-rename)]]) + +;;; Fonts and color themes +;;;; widgets +(setq widget-image-enable nil + widget-link-prefix "" + widget-link-suffix "" + widget-button-prefix " " + widget-button-suffix " " + widget-push-button-prefix "" + widget-push-button-suffix "") + +;;;; nobreak char display +(setq nobreak-char-display nil) + +;;;; vertical separator +(unless (display-graphic-p) + (set-display-table-slot standard-display-table + 'vertical-border + (make-glyph-code ?│))) + +;;;; transparency +(defvar jao-transparent-only-bg (> emacs-major-version 28)) + +(defvar jao-frames-default-alpha + (cond ((eq window-system 'pgtk) 85) + (jao-transparent-only-bg 88) + (t 85))) + +(defvar jao-transparent-frame (< jao-frames-default-alpha 100)) + +(defun jao-alpha-parameters (&optional level) + (let ((level (or level jao-frames-default-alpha))) + (if jao-transparent-only-bg + `((alpha-background . ,level) (alpha)) + `((alpha . ,(cons level level)) (alpha-background))))) + +(defun jao-set-transparency (&optional level all) + (interactive "nOpacity (0-100): ") + (let ((level (or level jao-frames-default-alpha))) + (setq jao-transparent-frame (< level 100)) + (if all + (modify-all-frames-parameters (jao-alpha-parameters level)) + (modify-frame-parameters nil (jao-alpha-parameters level))))) + +(defun jao-toggle-transparency (&optional all) + (interactive "P") + (let ((level (if jao-transparent-frame 100 jao-frames-default-alpha))) + (jao-set-transparency level all))) + +(jao-set-transparency) + +;;;; themes +(defun jao-colors-scheme-dark-p () + (equal "dark" (getenv "JAO_COLOR_SCHEME"))) + +(defun jao-colors-scheme () + (if (jao-colors-scheme-dark-p) 'dark 'light)) + +(customize-set-variable 'frame-background-mode (jao-colors-scheme)) + +(setq custom-theme-directory + (expand-file-name "lib/themes" jao-emacs-dir)) + +(require 'jao-themes) + +(defvar jao-theme-dark 'jao-dark) +(defvar jao-theme-light 'jao-light) +(defvar jao-theme-term-dark 'modus-vivendi) +(defvar jao-theme-term-light 'jao-light-term) + +(defun jao-themes-setup () + (let* ((dark (jao-colors-scheme-dark-p)) + (theme (cond ((and dark window-system) jao-theme-dark) + (dark jao-theme-term-dark) + (window-system jao-theme-light) + (t jao-theme-term-light)))) + (load-theme theme t) + (modify-all-frames-parameters `((font . ,jao-themes-default-face))))) + +(jao-themes-setup) + +;;; Help system +;;;; help buffers +(setq help-window-select t + help-window-keep-selected nil + help-link-key-to-documentation t) + +;;;; find-func/var/lib +(use-package find-func + :bind (("C-h C-v" . find-variable) + ("C-h C-f" . find-function) + ("C-h C-k" . find-function-on-key) + ("C-h C-l" . find-library))) + +;;;; eldoc +(use-package eldoc + :init (setq eldoc-minor-mode-string nil + eldoc-idle-delay 0.1 + eldoc-echo-area-display-truncation-message nil + eldoc-echo-area-use-multiline-p 5 + eldoc-echo-area-prefer-doc-buffer 'maybe + eldoc-display-functions '(eldoc-display-in-echo-area)) + :config (global-eldoc-mode 1)) + +(defun jao-eldoc-toggle () + "Toggle eldoc's documentation buffer." + (interactive) + (let ((buffer (eldoc-doc-buffer))) + (if-let (w (and buffer (get-buffer-window buffer))) + (delete-window w) + (eldoc-doc-buffer t)))) + +;;;; bookmarks +(setq bookmark-default-file "~/.emacs.d/emacs.bmk" + bookmark-fringe-mark nil) + +;;;; man pages +(use-package man + :config (setq Man-notify-method 'pushy)) ;; pushy - same window + +;;; Minibuffer +(use-package jao-minibuffer + :init + (if (jao-colors-scheme-dark-p) + (setq jao-minibuffer-active-buffer-line-color "azure4" + jao-minibuffer-inactive-buffer-line-color "grey25") + (setq jao-minibuffer-active-buffer-line-color "burlywood3" + jao-minibuffer-inactive-buffer-line-color "grey65")) + (setq jao-minibuffer-adaptive-alignment nil) + :commands (jao-minibuffer-add-variable + jao-minibuffer-refresh + jao-minibuffer-mode)) + +(setq enable-recursive-minibuffers t) +(require 'mb-depth) +(minibuffer-depth-indicate-mode 1) + +(setq minibuffer-default-prompt-format " (default %s)") +(minibuffer-electric-default-mode 1) + +(jao-minibuffer-mode 1) + +;;; Mode line +;;;; config +(setq line-number-display-limit-width 250 + mode-line-position-column-format '(" %c") + mode-line-position-line-format '(" %c %l") + mode-line-end-spaces nil + mode-line-percent-position + '("%2l" (:eval (format " %d " (line-number-at-pos (point-max)))) "%2c")) + +(line-number-mode -1) +(column-number-mode -1) + +;;;; jao-mode-line +(defvar jao-mode-line-in-minibuffer t) + +(use-package jao-mode-line + :commands (jao-mode-line-add-to-minibuffer-left + jao-mode-line-add-to-minibuffer-right + jao-mode-line-remove-from-minibuffer)) + +;;;; time display +(setq world-clock-list + '(("Europe/Paris" "Barcelona") + ("America/Los_Angeles" "Los Angeles") + ("America/New_York" "New York") + ("Europe/London" "London") + ("Asia/Calcutta" "Bangalore") + ("Asia/Tokyo" "Tokyo"))) + +(setq display-time-day-and-date nil + display-time-24hr-format nil + display-time-default-load-average nil + display-time-format " %a %e %H:%M") + +(defun jao-time-to-epoch (&optional s) + "Transform a time string to an epoch integer in milliseconds." + (interactive) + (let ((s (or s (read-string "Time string: " (thing-at-point 'string))))) + (message "%s = %s" + s + (round (* 1000 (time-to-seconds (parse-time-string s))))))) + +(defun jao-epoch-to-time (&optional v) + "Transform an epoch, given in milliseconds, to a time string." + (interactive) + (let ((v (or v (read-number "Milliseconds: " (thing-at-point 'number))))) + (message "%s = %s" v + (format-time-string "%Y-%m-%d %H:%M:%S" + (seconds-to-time (/ v 1000.0)))))) + +;;;; mode line toggle +(use-package jao-mode-line + :init + (when (and window-system (not jao-mode-line-in-minibuffer)) + (add-to-list 'after-make-frame-functions #'jao-mode-line-hide-inactive) + (add-hook 'after-init-hook #'jao-mode-line-toggle-inactive)) + :demand t + :bind (("<home>" . jao-mode-line-toggle-inactive) + ("<end>" . jao-mode-line-toggle) + ("<insert>" . jao-mode-line-echo))) + +;;;; diminish +(use-package diminish + :ensure t + :demand t + :diminish ((auto-fill-function . " §") + (auto-revert-mode . ""))) + +(use-package outline + :diminish ((outline-minor-mode . ""))) + +;;;; battery +(use-package battery + :init (setq battery-load-low 15 + battery-load-critical 8 + battery-mode-line-limit 40 + battery-echo-area-format + "%L %r %B (%p%% load, remaining time %t)" + battery-mode-line-format " 🔋%b%p% ")) + +(with-eval-after-load "jao-minibuffer" + (unless jao-mode-line-in-minibuffer + (jao-minibuffer-add-variable 'battery-mode-line-string 80))) + +;;; Notifications +;;;; alert +(use-package alert + :ensure t + :init + (setq alert-default-style 'message ;; 'libnotify + alert-hide-all-notifications nil)) + +;;;; jao-notify +(use-package jao-notify + :demand t + :init (setq jao-notify-use-messages t)) + +;;;; tracking +(use-package tracking + :demand t + :init (setq tracking-position 'before-modes + tracking-frame-behavior nil + tracking-most-recent-first nil + tracking-max-mode-line-entries 10 + tracking-sort-faces-first t + tracking-shorten-modes '()) + :config + (setq erc-track-enable-keybindings nil)) + +(use-package jao-tracking + :demand t + :init (setq jao-tracking-bkg (if (jao-colors-scheme-dark-p) "grey20" "grey93")) + :config (jao-tracking-setup t)) + +;;;; ednc + +(use-package ednc + :ensure t + :diminish) + +(use-package jao-ednc + :demand t + :init (setq jao-ednc-use-tracking nil) + :commands (jao-ednc-setup) + :after ednc + :config + (jao-ednc-ignore-app "Firefox") + (transient-define-prefix jao-transient-ednc () + ["Notifications" + ("s" "show last" jao-ednc-show) + ("S" "show all" jao-ednc-pop) + ("n" "dismiss and show" jao-ednc-dismiss-and-show :transient t) + ("d" "dismiss last" jao-ednc-dismiss) + ("D" "dismiss all" jao-ednc-dismiss-all) + ("i" "invoke last action" jao-ednc-invoke-last-action)]) + (global-set-key (kbd "s-n") #'jao-transient-ednc)) + +;;; Calendar, diary, weather +;;;; diary +(setq diary-file (expand-file-name "diary" jao-org-dir) + diary-display-function 'diary-fancy-display + diary-mail-addr "jao@localhost" + diary-comment-start ";;" + diary-comment-end "") + +(add-hook 'diary-list-entries-hook 'diary-sort-entries t) + +;;;; calendar +(setq appt-display-format nil) +(appt-activate 1) +(setq calendar-latitude 55.9533 + calendar-longitude -3.1883 + calendar-left-margin 4 + calendar-location-name "Edinburgh, Scotland" + calendar-mark-diary-entries-flag t + calendar-week-start-day 1 ;; 0 sunday + calendar-date-echo-text '(format "ISO date: %s" + (calendar-iso-date-string + (list month day year)))) + +(setq calendar-holidays + '((holiday-fixed 1 1 "New Year's Day") + (holiday-fixed 4 1 "April Fools' Day") + (holiday-float 5 0 2 "Mother's Day") + (holiday-fixed 3 19 "Father's Day") + (holiday-float 11 4 4 "Thanksgiving") + (holiday-fixed 12 25 "Christmas") + (holiday-chinese-new-year) + (solar-equinoxes-solstices) + (holiday-sexp calendar-daylight-savings-starts + (format "Daylight Saving Time Begins %s" + (solar-time-string + (/ calendar-daylight-savings-starts-time + (float 60)) + calendar-standard-time-zone-name))) + (holiday-sexp calendar-daylight-savings-ends + (format "Daylight Saving Time Ends %s" + (solar-time-string + (/ calendar-daylight-savings-ends-time + (float 60)) + calendar-daylight-time-zone-name))))) + +(add-to-list 'display-buffer-alist + `(,(regexp-quote diary-fancy-buffer) + (display-buffer-at-bottom) + (window-parameters (mode-line-format . none)) + (window-height . fit-window-to-buffer))) + +(defun jao-diary--select () + (switch-to-buffer diary-fancy-buffer)) + +(add-hook 'diary-fancy-display-mode-hook #'jao-diary--select) +(setq org-calendar-insert-diary-entry-key nil + org-agenda-diary-file 'diary-file) + +;;;; winttr +(defun jao-weather (&optional wide) + (interactive "P") + (if (not wide) + (message "%s" + (jao-shell-string "curl -s" + "https://wttr.in/?format=%l++%m++%C+%c+%t+%w++%p")) + (jao-afio-goto-scratch) + (if-let ((b (get-buffer "*wttr*"))) + (progn (pop-to-buffer b) + (term-send-string (get-buffer-process nil) "clear;curl wttr.in\n")) + (jao-exec-in-term "curl wttr.in" "*wttr*")))) +(global-set-key (kbd "<f5>") #'jao-weather) + +;;; Files, dired and scratch buffer +;;;; so-long +(setq large-file-warning-threshold (* 200 1024 1024)) + +;; (use-package so-long +;; :ensure t +;; :diminish) +;; (global-so-long-mode 1) + +;;;; persistent scratch +(use-package persistent-scratch + :ensure t + :config (persistent-scratch-setup-default)) + +;;;; dired +(use-package dired + :init + (setq dired-recursive-deletes 'top + dired-recursive-copies 'top + dired-listing-switches "-alhF --group-directories-first" + ls-lisp-dirs-first t + dired-dwim-target t + dired-kill-when-opening-new-dired-buffer t + dired-mouse-drag-files t + wdired-create-parent-directories t + dired-guess-shell-alist-user + '(;; ("\\.\\(png\\|jpe?g\\|tiff\\)" "feh" "xdg-open") + ("\\.\\(mp[34]\\|m4a\\|ogg\\|flac\\|webm\\|mkv\\)" "mpv" "xdg-open") + (".*" "xdg-open"))) + + (put 'dired-find-alternate-file 'disabled nil) + :hook (dired-mode . turn-on-gnus-dired-mode) + :bind (:map dired-mode-map + ("C-c C-r" . wdired-change-to-wdired-mode) + ("C-M-m" . gnus-dired-attach))) + +(use-package dired-x :demand t) + +(use-package find-dired + :init (setq find-ls-option '("-print0 | xargs -0 ls -ld" . "-ld")) + :bind ("C-c D" . find-name-dired)) + +(use-package dired-duplicates :ensure t) + +;;; General editing +;;;; automatically uncompress +(require 'jka-compr) +(auto-compression-mode 1) + +;;;; wgrep +(use-package wgrep :ensure t) +(require 'wgrep) + +;;;; executable scripts +(add-hook 'after-save-hook + 'executable-make-buffer-file-executable-if-script-p) + +;;;; spaces, tabs, kill +(setq kill-whole-line t) +(setq-default indent-tabs-mode nil) +(setq indent-tabs-width 4) +(setq-default default-tab-width 8) +(setq kill-read-only-ok t) +(setq view-read-only nil) + +;;;; whitespace and filling column +(add-hook 'write-file-functions 'delete-trailing-whitespace) +(setq-default indicate-empty-lines nil) +(setq-default fill-column 78) +(setq comment-auto-fill-only-comments nil) + +(use-package whitespace + :init + (setq whitespace-style '(face tabs trailing ;; lines-tail + empty missing-newline-at-eof) + whitespace-line-column 80) + :hook (prog-mode . whitespace-mode) + :diminish) + +(use-package display-fill-column-indicator + :init (setq-default display-fill-column-indicator-column 80) + :hook (prog-mode . display-fill-column-indicator-mode)) + +;;;; visible mode +(use-package visible-mode + :bind (("s-v" . visible-mode))) + +;;;; changes +(use-package goto-chg + :ensure t + :bind (("C-." . goto-last-change) + ("C-c ." . goto-last-change) + ("C-c ," . goto-last-change-reverse))) + +;;;; eval-and-replace +(defun fc-eval-and-replace () + "Replace the preceding sexp with its value." + (interactive) + (backward-kill-sexp) + (condition-case nil + (prin1 (eval (read (current-kill 0))) + (current-buffer)) + (error (message "Invalid expression") + (insert (current-kill 0))))) + + (global-set-key "\C-ce" 'fc-eval-and-replace) + +;;;; skeletons and autoinsert +(use-package autoinsert + :config + (setq auto-insert-directory "~/.emacs.d/autoinsert/" + auto-insert t + auto-insert-query t) + (setf (alist-get 'html-mode auto-insert-alist nil t) nil)) +(add-hook 'find-file-hook #'auto-insert) + +(use-package jao-skel + :demand t + :config + (defvar flymake-allowed-file-name-masks nil) + (require 'jao-skel-geiser) + (require 'jao-skel-lisp) + (require 'jao-skel-haskell) + (require 'jao-skel-latex)) + +;;; Completion and search +;;;; completion +(require 'jao-custom-completion) + +;;;; recoll +(jao-load-path "consult-recoll") + +(defun jao-recoll-format (title url _mtype) + (let* ((u (replace-regexp-in-string "file://" "" url)) + (u (replace-regexp-in-string "/home/jao/" "" u)) + (u (replace-regexp-in-string + "\\(doc\\|org/doc\\|.emacs.d/gnus/Mail\\|var/mail\\)/" "" u))) + (format "%s (%s)" ;; "%s (%s, %s)" + title + (propertize u 'face 'jao-themes-f01) + ;; (propertize mtype 'face 'jao-themes-f01) + ))) + +(defun jao-recoll-open-html (file &optional _page) + (if (string-match-p "\.epub\\'" file) + (find-file file) + (jao-afio-goto-www) + (if jao-afio-use-w3m (w3m-find-file file) (eww-open-file file)))) + +(defun jao-recoll-open-pdf (file &optional page) + (if (string-match-p "/gnus/Mail/" file) + (funcall (or (cdr (assoc-string "message/rfc822" consult-recoll-open-fns)) + 'find-file) + file + page) + (jao-open-doc file page))) + +(defun jao-recoll-consult-messages () + (interactive) + (consult-recoll "mime:message ")) + +(defun jao-recoll-consult-docs () + (interactive) + (consult-recoll (format "dir:%s/doc " jao-org-dir))) + +(defun jao-recoll-consult-notes () + "Use consult-recoll to search notes." + (interactive) + (consult-recoll (format "dir:%s " jao-org-notes-dir))) + +(use-package consult-recoll + :commands (consult-recoll consult-recoll-embark-setup) + :init (setq consult-recoll-open-fns + '(("application/pdf" . jao-recoll-open-pdf) + ("text/html" . jao-recoll-open-html)) + consult-recoll-search-flags 'query + consult-recoll-inline-snippets t + consult-recoll-format-candidate #'jao-recoll-format) + :config + (consult-customize consult-recoll :preview-key 'any) + + (transient-define-prefix jao-transient-recoll () + ["Consult recoll queries" + ("r" "everywhere" consult-recoll) + ("n" "on notes" jao-recoll-consult-notes) + ("d" "on docs" jao-recoll-consult-docs) + ("m" "on messages" jao-recoll-consult-messages)]) + + :bind (("s-r" . #'jao-transient-recoll))) + +(with-eval-after-load "embark" (consult-recoll-embark-setup)) + +;;; Buffers +;;;; cursor and mark +(transient-mark-mode -1) +(blink-cursor-mode -1) +(setopt cursor-in-non-selected-windows nil + visible-cursor nil) ;; stop blinking in xterm + +;;;; uniquifiy +(require 'uniquify) +(setq uniquify-buffer-name-style 'forward + uniquify-trailing-separator-p t) + +;;;; autosave +(setq auto-save-list-file-prefix "~/.emacs.d/auto-save-list/.saves-" + auto-save-no-message t + kill-buffer-delete-auto-save-files t) + +(setq lock-file-name-transforms + '(("\\`/.*/\\([^/]+\\)\\'" "/tmp/emacs-lock/\\1" t))) + +;;;; autorevert +(setq auto-revert-check-vc-info nil) +(setq auto-revert-verbose nil) +(setq auto-revert-avoid-polling t) +(setq auto-revert-mode-text "") +(require 'autorevert) +(global-auto-revert-mode 1) + +;;;; attached buffers +(defun jao-display-buffer-below-selected (buffer alist) + (delete-other-windows-vertically) + (display-buffer-below-selected buffer alist)) + +(defun jao-attached-buffer-entry (name-rx height) + `(,name-rx (display-buffer-reuse-window + jao-display-buffer-below-selected) + (window-height . ,(or height 25)))) + +(defmacro jao-with-attached-buffer (name-rx height &rest body) + (declare (indent defun)) + `(let ((display-buffer-alist '(,(jao-attached-buffer-entry name-rx height)))) + ,@body)) + +(defun jao-define-attached-buffer (name-rx &optional height) + (add-to-list 'display-buffer-alist + (jao-attached-buffer-entry name-rx height))) + +(jao-define-attached-buffer "\\*eldoc\\( .*\\)?\\*" 0.33) + +;;;; same mode +(defun jao-buffer-same-mode (&optional mode pre-fn switch-fn) + (interactive) + (let* ((mode (or mode major-mode)) + (modes (if (symbolp mode) (list mode) mode)) + (pred `(lambda (b) + (let ((b (get-buffer (if (consp b) (car b) b)))) + (member (buffer-local-value 'major-mode b) + ',modes)))) + (buff (read-buffer "Buffer: " nil t pred))) + (when pre-fn (funcall pre-fn)) + (if switch-fn (funcall switch-fn buff) (switch-to-buffer buff)))) + +(defun jao-buffer-same-mode-cmd (&optional pop) + (interactive "P") + (jao-buffer-same-mode nil nil (and pop #'pop-to-buffer))) + +(global-set-key (kbd "C-c C-b") #'jao-buffer-same-mode-cmd) + +;;;; projects +(use-package project :demand t) +(global-set-key "\C-xp" 'jao-prev-window) + +;;;; buffer quit function (the triple ESC) +(setq buffer-quit-function (lambda () t)) + + +;;;; redisplay escape hatch +;; (setq max-redisplay-ticks 2250000) +;;;; scrolling +(if window-system + (setq scroll-preserve-screen-position 'always + scroll-conservatively most-positive-fixnum + scroll-margin 0 + scroll-step 2 + redisplay-skip-fontification-on-input t) + (setq scroll-preserve-screen-position nil + scroll-conservatively 0 + scroll-margin 0 + scroll-step 1 + redisplay-skip-fontification-on-input nil)) + +;;; Windows +;;;; splitting and switch +(setq split-height-threshold 80 + split-width-threshold 144 + display-buffer-avoid-small-windows 20) + +(setq switch-to-buffer-preserve-window-point nil + switch-to-buffer-obey-display-actions t + switch-to-prev-buffer-skip 'this) ;; don't switch to a + ;; buffer already visible in + ;; this frame + +(global-set-key (kbd "C-x _") #'delete-other-windows-vertically) + +;;;; first window +(defvar jao-first-window--from nil) + +(defun jao-first-window () + "Go to previous windows in frame, remembering where we were." + (interactive) + (let ((cb (current-buffer))) + (if (eq (get-buffer-window cb) (select-window (frame-first-window))) + (when jao-first-window--from (pop-to-buffer jao-first-window--from)) + (setq jao-first-window--from cb)))) + +(global-set-key (kbd "s-a") #'jao-first-window) +(global-set-key (kbd "M-a") #'jao-first-window) + +;;;; window navigation (custom) +(defun jao-nth-window (n) + (if (zerop n) + 'jao-first-window + `(lambda () + (interactive) + (select-window (frame-first-window)) + (dotimes (x ,n) (other-window 1))))) + +(defun jao-prev-window () + "Go to previous window." + (interactive) + (other-window -1)) + +(defvar jao-prev-window-repeat-map + (let ((map (make-sparse-keymap))) + (define-key map "p" 'jao-prev-window) + (define-key map "P" (lambda () + (interactive) + (setq repeat-map 'jao-prev-window-repeat-map) + (other-window 1))) + map) + "Keymap to repeat `prev-window' key sequences. Used in `repeat-mode'.") + +(put 'jao-prev-window 'repeat-map jao-prev-window-repeat-map) + +(mapc (lambda (n) + (global-set-key (format "\C-c%s" (1+ n)) (jao-nth-window n))) + '(0 1 2 3 4 5 6 7 8)) + +;; transposing windows +(defun transpose-windows (arg) + "Transpose the buffers shown in two windows." + (interactive "p") + (let ((selector (if (>= arg 0) 'next-window 'previous-window))) + (while (/= arg 0) + (let ((this-win (window-buffer)) + (next-win (window-buffer (funcall selector)))) + (set-window-buffer (selected-window) next-win) + (set-window-buffer (funcall selector) this-win) + (select-window (funcall selector))) + (setq arg (if (> arg 0) (1- arg) (1+ arg)))))) + +(define-key ctl-x-4-map (kbd "t") 'transpose-windows) + +;;;; winner mode +(winner-mode 1) + +;;; Frames +;;;; frame geometry +(setq frame-resize-pixelwise t) +(modify-all-frames-parameters + `((horizontal-scroll-bars . nil) + (vertical-scroll-bars . nil) + (scroll-bar-width . 0) + (menu-bar . nil))) + +;;;; frame layout, title, etc +(setq frame-title-format '("%b - emacs")) +(use-package fringe) +(fringe-mode) + +(menu-bar-mode -1) + +;; (setting it to nil avoids mouse wrapping after other-frame) +(setq focus-follows-mouse (and window-system t)) + +(use-package scroll-bar) +(set-scroll-bar-mode nil) +(use-package tool-bar) +(tool-bar-mode -1) + +(defalias 'jao-trisect 'jao-afio-trisect) + +(defun jao-bisect () + (interactive) + (jao-trisect t) + (other-window 1) + (delete-window)) + +;;;; afio +(use-package jao-afio + :demand t + :config (jao-afio-setup (not window-system)) + :bind (("C-c f" . 'jao-afio-goto-main) + ("C-c g" . 'jao-afio-goto-mail) + ("C-c w" . 'jao-afio-goto-www) + ("C-c z" . 'jao-afio-goto-docs) + ("C-c t" . 'jao-afio-goto-chats) + ("C-c 0" . 'jao-afio-goto-scratch) + ("M-o" . 'jao-afio-toggle))) +(add-hook 'jao-afio-switch-hook 'jao-minibuffer-refresh t) + +(defun jao-current--frame-id () + (propertize (cond ((and (fboundp 'jao-exwm-enabled) + (jao-exwm-enabled-p) + (not (bound-and-true-p jao-exwm--use-afio)) + (boundp 'exwm-workspace-current-index)) + (format "F%s" exwm-workspace-current-index)) + (t jao-afio-use-frames (or (jao-afio-frame-name) "")) + (t (format "%s" (or (jao-afio-frame-no) "")))) + 'face 'font-lock-warning-face)) + +(jao-minibuffer-add-variable '(jao-current--frame-id) 100) + +;;; Writing and writing modes +;;;; copyright notices +(setq copyright-year-ranges t) +(add-hook 'write-file-functions 'copyright-update) + +;;;; indent on yank +(defvar jao-auto-indent-modes + '(emacs-lisp-mode ;; clojure-mode + scheme-mode objc-mode + tuareg-mode c-mode c++-mode + tcl-mode sql-mode + perl-mode cperl-mode + java-mode jde-mode + LaTeX-mode TeX-mode)) + +(defadvice yank (after indent-region activate) + (if (member major-mode jao-auto-indent-modes) + (indent-region (region-beginning) (region-end) nil))) + +;;;; org mode +(require 'jao-custom-org) + +;;;; blog +(require 'jao-custom-blog) + +;;;; text-ish mode settings +;; SENTENCES separated by just one space +(setq sentence-end "[.?!][]\"')]*\\($\\|\t\\| \\)[ \t\n]*") +(setq sentence-end-double-space t) +;; copy rectangle +(defun kill-rectangle-save (start end) + "Save the region-rectangle as the last killed one." + (interactive "r") + (require 'rect) ; Make sure killed-rectangle is defvar'ed. + (setq killed-rectangle (extract-rectangle start end)) + (message "Rectangle saved")) + +;; text mode, autoinserts and write hooks +(setq default-major-mode 'text-mode) +(add-hook 'text-mode-hook 'turn-on-auto-fill) + +;;;; dictionaries +(use-package dictionary + :init (setq dictionary-use-single-buffer t + dictionary-server "localhost") + :commands (dictionary-search + dictionary-match-words + dictionary-lookup-definition + dictionary + dictionary-mouse-popup-matching-words + dictionary-popup-matching-words + dictionary-tooltip-mode + global-dictionary-tooltip-mode) + :bind (("C-c d" . dictionary-search))) + +(setq ispell-personal-dictionary + (expand-file-name "~/.emacs.d/ispell.dict")) + +(use-package reverso + :ensure t + :init (setq reverso-languages '(english spanish french german))) + +;; (use-package wordreference +;; :ensure t +;; :init (setq wordreference-target-lang "es" +;; wordreference-source-lang "en") +;; :bind (("C-c D" . wordreference-search))) + +;;;; markdown +(use-package markdown-mode + :ensure t + :init (setq markdown-command '("pandoc" "--from=markdown" "--to=html5") + markdown-asymmetric-header t + markdown-enable-wiki-links t + markdown-wiki-link-fontify-missing t + markdown-enable-math nil ;; toggle with M-x markdown-toggle-math + markdown-link-space-sub-char "-" + markdown-gfm-additional-languages '("whizzml" "flatline") + markdown-hide-urls t + markdown-hide-markup nil + markdown-fontify-code-blocks-natively t + markdown-fontify-whole-heading-line t + markdown-unordered-list-item-prefix t) + :hook (markdown-mode . outline-minor-mode) + :config + (dolist (u '("doc" "message" "notmuch")) + (add-to-list 'markdown-uri-types u)) + (use-package markdown-toc :ensure t)) + +;; used by markdown mode to edit code blocks +(use-package edit-indirect :ensure t) + +(dolist (ext '("\\.md$" "\\.markdown$")) + (add-to-list 'auto-mode-alist (cons ext 'markdown-mode))) + +;;;; TeX and LaTex +(use-package tex-site + :ensure auctex + :init + (setq TeX-auto-save t) + (setq TeX-parse-self t) + (setq TeX-a4-paper t) + (setq TeX-auto-local ".tex-auto-local") + ;; Preferred view format: dvi, ps, pdf, pdfs + (setq TeX-view-format "pdf") + (setq-default TeX-master "../main") ; nil to ask + (setq TeX-view-program-selection + ;; '((output-dvi "open") + ;; (output-pdf "open") + ;; (output-html "open")) + '(((output-dvi has-no-display-manager) "dvi2tty") + ((output-dvi style-pstricks) "dvips and gv") + (output-dvi "xdvi") + (output-pdf "xdg-open") + (output-html "xdg-open"))) + ;; to make RefTeX faster for large documents, try these: + (setq reftex-enable-partial-scans t) + (setq reftex-save-parse-info t) + (setq reftex-use-multiple-selection-buffers t) + ;; to integrate with AUCTeX + (setq reftex-plug-into-AUCTeX t) + (setq reftex-ref-style-default-list + '("Hyperref" "Varioref" "Fancyref")) + (setq LaTeX-command "latex -shell-escape") + (setq LaTeX-biblatex-use-Biber t) + (setq bibtex-dialect 'biblatex) + :config + (add-hook 'TeX-after-compilation-finished-functions 'TeX-revert-document-buffer) + (add-hook 'LaTeX-mode-hook 'turn-on-reftex)) + +;;; Browsing +;;;; variables +(defvar jao-browse-doc-use-emacs-p t) +(defvar jao-browse-url-function nil) +(defvar jao-browse-url-external-function nil) + +;;;; url around point +(defun jao-url-around-point (&optional current-url) + (or (and (fboundp 'w3m-anchor) (w3m-anchor)) + (shr-url-at-point nil) + (ffap-url-at-point) + (thing-at-point 'url) + (when current-url + (or (and (fboundp 'w3m-anchor) (w3m-anchor)) + (and (derived-mode-p 'eww-mode) (plist-get eww-data :url)))))) + +(defun jao--url-prompt (&optional prefix) + (let* ((def (jao-url-around-point t)) + (prompt (concat prefix "URL" (if def (format " (%s): " def) ": ")))) + (read-string prompt nil nil def))) + +;;;; downloads using wget +(defun jao-wget--get-title (filename) + (or (and (derived-mode-p 'w3m-mode) (w3m-current-title)) + (plist-get eww-data :title) + (and (not (string-blank-p (or filename ""))) + (subst-char-in-string ?- ? (capitalize (file-name-base filename)))))) + +(defun jao-wget (url &optional user pwd) + "Download URL using wget and kill a link for an org note." + (let* ((def (file-name-nondirectory url)) + (pmt (format "Save %s to: " url)) + (read-file-name-function nil) + (dest (expand-file-name + (read-file-name pmt jao-sink-dir nil nil def))) + (title (jao-wget--get-title dest)) + (src-url (or (jao-url-around-point t) (file-name-directory url))) + (auth (when (and user pwd) + `(,(format "--http-user=%s" user) + ,(format "--http-password=%s" pwd)))) + (lnk (concat "doc:" (file-name-nondirectory dest)))) + (switch-to-buffer-other-window (get-buffer-create "*downloads*")) + (erase-buffer) + (kill-new (format "%s (from %s)" + (org-link-make-string lnk title) + (org-link-make-string src-url "here"))) + (apply 'make-term `("downloads" "wget" nil ,@auth "-O" ,dest ,url)))) + +(defun jao-download (url &optional pws) + "Download URL using wget" + (interactive (list (jao--url-prompt))) + (when url + (let ((usr (and pws (read-string "Login name: "))) + (pwd (and pws (read-passwd "Password: ")))) + (jao-wget url usr pwd)))) + +(with-eval-after-load "embark" + (define-key embark-url-map (kbd "d") #'jao-download)) + +;;;; video +(defvar jao-video--url-rx + (format "^https?://\\(?:www\\.\\)?%s/.+" + (regexp-opt '("youtu.be" + "youtube.com" + "blip.tv" + "vimeo.com" + "infoq.com") + t))) + +(defvar jao-video--ext-rx + (format "^https?://.+/.+\\.%s" (regexp-opt '("mp3" "webm" "mp4")))) + +(defun jao-video--url-p (url) + (or (string-match-p jao-video--url-rx url) + (string-match-p jao-video--ext-rx url))) + +(defun jao--remote-run (url prg) + (let ((args (format "%s %s" prg (shell-quote-argument url)))) + (start-process-shell-command prg nil args))) + +(defun jao--mpv (url &rest _args) (jao--remote-run url "mpv")) +(defun jao--vlc (url &rest _args) (jao--remote-run url "vlc")) + +(defvar jao--video-player 'jao--mpv) + +(defun jao-view-video (url) + "Tries to stream a video from the current or given URL" + (interactive (list (jao--url-prompt "Video "))) + (when url (funcall jao--video-player url))) + +(defun jao-maybe-view-video (url &rest _ignored) + (interactive) + (if (y-or-n-p "View video (y) or web page (n)? ") + (jao-view-video url) + (funcall jao-browse-url-function url))) + +;;;; web browsers +(defun jao-www--buffer-p (b) + (with-current-buffer b + (or (derived-mode-p 'w3m-mode 'eww-mode) + (and (boundp 'exwm-class-name) + (member exwm-class-name '("vlc" "mpv")))))) + +(require 'jao-custom-eww) +;; (require 'jao-custom-w3m) + +;;;; browse-url +(require 'browse-url) + +(setq browse-url-generic-program "~/bin/firehog") + +(defun jao-browse-with-external-browser (&rest url) + "Browse with external hogging" + (interactive "s") + (let ((url (or (car url) (jao-url-around-point)))) + (if (not url) + (message "No URL at point") + (cond ((and (jao-exwm-enabled-p) (fboundp 'jao-exwm-firefox)) + (jao-exwm-firefox)) + (jao-river-enabled (jao-river-to-ws 2)) + (jao-sway-enabled (jao-sway-firefox))) + (browse-url-generic url)))) +(setq jao-browse-url-external-function 'jao-browse-with-external-browser) + +(defun jao--fln (url) + (shell-quote-argument + (if (string-match "^[^:]*:/*?\\(/?[^/].*\\)" url) + (match-string-no-properties 1 url) + url))) + +(defun jao--browse-doc (url &rest _ignored) + (let* ((url (substring-no-properties url)) + (file (jao--fln url))) + (when file + (unless (file-exists-p file) + (error "File %s does not exist" file)) + (jao-open-doc file)))) + +(defun jao--make-file-rx (exts) + (format "file:/?/?.+\\.%s$" (regexp-opt exts))) + +(defvar jao--see-exts (jao--make-file-rx '("jpg" "jpeg" "png"))) + +(defvar jao--doc-exts + (jao--make-file-rx '("ps" "ps.gz" "pdf" "dvi" "djvu" "chm"))) + +(defvar jao-browse-url-wget-exts + '("ps" "pdf" "dvi" "djvu" "zip" "gz" "tgz")) + +(defvar jao-browse-external-domains + '("github.com" "gitlab.com" "slack.com" "meet.google.com" "docs.google.com" + "x.com" "twitter.com" "t.com" "linkedin.com" "bigml.com" "slack.com")) + +(defvar jao-browse--external-regexp + (format "https?://.*%s\\(/.*\\)?" + (regexp-opt jao-browse-external-domains))) + +(defun jao-wget--regexp () + (concat "^http[s]?://.+\\(\\." + (mapconcat 'identity jao-browse-url-wget-exts "\\|\\.") + "\\)\\'")) + +(defun jao--see (url &rest _r) + (start-process-shell-command "see" nil (format "see %s" (jao--fln url)))) + +(defun jao--find-file-other-window (url &rest _) + (find-file-other-window (jao--fln url))) + +(defvar jao-browse--sound-rx + (format "^https?://.*/.*\\.%s" (regexp-opt '("mp3" "flv")))) + +(defun jao-browse-play-sound-url (url &rest _) + (jao-mpc-add-or-play-url url)) + +(defun jao-browse-url-browse (&rest args) + (apply jao-browse-url-function args)) + +(setq browse-url-handlers + `((jao-video--url-p . jao-maybe-view-video) + (,jao--doc-exts . jao--browse-doc) + (,jao--see-exts . jao--see) + ("^file://?.+\\.html?$" . ,jao-browse-url-function) + ("^file://?" . jao--find-file-other-window) + (,jao-browse--external-regexp . ,jao-browse-url-external-function) + ("^https?://.*\\.gotomeeting\\.com\\.*" . browse-url-chrome) + (,jao-browse--sound-rx . jao-browse-play-sound-url) + (,(jao-wget--regexp) . jao-download) + ("." . jao-browse-url-browse))) + +(when (< emacs-major-version 28) + (setf (alist-get 'jao-video--url-p browse-url-handlers nil t) nil) + (setq browse-url-browser-function browse-url-handlers)) + +;;;; subscribe to rss using r2e +(autoload 'View-quit "view") + +(defun jao-rss--find-url () + (save-excursion + (when (derived-mode-p 'w3m-mode 'eww-mode) + (if (fboundp 'w3m-view-source) (w3m-view-source) (eww-view-source))) + (goto-char (point-min)) + (when (re-search-forward + "type=\"application/\\(?:atom\\|rss\\)\\+xml\" +" nil t) + (let ((url (save-excursion + (when (re-search-forward + "href=\"\\([^\n\"]+\\)\"" nil t) + (match-string-no-properties 1)))) + (title (when (re-search-forward + "\\(?:title=\"\\([^\n\"]+\\)\" +\\)" nil t) + (match-string-no-properties 1)))) + (cond ((derived-mode-p 'w3m-view-mode) (w3m-view-source)) + ((string-match-p ".*\\*eww-source\\b.*" (buffer-name)) + (View-quit))) + (when url (cons url (or title ""))))))) + +(defun jao-rss2e-append (name url mbox) + (with-current-buffer (find-file-noselect "~/.config/rss2email.cfg") + (goto-char (point-max)) + (insert "[feed." name "]\nurl = " url) + (insert "\nto = " mbox "+" name "@localhost") + (insert "\nmaildir-mailbox = " mbox "\n\n") + (save-buffer))) + +(defun jao-rss--feeds-dirs () + (mapcar (lambda (d) (cadr (split-string d "\\."))) + (directory-files "~/.emacs.d/gnus/Mail/" nil "^feeds"))) + +(defun jao-rss-subscribe (url) + "Subscribe to a given RSS URL. If URL not given, look for it." + (interactive (list (or (jao-url-around-point) + (jao-rss--find-url) + (read-string "Feed URL: ")))) + (let* ((url+title (ensure-list url)) + (url (car url+title)) + (title (cdr url+title))) + (unless url (error "No feeds found")) + (let ((url (if (string-match "^feed:" url) (substring url 5) url))) + (when (y-or-n-p (format "Subscribe to <%s>? " url)) + (let* ((name (read-string "Feed name: " title)) + (cats (cons "prog" (jao-notmuch--subtags "feeds"))) + (cat (completing-read "Category: " cats nil t)) + (subs (format "r2e add %s '%s' feeds.%s@localhost" + name url cat))) + ;; (jao-rss2e-append name url cat) + (shell-command-to-string subs) + (shell-command (format "r2e run %s" name))))))) + +;;; PDFs and other docs +;;;; open pdfs +(use-package jao-pdf :demand t) + +(use-package saveplace-pdf-view + :ensure t + :demand t + :after doc-view) + +(setq jao-open-doc-fun 'jao-find-or-open) +(setq jao-org-open-pdf-fun 'jao-find-or-open) + +(defun jao-zathura-open (file page) + (let ((id (jao-x11-search-window (jao-pdf-zathura-title-rx file)))) + (if (string-blank-p id) + (progn + (when jao-xmonad-enabled (jao-x11-goto-ws 2)) + (jao-shell-exec (jao-pdf-zathura-open-cmd file page))) + (let* ((page (if page (format " && xdotool type %dg" page) "")) + (cmd (format "xdotool windowactivate %s%s" id page))) + (jao-shell-exec cmd t))))) + +(defun jao-x11-zathura-goto-org (&optional title no-ask) + (let ((title (or title (jao-shell-string "xdotool" + "getactivewindow" + "getwindowname")))) + (jao-org-open-from-zathura title no-ask))) + +(defun jao-find-or-open (file &optional page height) + (cond ((and jao-browse-doc-use-emacs-p window-system) + (let* ((buffs (buffer-list)) + (b (catch 'done + (while buffs + (when (string-equal (buffer-file-name (car buffs)) file) + (throw 'done (car buffs))) + (setq buffs (cdr buffs)))))) + (jao-afio-goto-docs) + (if b (pop-to-buffer b) (find-file file)) + (when page (jao-doc-view-goto-page page height)))) + (jao-river-enabled (jao-river-open-with-zathura file page)) + (jao-sway-enabled (jao-sway-open-with-zathura file page)) + (t (jao-zathura-open file page)))) + +(defun jao-open-doc (&optional file page height) + (interactive) + (when-let (file (or file + (read-file-name "Document: " + (concat jao-org-dir "/doc/")))) + (funcall jao-open-doc-fun file page height))) + +(defun jao-select-pdf () + (interactive) + (jao-buffer-same-mode '(pdf-view-mode doc-view-mode) + #'jao-afio-goto-docs)) + +(defun jao-open-with-zathura () + (interactive) + (when-let (f buffer-file-name) + (let ((p (jao-doc-view-current-page))) + (cond (jao-river-enabled (jao-river-open-with-zathura f p)) + (jao-sway-enabled (jao-sway-open-with-zathura f p)) + (t (jao-zathura-open f p)))))) + +;; doc:// links for browse-url +(defun jao-open-doc-url (url &rest _) + (when (string-match "doc://\\([^?]+\\)\\(\\?.*\\)?" url) + (let ((file (match-string 1 url)) + (page (when-let* ((qs (match-string 2 url)) + (long (> (length qs) 1)) + (ps (url-parse-query-string (substring qs 1))) + (pn (cadr (assoc "page" ps)))) + (string-to-number pn)))) + (jao-open-doc (expand-file-name (concat "doc/" file) jao-org-dir) page)))) + +(add-to-list 'browse-url-handlers (cons "^doc://.+" 'jao-open-doc-url)) + +;;;; doc-view +(use-package doc-view + :init + (setq doc-view-cache-directory "~/.emacs.d/cache/docview" + doc-view-resolution 110 + doc-view-continuous t + doc-view-conversion-refresh-interval 1 + doc-view-mupdf-use-svg t) + :hook ((doc-view-mode . jao-doc-session-mark)) + :bind (:map doc-view-mode-map + ("j" . doc-view-next-line-or-next-page) + ("J" . doc-view-scroll-up-or-next-page) + ("k" . doc-view-previous-line-or-previous-page) + ("K" . doc-view-scroll-down-or-previous-page) + ("z" . jao-open-with-zathura))) + +(use-package jao-doc-session :demand t) + +(use-package jao-doc-view + :demand t + :bind (:map doc-view-mode-map + ("b" . jao-doc-view-back) + ("B" . jao-doc-view-forward) + ("S" . jao-doc-session-save) + ("u" . jao-doc-view-visit-url))) + +;;;; epub +(use-package nov + :ensure t + :after doc-view + :init (setq nov-variable-pitch t + nov-text-width nil) + :config + (add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode)) + (defun jao-nov-register-session () + (jao-doc-session-mark nov-file-name)) + (add-hook 'nov-mode-hook #'jao-nov-register-session)) + +;;;; transient +(defun jao-org-pdf-goto-org-linking () + (interactive) + (jao-org-pdf-goto-org 4)) + +(jao-transient-major-mode doc-view + ["Notes" + ("o" "notes file" jao-org-pdf-goto-org) + ("O" "notes file, linking" jao-org-pdf-goto-org-linking)] + ["Navigation" + ("b" "back jump" jao-doc-view-back) + ("B" "forward jump" jao-doc-view-back) + ("u" "visit URL" jao-doc-view-visit-url)] + ["Slices" + ("cb" "bounding box" doc-view-set-slice-from-bounding-box) + ("cm" "using mouse" doc-view-set-slice-using-mouse)] + ["Session" + ("s" "load session" jao-afio-open-pdf-session) + ("S" "save session" jao-doc-session-save) + ("d" "visit cache directory" doc-view-dired-cache)] + ["External viewers" + ("z" "open with zathura" jao-open-with-zathura)]) + +(with-eval-after-load "pdf-view" + (jao-transient-major-mode pdf-view + ["Notes" + ("o" "notes file" jao-org-pdf-goto-org) + ("O" "notes file, linking" jao-org-pdf-goto-org-linking)] + ["Navigation" + ("b" "back jump" pdf-history-backward) + ("f" "forward jump" pdf-history-forward)] + ["Session" + ("s" "load session" jao-afio-open-pdf-session) + ("S" "save session" jao-doc-session-save)] + ["External viewers" + ("z" "open with zathura" jao-open-with-zathura)])) + +;; (transient-get-suffix 'jao-transient-pdf-view '(0 -1)) + +;;; Email +(require 'jao-custom-email) + +;;; Shells and terms +;;;; shell modes +(setq sh-basic-offset 2) +;; translates ANSI colors into text-properties, for eshell +(autoload 'ansi-color-for-comint-mode-on "ansi-color" nil t) +(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on) +(defvar jao-use-vterm nil) +(defvar jao-use-eat nil) + +(add-to-list 'display-buffer-alist + '("\\*Async Shell Command\\*" (display-buffer-no-window))) + +;;;; eat +(use-package eat + :ensure t + :commands jao-exec-in-term + :init (setq jao-use-eat t + eat-kill-buffer-on-exit t + eat-enable-yank-to-terminal t) + :hook ((eshell-mode . eat-eshell-mode) + (eshell-mode . eat-eshell-visual-command-mode)) + :diminish ((eat-eshell-mode . ""))) + +;;;; term +(defvar-local jao-term--cmd nil) + +(defun jao-term--find (cmd) + (seq-find (lambda (b) + (with-current-buffer b + (and (derived-mode-p 'eat-mode 'term-mode 'vterm-mode) + (string= (or jao-term--cmd "") cmd)))) + (buffer-list))) + +(defun jao-exec-in-term (cmd &optional name) + (interactive "SCommand") + (require 'eat nil t) + (cond ((and jao-use-vterm (fboundp 'jao-exec-in-vterm)) + (jao-exec-in-vterm cmd name)) + (jao-use-eat (let ((eat-term-name "xterm-256color")) + (with-current-buffer (eat cmd t) + (setq-local jao-term--cmd cmd)))) + (t (ansi-term "bash" name) + (set-process-sentinel (get-buffer-process (current-buffer)) + (lambda (process event) + (when (string= event "finished\n") + (kill-buffer (process-buffer process))))) + (setq-local jao-term--cmd cmd) + (term-send-string nil (concat cmd " ; exit\n"))))) + +(defmacro jao-def-exec-in-term (name cmd &rest prelude) + `(defun ,(intern (format "jao-term-%s" name)) (&optional term) + (interactive "P") + ,@prelude + (let ((jao-use-vterm (if term (not jao-use-vterm) jao-use-vterm))) + (if-let ((b (jao-term--find ,cmd))) + (pop-to-buffer b) + (jao-exec-in-term ,cmd ,(format "*%s*" name)))))) + +;;;; eshell +;;;;; basic custom +(use-package eshell + :init + (setq eshell-directory-name "~/.emacs.d/eshell" + eshell-hist-ignoredups 'erase + eshell-history-size 1000000 + eshell-error-if-no-glob nil) + + (defun jao-eshell--outline () + (setq-local outline-regexp eshell-prompt-regexp)) + + :config (setq eshell-prompt-repeat-map nil) + + :hook (eshell-mode . jao-eshell--outline)) + +;;;;; colors +(autoload 'ansi-color-apply "ansi-color") +;; (add-hook 'eshell-preoutput-filter-functions 'ansi-color-filter-apply) +(add-hook 'eshell-preoutput-filter-functions 'ansi-color-apply) + +(use-package eshell-syntax-highlighting + :after esh-mode + :ensure t + :config + ;; Enable in all Eshell buffers. + (eshell-syntax-highlighting-global-mode +1)) + +;;;;; visual commands +(require 'em-term) + +(dolist (c '("editor" "more" "wget" "dict" "vim" "links" "w3m" "guile" + "zmore" "pager" "aptitude" "su" "htop" "top" + "screen" "whizzml" "iex" "spt")) + (add-to-list 'eshell-visual-commands c)) + +(setq eshell-visual-subcommands '(("git" "log" "diff" "show") + ("sudo" "vim") + ("rebar3" "shell")) + eshell-destroy-buffer-when-process-dies nil + eshell-escape-control-x t) + +;;;;; bol +(defun jao-eshell-maybe-bol () + (interactive) + (let ((p (point))) + (eshell-bol) + (if (= p (point)) + (beginning-of-line)))) + +;;;;; prompt +;; tracking git repos +(defun jao-eshell--git-dirty () + (shell-command-to-string "git diff-index --quiet HEAD -- || echo -n '*'")) + +(use-package git-ps1-mode + :ensure t + :init (setq git-ps1-mode-showupstream "1" + git-ps1-mode-showdirtystate "1")) + +(defun jao-eshell--git-info () + (if (fboundp 'git-ps1-mode-get-current) + (git-ps1-mode-get-current) + (let ((desc (shell-command-to-string "git branch --no-color"))) + (when (string-match "^* \\(\\<.+\\>\\)" desc) + (format "%s%s" (match-string 1 desc) (jao-eshell--git-dirty)))))) + +(defun jao-eshell--git-current-branch (suffix) + (let ((desc (or (jao-eshell--git-info) ""))) + (cond ((and (string-empty-p desc) suffix) (format " (%s)" suffix)) + ((string-empty-p (or suffix "")) (format " (%s)" desc)) + (t (format " (%s %s)" desc suffix))))) + +(defun jao-eshell--virtualenv () + (let ((venv (getenv "VIRTUAL_ENV"))) + (when (and venv (string-match ".*/\\([^/]+\\)/$" venv)) + (match-string-no-properties 1 venv)))) + +(defun jao-eshell-prompt-function () + (let* ((venv (jao-eshell--virtualenv)) + (venv (if venv (format "%s" venv) ""))) + (concat (abbreviate-file-name (eshell/pwd)) + (jao-eshell--git-current-branch venv) + (if (= (user-uid) 0) " # " " $ ")))) + +(setq eshell-prompt-function 'jao-eshell-prompt-function) + +;;;;; in-term +(defun eshell/in-term (prog &rest args) + (switch-to-buffer + (apply #'make-term (format "in-term %s %s" prog args) prog nil args)) + (term-mode) + (term-char-mode)) + +;;;;; dir navigation +(use-package eshell-up + :ensure t + :config (setq eshell-up-print-parent-dir t)) + +(use-package eshell-autojump :ensure t) + +;;;;; completion +(defun jao-eshell-completion-capf () + (let* ((b (save-excursion (eshell-bol) (point))) + (c (bash-completion-dynamic-complete-nocomint b (point) t))) + (when (and c (listp c)) + (append c '(:exclusive no))))) + +(defun jao-eshell--set-up-completion () + (setq-local completion-styles '(basic partial-completion) + completion-at-point-functions + '(jao-eshell-completion-capf + pcomplete-completions-at-point t))) + +(use-package bash-completion + :ensure t + :hook (eshell-mode . jao-eshell--set-up-completion)) + +;;;;; toggle +(use-package jao-eshell-here + :demand t + :config (jao-define-attached-buffer "^\\*eshell" 0.5) + :bind (("<f1>" . jao-eshell-here-toggle) + ("C-<f1>" . jao-eshell-here-toggle-new))) + +;;;;; workarounds +;; at some point, bash completion started insertig the TAB +;; after the commands ends +(defun jao-eshell--clean-prompt () + (eshell-bol) + (ignore-errors (kill-line))) + +(add-hook 'eshell-after-prompt-hook 'jao-eshell--clean-prompt) + +;;;;; keybindings +(defun jao-eshell--kbds () + (define-key eshell-mode-map "\C-a" 'jao-eshell-maybe-bol) + (define-key eshell-mode-map "\C-ci" 'consult-outline)) + +(jao-eshell--kbds) + +;;; Version control and CI +;;;; vc options +(setq vc-follow-symlinks t) +(setq auto-revert-check-vc-info nil) + +;;;; diff fringe indicators (diff-hl) +(use-package diff-hl + :ensure t + :custom ((diff-hl-draw-borders nil) + (diff-hl-side 'right) + (diff-hl-margin-symbols-alist + '((insert . "█") + (delete . "█") + (change . "█") + (unknown . "█") + (ignored . "█")))) + :config + (map-keymap (lambda (_k cmd) + (put cmd 'repeat-map 'diff-hl-command-map)) + diff-hl-command-map) + (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh)) + +(global-diff-hl-mode 1) +(unless (display-graphic-p) (diff-hl-margin-mode 1)) + +;;;; magit/forge +(use-package magit + :ensure t + :commands magit-status + :init + (setq magit-status-initial-section nil + magit-define-global-key-bindings nil + magit-completing-read-function 'magit-builtin-completing-read + magit-display-buffer-function + 'magit-display-buffer-fullcolumn-most-v1 + magit-delete-by-moving-to-trash nil + magit-last-seen-setup-instructions "1.4.0" + magit-log-edit-confirm-cancellation t + magit-omit-untracked-dir-contents t + magit-process-connection-type nil + magit-push-always-verify nil + magit-repository-directories + '(("/home/jao/usr/bigml" . 2) + ("/home/jao/usr/jao" . 3) + ("/usr/local/src" . 1)) + magit-save-repository-buffers 'dontask + magit-section-visibility-indicator '("…" . t) + magit-status-buffer-switch-function 'switch-to-buffer + magit-status-show-hashes-in-headers t)) + +;;;; forge +(use-package forge + :ensure t + :after magit + :init + (setq forge-topic-list-limit (cons 100 -1) + forge-pull-notifications nil) + :config + (add-hook 'magit-status-sections-hook #'forge-insert-assigned-pullreqs t) + (add-hook 'magit-status-sections-hook #'forge-insert-assigned-issues t) + (use-package embark-vc :ensure t) + :bind ((:map forge-topic-mode-map ("M-w" . copy-region-as-kill)))) + + +;;;; code reviews +(use-package code-review + :disabled t + :ensure t + :after forge + :bind (:map magit-status-mode-map + ("C-c C-r" . code-review-forge-pr-at-point))) + +;;;; other git packages +(use-package git-timemachine :ensure t) + +(use-package consult-git-log-grep + :ensure t + :custom (consult-git-log-grep-open-function #'magit-show-commit) + :bind (("C-c K" . consult-git-grep))) + +;; git config --local git-link.remote / git-link.branch +(use-package git-link :ensure t) +(use-package git-modes :ensure t) + +;;;; jenkins +(use-package jenkins + :ensure t + :init + ;; one also needs jenkins-api-token, jenkins-username and jenkins-url + ;; optionally: jenkins-colwidth-id, jenkins-colwidth-last-status + (setq jenkins-colwidth-name 35) + :config + (defun jao-jenkins-first-job (&rest _) + (interactive) + (goto-char (point-min)) + (when (re-search-forward "^- Job" nil t) + (goto-char (match-beginning 0)))) + (add-hook 'jenkins-job-view-mode-hook #'jao-jenkins-first-job) + (advice-add 'jenkins-job-render :after #'jao-jenkins-first-job) + + (defun jenkins-refresh-console-output () + (interactive) + (let ((n (buffer-name))) + (when (string-match "\\*jenkins-console-\\([^-]+\\)-\\(.+\\)\\*$" n) + (jenkins-get-console-output (match-string 1 n) (match-string 2 n)) + (goto-char (point-max))))) + + :bind (:map jenkins-job-view-mode-map + (("n" . next-line) + ("p" . previous-line) + ("f" . jao-jenkins-first-job) + ("RET" . jenkins--show-console-output-from-job-screen)) + :map jenkins-console-output-mode-map + (("n" . next-line) + ("p" . previous-line) + ("g" . jenkins-refresh-console-output)))) + +;;; Programming +;;;; automatic modes +(add-to-list 'auto-mode-alist '("\\.mix\\'" . hexl-mode)) +(add-to-list 'auto-mode-alist '("\\.m4\\'" . m4-mode)) +(add-to-list 'auto-mode-alist '("\\.am\\'" . makefile-mode)) +(add-to-list 'auto-mode-alist '("\\.pl\\'\\|\\.pm\\'" . cperl-mode)) + +;;;; symbol overlay +(use-package symbol-overlay + :ensure t + :config + (defun jao-symbol-reveal (&rest _) + (when outline-minor-mode (outline-show-entry))) + (advice-add 'symbol-overlay-basic-jump :after 'jao-symbol-reveal) + + (defun jao-symbol-put-and-next () + (interactive) + (symbol-overlay-put) + (symbol-overlay-jump-next)) + + (defun jao-symbol-put-and-prev () + (interactive) + (symbol-overlay-put) + (symbol-overlay-jump-prev)) + + :bind (:map prog-mode-map (("M-i" . symbol-overlay-put) + ("M-n" . jao-symbol-put-and-next) + ("M-p" . jao-symbol-put-and-prev))) + :hook (prog-mode . symbol-overlay-mode) + :diminish " ^") + +;;;; eglot +(use-package eglot + :bind (:map eglot-mode-map (("C-h ." . jao-eldoc-toggle)))) + +;;;; paredit and parens +(require 'paren) +(show-paren-mode t) +(setq show-paren-context-when-offscreen t + show-paren-when-point-inside-paren nil) + +(use-package paredit + :ensure t + :commands paredit-mode + :hook ((pie-mode . paredit-mode) + (scheme-mode . paredit-mode) + (clojure-mode . paredit-mode) + (emacs-lisp-mode . paredit-mode) + ;; (eval-expression-minibuffer-setup . paredit-mode) + (lisp-interaction-mode . disable-paredit-mode)) + :diminish ((paredit-mode . " þ"))) + +;;;; diff/ediff +(setq ediff-split-window-function 'split-window-horizontally) +(setq ediff-make-buffers-readonly-at-startup nil) +(setq ediff-window-setup-function 'ediff-setup-windows-plain) +(setq ediff-keep-variants nil) + +;;;; compilation +;;;;; compilation mode options +(require 'compile) +(setq compilation-scroll-output t) +(setq compilation-error-regexp-alist + (remove 'omake compilation-error-regexp-alist)) +;; (add-hook 'compilation-mode-hook #'visual-line-mode) + +;;;;; mode line (no "Compiling"!) +(require 'compile) +(diminish 'compilation-minor-mode " ‡") +(when (< emacs-major-version 27) + (setcdr (assq 'compilation-in-progress minor-mode-alist) '(" ‡"))) +(when (> emacs-major-version 26) + (setcdr (assq 'compilation-in-progress mode-line-modes) '("‡ "))) + +;;;;; colorizing compilation buffer +(setq compilation-message-face 'default) +(require 'ansi-color) +(defun endless/colorize-compilation () + "Colorize from `compilation-filter-start' to `point'." + (let ((inhibit-read-only t)) + (ansi-color-apply-on-region + compilation-filter-start (point)))) + +(add-hook 'compilation-filter-hook #'endless/colorize-compilation) + +;;;;; compilation commands +(use-package jao-compilation + :commands jao-compilation-setup + :bind (("C-c C" . compile) + ("C-c c" . jao-compile))) +(jao-compilation-setup) + +;;;;; next error +(setq next-error-find-buffer-function + #'next-error-buffer-on-selected-frame + next-error-verbose t) + +;;;; flymake +(use-package flymake + :ensure t + :custom ((flymake-mode-line-format '(" " flymake-mode-line-counters))) + :config + (jao-define-attached-buffer "^\\*Flymake diagnostics .*\\*\\'") + + (transient-define-prefix jao-transient-flymake () + ["Flymake" + ("d" "show diagnostics" flymake-show-buffer-diagnostics) + ("i" "show diagnostic" flymake-show-diagnostic) + ("n" "next error" flymake-goto-next-error) + ("p" "previous error" flymake-goto-prev-error) + ("c" "consult flymake" consult-flymake)]) + + :bind (:map flymake-mode-map (("M-m" . jao-transient-flymake)))) + +;;;; workarounds +(setq c-type-finder-time-slot nil) + +;;;; outline minor mode +(use-package outline + :init (setq outline-minor-mode-use-buttons nil + outline-minor-mode-use-margins nil + outline-minor-mode-cycle t)) + +(defvar-local jao-outline-folded nil) +(dolist (v '(4 5 outline-show-only-headings)) + (add-to-list 'safe-local-variable-values `(outline-default-state . ,v))) + +(defun jao-outline-minor-mode-hide-all (&optional arg) + (interactive "P") + (outline-hide-sublevels (if arg 5 4))) + +(defun jao-outline-minor-expand-all () + (when jao-outline-minor-mode (outline-show-all))) + +(defun jao-outline-minor-mode-toogle-fold (&optional arg) + (interactive "P") + (if (setq jao-outline-folded (not jao-outline-folded)) + (jao-outline-minor-mode-hide-all arg) + (jao-outline-minor-expand-all))) + +(use-package outline-minor-faces + :ensure t + :after outline) + +(define-minor-mode jao-outline-minor-mode + "Minor outline mode for programming languages" + :lighter "" + :keymap `((,(kbd "C-c C-n") . outline-next-visible-heading) + (,(kbd "C-c C-p") . outline-previous-visible-heading) + (,(kbd "C-c o") . consult-outline) + (,(kbd "<f3>") . jao-outline-minor-mode-toogle-fold)) + (if jao-outline-minor-mode + (progn (setq-local outline-level #'outline-level + outline-regexp (format "[%s]\\{3,\\} " comment-start)) + (outline-minor-mode 1) + (outline-minor-faces-mode 1)) + (outline-minor-mode -1) + (outline-minor-faces-mode -1))) + +(add-hook 'find-function-after-hook #'jao-outline-minor-expand-all) + +;;; Programming languages +;;;; Elisp +(add-hook 'emacs-lisp-mode-hook #'jao-outline-minor-mode) + +(use-package edit-list :ensure t) +(use-package package-lint :ensure t) +;; (use-package tree-inspector :ensure t) + +(defun elisp-disassemble (function) + (interactive (list (function-called-at-point))) + (disassemble function)) + +(defun elisp-pp (sexp) + (with-output-to-temp-buffer "*Pp Eval Output*" + (pp sexp) + (with-current-buffer standard-output + (emacs-lisp-mode)))) + +(defun elisp-macroexpand (form) + (interactive (list (form-at-point 'sexp))) + (elisp-pp (macroexpand form))) + +(defun elisp-macroexpand-all (form) + (interactive (list (form-at-point 'sexp))) + (elisp-pp (macroexpand-all form))) + +(defun elisp-find-definition (name) + (interactive (list (thing-at-point 'symbol))) + (cond (name + (let ((symbol (intern-soft name)) + (search (lambda (fun sym) + (let* ((r (save-excursion (funcall fun sym))) + (buffer (car r)) + (point (cdr r))) + (cond ((not point) + (error "Found no definition for %s in %s" + name buffer)) + (t + (switch-to-buffer buffer) + (goto-char point) + (recenter 1))))))) + (cond ((fboundp symbol) + (xref-push-marker-stack) + (funcall search 'find-function-noselect symbol)) + ((boundp symbol) + (xref-push-marker-stack) + (funcall search 'find-variable-noselect symbol)) + (t + (message "Symbol not bound: %S" symbol))))) + (t (message "No symbol at point")))) + + +(defun elisp-bytecompile-and-load () + (interactive) + (or buffer-file-name + (error "The buffer must be saved in a file first")) + (require 'bytecomp) + ;; Recompile if file or buffer has changed since last compilation. + (when (and (buffer-modified-p) + (y-or-n-p (format "save buffer %s first? " (buffer-name)))) + (save-buffer)) + (let ((filename (expand-file-name buffer-file-name))) + (with-temp-buffer + (byte-compile-file filename)))) + +(use-package elisp-mode + :bind (:map emacs-lisp-mode-map + (("C-c C-M" . emacs-lisp-macroexpand) + ("C-c C-m" . elisp-macroexpand-all) + ("C-c C-k" . elisp-bytecompile-and-load) + ;; ("C-c C-p" . pp-eval-last-sexp) + ("M-." . elisp-find-definition) + ("M-," . pop-tag-mark) + ("C-c <" . lc-show-package-summary)))) + +;;;; Clojure +(use-package clojure-mode + :ensure t + :config + (defun jao-clojure--fix-things () + (setq-local completion-styles '(basic partial-completion emacs22)) + (eldoc-mode 1) + (setq mode-name "λ")) + :hook (clojure-mode . jao-clojure--fix-things)) + +(use-package cider + :ensure t + :commands cider-mode + :init (setq cider-annotate-completion-candidates t + cider-auto-select-error-buffer nil + cider-auto-select-test-report-buffer nil + cider-eldoc-display-for-symbol-at-point t + cider-eldoc-ns-function #'identity ;; #'cider-last-ns-segment + cider-enrich-classpath nil + cider-lein-parameters "repl :headless :host localhost" + cider-mode-line " ÷" + cider-prompt-for-symbol nil + cider-repl-history-file + (expand-file-name "~/.emacs.d/cache/cider.history") + cider-repl-pop-to-buffer-on-connect nil + cider-repl-use-pretty-printing t + cider-show-error-buffer 'except-in-repl + cider-test-show-report-on-success nil + cider-use-fringe-indicators nil + cider-use-overlays nil + clojure-docstring-fill-column 72 + nrepl-prompt-to-kill-server-buffer-on-quit nil) + :bind (("<f3>" . cider-selector))) + +(with-eval-after-load "cider-test" + (advice-add 'cider-scale-background-color :override + (lambda () (frame-parameter nil 'background-color))) + (setq cider-test-items-background-color + (frame-parameter nil 'background-color))) + +(use-package cider-macroexpansion + :after cider + :diminish " µ") + +;;;; Geiser +(defun jao-org--set-geiser-impl () (setq-local geiser-repl--impl 'guile)) +(add-hook 'org-mode-hook #'jao-org--set-geiser-impl) + +(jao-load-path "geiser") +(use-package geiser + :init + (setq geiser-repl-history-filename "~/.emacs.d/cache/geiser-history" + geiser-repl-startup-time 20000 + geiser-debug-auto-display-images t + geiser-log-verbose t) + :config + (dolist (m '(geiser-repl-mode geiser-doc-mode geiser-debug-mode)) + (jao-define-attached-buffer `(major-mode . ,m) 0.4))) + +(jao-load-path "geiser-guile") +(use-package geiser-guile) + +(jao-load-path "geiser-chez") +(use-package geiser-chez) + +;; (jao-load-path "geiser/mit") +;; (use-package geiser-mit) + +;; (jao-load-path "geiser/chicken") +;; (use-package geiser-chicken) + +;; (jao-load-path "geiser/chibi") +;; (use-package geiser-chibi) + +;; (jao-load-path "geiser/gambit") +;; (use-package geiser-gambit) + +;; (jao-load-path "geiser/gauche") +;; (use-package geiser-gauche) + +;;;; Haskell +;;;;; packages +;; (jao-load-path "haskell-mode") + +(use-package haskell-mode + :ensure t + :custom + ((inferior-haskell-find-project-root t) + (haskell-check-remember-last-command-p nil) + (haskell-completing-read-function 'completing-read) + (haskell-font-lock-symbols nil) + (haskell-hoogle-command "hoogle") + (haskell-interactive-popup-errors t) + (haskell-process-auto-import-loaded-modules t) + (haskell-process-log t) + (haskell-process-suggest-remove-import-lines t) + (haskell-process-suggest-hoogle-imports t) + (haskell-process-type 'cabal-repl) + (haskell-process-use-presentation-mode t) + (haskell-stylish-on-save nil) + (haskell-tags-on-save t)) + + :init + ;; For use with M-x align + (require 'align) + (add-to-list 'align-rules-list + '(haskell-types + (regexp . "\\(\\s-+\\)\\(::\\|∷\\)\\s-+") + (modes quote (haskell-mode haskell-literate-mode)))) + (add-to-list 'align-rules-list + '(haskell-assignment + (regexp . "\\(\\s-+\\)=\\s-+") + (modes quote (haskell-mode haskell-literate-mode)))) + (add-to-list 'align-rules-list + '(haskell-arrows + (regexp . "\\(\\s-+\\)\\(->\\|→\\)\\s-+") + (modes quote (haskell-mode haskell-literate-mode)))) + (add-to-list 'align-rules-list + '(haskell-left-arrows + (regexp . "\\(\\s-+\\)\\(<-\\|←\\)\\s-+") + (modes quote (haskell-mode haskell-literate-mode)))) + + :config + (defun jao-haskell-hoogle (no-info) + (interactive "P") + (haskell-hoogle (format "%s" (haskell-ident-at-point)) (not no-info))) + + (put 'haskell-process-args-cabal-repl + 'safe-local-variable + (apply-partially #'seq-every-p #'stringp)) + + (defun jao-haskell-eldoc (cb) + (let ((msg (or (haskell-doc-current-info--interaction t) + (haskell-doc-sym-doc (haskell-ident-at-point)) + ""))) + (funcall cb (replace-regexp-in-string "[\n ]+" " " msg)))) + + (setq tags-revert-without-query t) + + (defun jao-haskell-mode () + (require 'haskell-doc) + (setq-local eldoc-documentation-function 'eldoc-documentation-default + eldoc-documentation-functions '(jao-haskell-eldoc)) + (eldoc-mode)) + + (dolist (h '(jao-haskell-mode + haskell-decl-scan-mode + haskell-indentation-mode + interactive-haskell-mode)) + (add-hook 'haskell-mode-hook h)) + + (add-hook 'haskell-presentation-mode-hook (lambda () (whitespace-mode -1))) + + :bind (:map haskell-mode-map + (("C-c C-d" . jao-haskell-hoogle) + ("C-c C-s" . haskell-session-change-target) + ("C-c h" . haskell-hoogle) + ("C-c t" . haskell-doc-show-type) + ("C-c C-e" . haskell-command-insert-language-pragma) + ("C-M-n" . flymake-goto-next-error) + ("C-M-p" . flymake-goto-prev-error) + ("<f3>" . haskell-session-kill)))) + +(use-package hlint-refactor + :ensure t + :after haskell-mode + :hook ((haskell-mode . hlint-refactor-mode)) + :bind (:map haskell-mode-map (("C-M-h" . 'hlint-refactor-refactor-at-point) + ("C-M-S-h" . 'hlint-refactor-refactor-buffer))) + :diminish) + +(use-package flymake-hlint + :ensure t + :after haskell-mode + :hook ((haskell-mode . flymake-hlint-load))) + + +(use-package consult-hoogle + :ensure t) + +(require 'haskell) + +(diminish 'interactive-haskell-mode " λ") +(diminish 'haskell-doc-mode) +(diminish 'haskell-decl-scan-mode) + +(jao-define-attached-buffer "\\*hoogle\\*.*") +(jao-define-attached-buffer '(major-mode . haskell-interactive-mode) 0.33) +(jao-define-attached-buffer '(major-mode . haskell-presentation-mode) 0.25) + +;;;;; transient +(jao-transient-major-mode haskell + ["Imports" + ("in" "Navigate imports" haskell-navigate-imports) + ("if" "Format imports" haskell-mode-format-imports) + ("is" "Sort imports" haskell-sort-imports) + ("ia" "Align imports" haskell-align-imports)] + ["Session" + ("s" "Change the session's target" haskell-session-change-target)] + ["Code" + ("e" "insert language pragma" haskell-command-insert-language-pragma) + ("v" "visit cabal file" haskell-cabal-visit-file) + ("h" "hoogle" jao-haskell-hoogle) + ("t" "show type" haskell-doc-show-type)] + ["Flymake" + ("n" "next error" flymake-goto-next-error) + ("p" "previous error" flymake-goto-prev-error)]) + +;;;; Pie +(jao-load-path "pie") +(use-package pie + :demand t + :commands (pie-mode)) + +;;;; Prolog +;; (use-package ediprolog :ensure t) + +(use-package prolog + :ensure t + :commands (run-prolog prolog-mode mercury-mode) + :init (progn + (setq prolog-system 'swi) + (add-to-list 'auto-mode-alist '("\\.pl$" . prolog-mode)) + (setq prolog-consult-string '((t "[%f]."))) + (setq prolog-program-name + '(((getenv "EPROLOG") (eval (getenv "EPROLOG"))) + (eclipse "eclipse") + (mercury nil) + (sicstus "sicstus") + (swi "swipl") + (t "prolog"))))) + +;;;; Python +(use-package virtualenvwrapper + :ensure t + :config + (venv-initialize-eshell) + (jao-compilation-env "VIRTUAL_ENV")) + +;;; Text/data formats +;;;; json +(use-package json-mode :ensure t) +;;;; yaml +(use-package yaml-mode :disabled t :ensure t) + +;;; Graphics +;;;; images +(setq image-use-external-converter t + image-cache-eviction-delay 120) +(setq widget-image-enable nil) + +;;;; gnuplot +(use-package gnuplot + :disabled t + :ensure t + :commands (gnuplot-mode gnuplot-make-buffer) + :init (add-to-list 'auto-mode-alist '("\\.gp$" . gnuplot-mode))) + +;;; Network +;;;; nm applet +(jao-shell-def-exec jao-nm-applet "nm-applet") + +(defun jao-toggle-nm-applet () + (interactive) + (or (jao-shell-kill-p "nm-applet") (jao-nm-applet))) + +;;;; bluetooth +(use-package bluetooth :ensure t) + +;;;; vpn +(use-package jao-mullvad :demand t) + +;;;; ssh +(use-package tramp) +(defun jao-tramp-hosts () + (seq-uniq + (mapcan (lambda (x) + (remove nil (mapcar 'cadr (apply (car x) (cdr x))))) + (tramp-get-completion-function "ssh")) + #'string=)) + +(defun jao-ssh () + (interactive) + (let ((h (completing-read "Host: " (jao-tramp-hosts)))) + (jao-afio-goto-scratch) + (jao-exec-in-term (format "ssh %s" h) (format "*ssh %s*" h)))) + +;;; Chats +;;;; circe +(defvar jao-libera-channels ()) +(defvar jao-oftc-channels ()) +(defvar jao-bitlbee-channels ()) +(defvar jao-slack-channels ()) + +(use-package circe + :ensure t + :bind (:map circe-channel-mode-map + (("C-c C-a" . lui-track-jump-to-indicator))) + :init + (setq circe-chat-buffer-name "{target}" + circe-default-realname "https://jao.io" + circe-default-part-message "" + circe-default-quit-message "" + circe-ignore-list nil + circe-server-coding-system '(undecided . undecided) + circe-server-killed-confirmation 'ask-and-kill-all + circe-server-auto-join-default-type :after-auth + circe-format-say "({nick}) {body}" + circe-format-self-say "(jao) {body}" + circe-new-buffer-behavior 'ignore + circe-new-buffer-behavior-ignore-auto-joins t + circe-nickserv-ghost-style 'after-auth + circe-prompt-string ": " + circe-completion-suffix ", " + circe-reduce-lurker-spam t + + circe-lagmon-mode-line-format-string "" ;; "%.0f " + circe-lagmon-mode-line-unknown-lag-string "" ;; "? " + circe-lagmon-timer-tick 120 + circe-lagmon-reconnect-interval 180 + + lui-max-buffer-size 30000 + lui-fill-column 80 + lui-time-stamp-position 'right + lui-time-stamp-format "%H:%M" + lui-flyspell-p nil + + lui-track-indicator (if window-system 'fringe 'bar) + lui-track-behavior 'before-tracking-next-buffer) + :config + + (defsubst jao-circe-nick-no () (length (circe-channel-nicks))) + + (define-minor-mode jao-circe-user-number-mode "" + :lighter (:eval (format " [%s]" (jao-circe-nick-no)))) + + (defun jao-circe-channel-hook () + ;; (setq header-line-format + ;; '(" %b" (:eval (format " - %s nicks" (jao-circe-nick-no))))) + (jao-circe-user-number-mode 1)) + + (add-hook 'circe-channel-mode-hook #'jao-circe-channel-hook) + + (defun circe-command-RECOVER (&rest _ignore) + "Recover nick" + (jao-with-auth "freenode" u p + (circe-command-MSG "nickserv" (format "IDENTIFY %s %s" u p)) + (circe-command-MSG "nickserv" (format "GHOST %s" u)) + (circe-command-MSG "nickserv" (format "RELEASE %s" u)) + (circe-command-NICK u))) + + (defun circe-command-NNICKS (&rest _) + "Echo number of nicks" + (circe-display-server-message + (format "%d nicks in this channel" (jao-circe-nick-no)))) + + (defun circe-command-SENDFILE (line) + "/sendfile for localslackirc" + (circe-command-QUOTE (format "sendfile %s" line))) + + (advice-add 'circe-command-NAMES :after #'circe-command-NNICKS) + + (setq circe-network-options + (list (jao-with-auth "libera" u p + (list "Libera Chat" :nick u :channels jao-libera-channels + :tls t :sasl-username u :sasl-password p)) + (jao-with-auth "oftc" u p + (list "OFTC" + :nick u :channels jao-oftc-channels :nickserv-password p + :tls t :sasl-username u :sasl-password p)) + (jao-with-auth "bitlbee" u p + (list "Bitlbee" :host "127.0.0.1" :nick u + :channels jao-bitlbee-channels :lagmon-disabled t + :nickserv-password u :user p)) + (list "localslack" :host "127.0.0.1" :nick "jao" + :channels jao-slack-channels :port 9007 + :lagmon-disabled t))) + + (jao-shorten-modes 'circe-channel-mode + 'circe-server-mode + 'circe-query-mode) + + (enable-circe-display-images) + (enable-lui-track) + (circe-lagmon-mode)) + +;;;; telegram +(use-package telega + :ensure t + :custom + (telega-use-tracking-for '(unmuted) ;; '(or unmuted mention) + telega-rainbow-color-custom-for nil + telega-msg-rainbow-title nil + telega-sticker-set-download t) + :config + (define-key global-map (kbd "C-c C-t") telega-prefix-map) + (setq telega-chat-show-avatars nil + telega-chat-prompt-format ">> " + telega-completing-read-function #'completing-read + telega-root-show-avatars nil + telega-emoji-use-images nil + telega-temp-dir "/tmp/telega" + telega-symbol-checkmark "·" + telega-symbol-heavy-checkmark "×" + telega-symbol-verified "*" + telega-symbol-horizontal-bar + (propertize "-" 'face 'jao-themes-f00) + telega-symbol-vertical-bar + (propertize "| " 'face 'jao-themes-dimm) + telega-mode-line-string-format + '(:eval (telega-mode-line-unread-unmuted)) + telega-use-images (display-graphic-p) + telega-open-file-function #'jao--see + telega-open-message-as-file + (unless (display-graphic-p) '(photo video animation))) + (with-eval-after-load "tracking" + (jao-shorten-modes 'telega-chat-mode) + (jao-tracking-faces 'telega-tracking)) + (telega-mode-line-mode 1)) + +(defun jao-telega () + (interactive) + (jao-tracking-go-to-chats) + (if (get-buffer telega-root-buffer-name) + (pop-to-buffer telega-root-buffer-name) + (telega))) + +;;;; ement +(use-package ement + :disabled t + :ensure t + :init (setq ement-save-sessions t + ement-sessions-file (locate-user-emacs-file "cache/ement.el") + ement-room-avatars nil + ement-notify-dbus-p nil + ement-room-left-margin-width 0 + ement-room-right-margin-width 11 + ement-room-timestamp-format "%H:%M" + ement-room-timestamp-header-format "--------") + + :custom ((ement-room-message-format-spec "(%S) %B%r%R %t")) + + :config + (defun jao-ement-track (event room session) + (when (ement-notify--room-unread-p event room session) + (when-let ((n (ement-room--buffer-name room)) + (b (get-buffer n))) + (tracking-add-buffer b)))) + + (add-hook 'ement-event-hook #'jao-ement-track) + (jao-shorten-modes 'ement-room-mode) + (jao-tracking-cleaner "^\\*Ement Room: \\(.+\\)\\*" "@\\1")) + +;;;; mastodon +(use-package mastodon + :ensure t + :init + (setq mastodon-instance-url "https://emacs.ch" + mastodon-active-user "mail@jao.io" + mastodon-tl-position-after-update nil + mastodon-toot-display-orig-in-reply-buffer t) + :config + ;; (defun jao-mastodon--setup () + ;; (setq-local scroll-margin 12)) + + ;; (add-hook 'mastodon-mode-hook #'jao-mastodon--setup) + (with-eval-after-load "ewww" + (define-key eww-mode-map (kbd "T") #'jao-mastodon-toot-url))) + +(defun jao-mastodon-toot-url () + (interactive) + (when-let (url (jao-url-around-point t)) + (jao-tracking-go-to-chats) + (mastodon-toot--compose-buffer nil nil nil url))) + +(defun jao-mastodon () + (interactive) + (jao-afio-goto-chats) + (mastodon)) + +;;;; startup +(defun jao-chats (&optional p) + (interactive "P") + (when (or p (y-or-n-p "Connect to telegram? ")) + (telega)) + (when (and (fboundp 'ement-connect) (or p (y-or-n-p "Connect to matrix? "))) + (unless (get-buffer "*Ement Rooms*") + (jao-with-auth "matrix.org" u p (ement-connect :user-id u :password p)))) + (when (and (fboundp 'mastodon) (or p (y-or-n-p "Connect to mastodon? "))) + (mastodon)) + (when (or p (y-or-n-p "Connect to libera? ")) + (unless (get-buffer "irc.libera.chat:6697") + (circe "Libera Chat"))) + (when (or p (y-or-n-p "Connect to localslack? ")) + (unless (get-buffer "127.0.0.1:9007") + (circe "localslack")))) + +(defun jao-all-chats () + (interactive) + (when jao-tracking-use-scratch + (jao-afio-goto-chats) + (delete-other-windows)) + (jao-chats t)) + +(defun jao-chats-telega () + (interactive) + (jao-buffer-same-mode '(telega-root-mode telega-chat-mode))) + +(defun jao-chats-slack () + (interactive) + (jao-buffer-same-mode 'slack-message-buffer-mode)) + +(defun jao-chats-irc () + (interactive) + (jao-buffer-same-mode '(circe-channel-mode circe-query-mode erc-mode))) + +;;;; consult narrowing +(defvar jao-chat-buffer-source + (list :name "chats" + :category 'buffer + :action (lambda (b) (jao-afio-pop-to-buffer 0 b)) + :hidden t + :narrow (cons ?c "chats") + :items (jao-consult--mode-buffers 'erc-mode + 'circe-channel-mode + 'circe-query-mode + 'signel-chat-mode + 'slack-message-buffer-mode + 'slack-thread-message-buffer-mode + 'telega-root-mode + 'telega-chat-mode + 'ement-room-mode + 'ement-room-list-mode))) +(with-eval-after-load "consult" + (jao-consult-add-buffer-source 'jao-chat-buffer-source)) +;;; Multimedia +;;;; mixer +(defun jao-mixer-get-level (&optional dev nomsg) + (interactive) + (let* ((dev (or dev "Master")) + (s (shell-command-to-string (format "amixer sget %s" dev))) + (s (car (last (split-string s "\n" t))))) + (when (string-match ".*Front .*\\[\\([0-9]+\\)%\\] .*" s) + (let ((level (match-string 1 s))) + (unless nomsg (message "%s level: %s%%" dev level)) + (string-to-number level))))) + +(defun jao-mixer-set (dev v) + (jao-shell-exec* t "amixer" "sset" dev v) + (jao-mixer-get-level dev)) + +(defun jao-mixer-master-toggle () + (interactive) + (jao-mixer-set "Master" "toggle")) + +(defun jao-mixer-master-up () + (interactive) + (jao-mixer-set "Master" "10%+")) + +(defun jao-mixer-master-down () + (interactive) + (jao-mixer-set "Master" "10%-")) + +(defun jao-mixer-capture-up () + (interactive) + (jao-mixer-set "Capture" "10%+")) + +(defun jao-mixer-capture-down () + (interactive) + (jao-mixer-set "Capture" "10%-")) + +(jao-shell-def-exec jao-audio-applet "pasystray") + +(defun jao-toggle-audio-applet () + (interactive) + (or (jao-shell-kill-p "paystray") (jao-audio-applet))) + +(global-set-key (kbd "<f4>") #'jao-toggle-audio-applet) + +;;;; streaming aliases +(defalias 'jao-streaming-list #'ignore) +(defalias 'jao-streaming-like #'ignore) +(defalias 'jao-streaming-dislike #'ignore) +(defalias 'jao-streaming-toggle-shuffle #'ignore) +(defalias 'jao-streaming-lyrics #'ignore) +(defalias 'jao-streaming-toggle #'ignore) +(defalias 'jao-streaming-next #'ignore) +(defalias 'jao-streaming-prev #'ignore) +(defalias 'jao-streaming-current #'ignore) +(defalias 'jao-streaming-seek #'ignore) +(defalias 'jao-streaming-seek-back #'ignore) +(defalias 'jao-streaming-volume #'ignore) +(defalias 'jao-streaming-volume-down #'ignore) + +;;;; mpris +(defun jao-mpris-lyrics (&optional force) + (interactive "P") + (jao-show-lyrics force #'jao-mpris-artist-title)) + +(defun jao-mpc-mopidy-playlist () + (interactive) + (jao-mpc-show-playlist jao-mopidy-port)) + +(use-package jao-mpris :demand t) + +(defun jao-mpris-setup-aliases () + (setq espotify-play-uri-function #'espotify-play-uri-with-dbus) + ;; (setq jao-mpris-player "mopidy") + (defalias 'jao-streaming-list #'jao-mpc-mopidy-playlist) + (defalias 'jao-streaming-lyrics #'jao-mpris-lyrics) + (defalias 'jao-streaming-toggle #'jao-mpris-play-pause) + (defalias 'jao-streaming-next #'jao-mpris-next) + (defalias 'jao-streaming-prev #'jao-mpris-previous) + (defalias 'jao-streaming-current #'jao-mpris-show-osd) + (defalias 'jao-streaming-seek #'jao-mpris-seek) + (defalias 'jao-streaming-seek-back #'jao-mpris-seek-back) + (defalias 'jao-streaming-volume #'jao-mpris-vol) + (defalias 'jao-streaming-volume-down #'jao-mpris-vol-down)) + +;; (jao-mpris-register "playerctld" +;; :session (if jao-mode-line-in-minibuffer -10 70)) +;; (jao-mpris-register "mopidy" :session 70) + +;;;; mpc +(use-package jao-mpc + :demand t + :commands jao-mpc-setup) + +(defvar jao-mopidy-port 6669) +(defvar jao-mpc-last-port jao-mpc-port) + +(defun jao-mpc-toggle-port () + (interactive) + (setq jao-mpc-port + (if (equal jao-mpc-port jao-mopidy-port) 6600 jao-mopidy-port) + jao-mpc-last-port jao-mpc-port)) + +(defsubst jao-mpc-mopidy-p () (equal jao-mpc-last-port jao-mopidy-port)) + +(jao-mpc-setup jao-mopidy-port 70) + +(defun jao-mpc-pport (&optional mop) + (cond ((or mop (jao-mpc-playing-p jao-mopidy-port)) jao-mopidy-port) + ((jao-mpc-playing-p) 6600) + (t jao-mpc-last-port))) + +(defmacro jao-defun-play (name &optional mpc-name) + (let ((arg (gensym))) + `(defun ,(intern (format "jao-player-%s" name)) (&optional ,arg) + (interactive "P") + (,(intern (format "jao-mpc-%s" (or mpc-name name))) + (setq jao-mpc-last-port (jao-mpc-pport ,arg)))))) + +(jao-defun-play toggle) +(jao-defun-play next) +(jao-defun-play previous) +(jao-defun-play stop) +(jao-defun-play echo echo-current-times) +(jao-defun-play list show-playlist) +(jao-defun-play info lyrics-track-data) +(jao-defun-play browse show-albums) +(jao-defun-play select-album) + +(defun jao-player-seek (delta) (jao-mpc-seek delta (jao-mpc-pport))) + +(defalias 'jao-player-connect 'jao-mpc-connect) +(defalias 'jao-player-play 'jao-mpc-play) + +;;;; spotify +(jao-load-path "espotify") + +(use-package espotify + :demand t + :init (setq espotify-service-name "mopidy")) + +(use-package consult-spotify :demand t) + +(defalias 'jao-streaming-album #'consult-spotify-album) +(defalias 'jao-streaming-track #'consult-spotify-track) +(defalias 'jao-streaming-artist #'consult-spotify-artist) +(defalias 'jao-streaming-playlist #'consult-spotify-playlist) + +(jao-def-exec-in-term "ncmpcpp" "ncmpcpp" (jao-afio-goto-scratch)) + +;;;; spt +(use-package jao-spt + :demand t + :config + (defun jao-spt-setup-aliases () + (setq espotify-play-uri-function #'jao-spt-play-uri) + (defalias 'jao-streaming-list #'jao-term-spt) + (defalias 'jao-streaming-lyrics #'jao-spt-show-lyrics) + (defalias 'jao-streaming-toggle #'jao-spt-toggle) + (defalias 'jao-streaming-next #'jao-spt-next) + (defalias 'jao-streaming-prev #'jao-spt-previous) + (defalias 'jao-streaming-current #'jao-spt-echo-current) + (defalias 'jao-streaming-seek #'jao-spt-seek) + (defalias 'jao-streaming-seek-back #'jao-spt-seek-back) + (defalias 'jao-streaming-volume #'jao-spt-vol) + (defalias 'jao-streaming-volume-down #'jao-spt-vol-down) + (defalias 'jao-streaming-like #'jao-spt-like) + (defalias 'jao-streaming-dislike #'jao-spt-dislike) + (defalias 'jao-streaming-toggle-shuffle #'jao-spt-toggle-shuffle))) + +(jao-def-exec-in-term "spt" "spt" (jao-afio-goto-scratch)) + +(defvar jao-spt-on t) + +(defun jao-streaming-toggle-player () + (interactive) + (if jao-spt-on + (progn (setq jao-mpris-player "playerctld") + (require 'jao-mpris) + (jao-mpris-setup-aliases)) + (jao-spt-setup-aliases) + (setq jao-mpris-player "spt")) + (setq jao-spt-on (not jao-spt-on)) + (message "%s activated " jao-mpris-player)) + +(jao-streaming-toggle-player) + +;;;; music transients +(require 'jao-lyrics) +(setq jao-lyrics-info-function #'jao-player-info) + +(defun jao-player-seek-10 () (interactive) (jao-player-seek 10)) +(defun jao-player-seek--10 () (interactive) (jao-player-seek -10)) + +(defun jao-streaming-clear () (interactive) (jao-mpc-clear jao-mopidy-port)) + +(defun jao-streaming-echo-current () + (interactive) + (jao-mpc-echo-current jao-mopidy-port)) + +(defun jao-streaming-show-playlist () + (interactive) + (jao-mpc-show-playlist jao-mopidy-port)) + +(use-package jao-random-album :demand t) + +(jao-def-exec-in-term "aptitude" "aptitude" (jao-afio-goto-scratch)) + +(defun jao-toggle-pasystray-applet () + (interactive) + (or (jao-shell-kill-p "pasystray") (jao-shell-exec "pasystray"))) + +(transient-define-prefix jao-transient-streaming () + [:description + (lambda () (format "Streaming using %s" jao-mpris-player)) + ["Search" + ("a" "album" jao-streaming-album) + ("A" "artist" jao-streaming-artist) + ("t" "track" jao-streaming-track) + ("P" "playlist" jao-streaming-playlist)] + ["Play" + ("s" "toggle" jao-streaming-toggle) + ("n" "next" jao-streaming-next) + ("p" "previous" jao-streaming-prev)] + ["Seek & shout" + ("f" "seek fwd" jao-streaming-seek :transient t) + ("F" "seek bwd" jao-streaming-seek-back :transient t) + ("u" "up" jao-streaming-volume :transient t) + ("d" "down" jao-streaming-volume-down :transient t)] + ["Browse" + ("l" "playing list" jao-streaming-list) + ("L" "lyrics" jao-streaming-lyrics) + ("w" "currently playing" jao-streaming-current)] + ["Act" + ("k" "like" jao-streaming-like) + ("K" "dislike" jao-streaming-dislike) + ("S" "toggle shuffle" jao-streaming-toggle-shuffle) + ("T" "toggle player" jao-streaming-toggle-player)]]) + +(transient-define-prefix jao-transient-media () + [["Play" + ("m" "toggle" jao-player-toggle) + ("n" "next" jao-player-next) + ("p" "previous" jao-player-previous) + ("s" "select album" jao-player-select-album)] + ["Seek and search" + ("f" "seek fwd" jao-player-seek-10 :transient t) + ("F" "seek bwd" jao-player-seek--10 :transient t) + ("a" "search album" jao-mpc-select-album) + ("S" "play stream" jao-mpc-play-stream)] + ["Browse" + ("b" "browse" jao-player-browse) + ("l" "show play list" jao-player-list) + ("L" "show lyrics" jao-show-lyrics) + ("w" "now playing" jao-player-echo)] + [:description + (lambda () + (message "%s %s" + (if (jao-mpc-mopidy-p) "mopidy" "mpd") + (if (jao-mpc-playing-p) + (jao-mpc--current-timestr t) + (jao-mpc--current-str))) + (format "Master %s%%" (jao-mixer-get-level nil t))) + ("d" "down" jao-mixer-master-down :transient t) + ("u" "up" jao-mixer-master-up :transient t) + ("M" "toggle" jao-mixer-master-toggle)] + [:description + (lambda () (format "Capture %s%%" (jao-mixer-get-level "Capture" t))) + ("D" "down" jao-mixer-capture-down :transient t) + ("U" "up" jao-mixer-capture-up :transient t)] + ["Utilities" + ("c" "reconnect to mpd" jao-player-connect) + ("N" "next random album" jao-random-album-next) + ("r" (lambda () + (concat (if jao-random-album-active "dis" "en") "able random album")) + jao-random-album-toggle) + ;; ("P" (lambda () (concat "Toggle to " (if (jao-mpc-mopidy-p) "mpd" "mopidy"))) + ;; jao-mpc-toggle-port) + ("P" "pasystray" jao-toggle-pasystray-applet)]]) + +(global-set-key (kbd "s-m") #'jao-transient-media) + +;;; Graphical window system +;;;; x11 utils +(defun jao-xdotool (arg-or-wait &rest args) + (apply 'jao-shell-exec* + (if (stringp arg-or-wait) "xdotool" arg-or-wait) + (if (stringp arg-or-wait) arg-or-wait "xdotool") + args)) + +(defsubst jao-xdotool-string (&rest args) + (apply 'jao-shell-string "xdotool" args)) + +(defsubst jao-x11-focused-id () (jao-xdotool-string "getwindowfocus")) + +(defsubst jao-x11-window-name (&optional wid) + (jao-xdotool-string "getwindowname" (or wid (jao-x11-focused-id)))) + +(defsubst jao-x11-search-window (title) + (jao-xdotool-string "search" "--name" title)) + +(defsubst jao-x11-goto-ws (n) (jao-xdotool t "set_desktop" (format "%s" n))) + +;;;; exwm +(defvar jao-exwm-enabled nil) +(defun jao-exwm-enabled-p () jao-exwm-enabled) + +(defun jao-exwm-enable () + (require 'jao-custom-exwm) + (setq jao-exwm-enabled t) + (display-time-mode -1) + (jao-ednc-setup 95) + (exwm-enable) + (x-change-window-property "_XMONAD_TRAYPAD" "" nil nil nil nil 0) + (jao-mode-line-add-to-minibuffer-left 90) + (jao-xmobar-restart) + (jao-trisect t)) + +;;;; xmonad +(defvar jao-xmonad-enabled (string= "xmonad" (or (getenv "wm") ""))) +(defun jao-xmonad-enabled-p () jao-xmonad-enabled) + +(defun jao-xmonad-enable () + (setq jao-browse-doc-use-emacs-p (display-graphic-p)) + (setq jao-mode-line-in-minibuffer nil) + (display-battery-mode -1) + (jao-trisect) + (message "Welcome to xmonad")) + +(when jao-xmonad-enabled + (add-hook 'after-init-hook #'jao-xmonad-enable)) + +;;;; wayland + +(use-package jao-wayland :demand t) + +(defun jao-wayland-enable () + (interactive) + (defalias 'x-change-window-property #'ignore) + (jao-trisect) + (message "Welcome to wayland")) + +(defun jao-river-enable () + (jao-wayland-enable) + (when (jao-shell-running-p "i3bar-river") + (jao-tracking-set-log "")) + (message "Welcome to river")) + +(when jao-river-enabled + (add-hook 'after-init-hook #'jao-river-enable t)) + +(when jao-sway-enabled + (add-hook 'after-init-hook #'jao-wayland-enable t)) + +;;;; wallpaper +(defvar jao-wallpaper-dir "~/.wallpapers/") + +(defvar jao-wallpaper-random-candidates + '("wallpaper.jpg" "wallpaper2.jpg")) + +(defvar jao-wallpaper-random-candidates-light + '("wallpaper.jpg" "wallpaper2.jpg")) + +(defvar jao-wallpaper-random-wake t + "Set to t for getting a new wallpaper on awaking from sleep") + +(defun jao-set-wallpaper (&optional path) + (interactive) + (let ((current (format "~/.wallpaper.%s" (jao-colors-scheme)))) + (when-let ((f (or (and path (expand-file-name path)) + (read-file-name "Image: " + jao-wallpaper-dir + (file-symlink-p current) + t)))) + (make-symbolic-link f current t) + (cond (jao-river-enabled (jao-river-set-wallpaper f)) + (jao-sway-enabled (jao-sway-set-wallpaper f)) + (t (shell-command-to-string (format "xwallpaper --zoom %s" f))))))) + +(defun jao-set-random-wallpaper () + (interactive) + (when (or (called-interactively-p 'interactive) + jao-wallpaper-random-wake) + (let* ((ws (if (jao-colors-scheme-dark-p) + jao-wallpaper-random-candidates + jao-wallpaper-random-candidates-light)) + (f (seq-random-elt ws))) + (jao-set-wallpaper (expand-file-name f jao-wallpaper-dir)) + (message "%s" f)))) + +(add-to-list 'jao-sleep-awake-functions #'jao-set-random-wallpaper) + +;;;; screensaver and lock +(defun jao-screensaver-enabled () + (string= (jao-shell-string "xdg-screensaver status") "enabled")) + +(defvar jao-screensaver--wid nil) +(defun jao-screensaver-toggle () + (interactive) + (if (jao-screensaver-enabled) + (let ((wid (jao-x11-focused-id))) + (setq jao-screensaver--wid wid) + (jao-shell-exec* t "xdg-screensaver" "suspend" wid)) + (jao-shell-exec* t "xdg-screensaver" "resume" jao-screensaver--wid) + (setq jao-screensaver--wid nil)) + (jao-notify (format "Screensaver %s" + (jao-shell-string "xdg-screensaver status")))) + +(jao-shell-def-exec jao-xlock-screen "xdg-screensaver" "activate") +(jao-shell-def-exec jao-suspend "sudo" "systemctl" "suspend") +(jao-shell-def-exec jao-poweroff "sudo" "systemctl" "poweroff") + +(defun jao-lock-screen () + (interactive) + (if jao-wayland-enabled + (shell-command "swaylock -i ~/.lockimage") + (jao-xlock-screen))) + +(transient-define-prefix jao-transient-sleep () + ["Sleep" + ("l" "lock screen" jao-lock-screen) + ("z" "sleep" jao-suspend) + ("u" (lambda () + (if (jao-screensaver-enabled) "suspend screensaver" "resume screensaver")) + jao-screensaver-toggle) + ("poof" "power-off" jao-poweroff)]) + +;;;; X clipboard +(setq select-enable-clipboard t + select-enable-primary t + selection-timeout 100 + xterm-select-active-regions t) + +(use-package xclip + :ensure t + :init (setq xclip-method (if jao-wayland-enabled 'wl-copy 'xclip))) + +(unless (display-graphic-p) (xclip-mode 1)) + +;;;; pop-up frames +(defun jao-open-in-x-frame (&optional width height) + (interactive) + (make-frame `((window-system . x) + (name . "emacs popup") + (width . ,(or width (window-width))) + (height . ,(or height (window-height))))) + (define-key (current-local-map) "q" #'delete-frame)) + +;;;; xmobar +(defun jao-xmobar-kill () + (interactive) + (shell-command "killall xmobar-single")) + +(defun jao-xmobar-restart () + (interactive) + (jao-xmobar-kill) + (start-process "" nil "xmobar-single" "-d")) + +(use-package tab-bar + :init (setq tab-bar-close-button-show nil + tab-bar-show (> emacs-major-version 28) + tab-bar-format ())) + +(use-package xmobar + :init (setq xmobar-tab-bar t + xmobar-tab-split "*" + xmobar-tab-bar-format + (if window-system + '(xmobar-left-string + tab-bar-format-align-right + xmobar-right-string) + '(xmobar-left-string + xmobar-elastic-space + xmobar-right-string)) + xmobar-command + (if window-system '("xmobar-emacs" "-TAnsi") "xmobar-emacs"))) + +;;; Global transients +(defun jao-list-packages () + (interactive) + (jao-afio-goto-scratch) + (package-list-packages)) + +(defun jao-window-system-p () + (or jao-exwm-enabled jao-xmonad-enabled jao-wayland-enabled)) + +(defun jao-x11-p () (or jao-exwm-enabled jao-xmonad-enabled)) + +(defun jao-reveal () + (interactive) + (cond ((or outline-minor-mode (derived-mode-p 'outline-mode )) + (outline-show-entry)) + ((derived-mode-p 'org-mode) (org-reveal)))) + +(jao-def-exec-in-term "htop" "htop" (jao-afio-goto-scratch)) + +(transient-define-prefix jao-transient-utils () + "Global operations." + [["Notes" + ("n" "create new note" jao-org-notes-create) + ("/" "open note" jao-org-notes-open) + ("\\" "open note by tags" jao-org-notes-consult-tags) + ("g" "ripgrep notes" jao-org-notes-consult-ripgrep)] + ["Documents" + ("dd" "go to doc" jao-select-pdf :if display-graphic-p) + ("do" "open doc" jao-open-doc) + ("dr" "search docs with recoll" jao-recoll-consult-docs)] + ["Monitors" + ("p" "htop" jao-term-htop) + ("P" "pasytray" jao-toggle-pasystray-applet) + ("x" "restart i3bar" jao-river-restart-i3bar :if jao-river-enabled-p) + ("x" "restart xmobar" jao-xmobar-restart :if jao-exwm-enabled-p) + ("x" "kill xmobar" jao-xmobar-kill :if jao-xmonad-enabled-p)] + ["Network" + ("S" "ssh" jao-ssh) + ("b" "bluetooth" bluetooth-list-devices) + ("c" "connect chats" jao-all-chats) + ("m" "proton bridge" run-proton-bridge) + ("v" "view video" jao-view-video)] + ["Chats" + ("t" "telegram" jao-chats-telega) + ("s" "slack" jao-chats-slack) + ("i" "irc" jao-chats-irc) + ("M" "mastodon" jao-mastodon) + ("T" "telegram rooster" jao-telega)] + ["Window system" :if jao-window-system-p + ("w" "set wallpaper" jao-set-wallpaper) + ("W" "set radom wallpaper" jao-set-random-wallpaper) + ("B u" (lambda () + (let ((b (jao-brightness))) + (format "bright up %s" (and (string-match ".*\\((.+)\\).*" b) + (match-string 1 b))))) + jao-bright-up :transient t) + ("B d" "bright down" jao-bright-down :transient t)] + ["Helpers" + ("a" "aptitude" jao-term-aptitude) + ("l" "packages" jao-list-packages) + ("r" "reveal" jao-reveal) + ("k" (lambda () (concat "keyboard" (when (jao-kb-toggled-p) "*"))) + jao-kb-toggle :if jao-x11-p)]]) + +(global-set-key (kbd "s-w") #'jao-transient-utils) + +;;; Global key bindings +(defun jao-global-keybindings () + (interactive) + (global-set-key (kbd "<f2>") #'magit-status) + (global-set-key (kbd "C-x p") #'jao-prev-window) + (global-set-key (kbd "C-x o") 'other-window) + (global-set-key "\C-cj" #'join-line) + (global-set-key "\C-cn" #'next-error) + (global-set-key "\C-cq" #'auto-fill-mode) + (global-set-key "\C-xr\M-w" #'kill-rectangle-save) + (global-set-key "\C-c\C-z" #'comment-or-uncomment-region) + (global-set-key "\C-z" #'comment-or-uncomment-region)) + +(jao-global-keybindings) + +;;; Last minute (post.el) +(jao-load-site-el "post") |