;; -*- 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)) (defvar jao-org-dir (expand-file-name "~/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 file and preamble ;;;; 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 (pre.el) (jao-load-site-el "pre") ;;; System Utilities ;;;; (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-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 (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")) :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 '("%2c %2l" (:eval (format " %d " (line-number-at-pos (point-max)))))) (line-number-mode -1) (column-number-mode -1) ;;;; jao-mode-line (defvar jao-mode-line-in-minibuffer nil) (use-package jao-mode-line :commands (jao-mode-line-add-to-minibuffer jao-mode-line-remove-from-minibuffer)) (add-hook 'after-init-hook (lambda () (when jao-mode-line-in-minibuffer (jao-mode-line-add-to-minibuffer 90)))) ;;;; 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") ;;;; 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 (("" . jao-mode-line-toggle-inactive) ("" . jao-mode-line-toggle) ("" . jao-mode-line-echo))) ;;;; diminish (use-package diminish :ensure t :demand t :diminish ((auto-fill-function . " §") (auto-revert-mode . "") (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 (require 'jao-notify) ;;;; 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") jao-tracking-use-scratch t) :config (jao-tracking-setup)) ;;;; tmr (use-package tmr :ensure t :init (setq tmr-sound-file "/usr/share/sounds/freedesktop/stereo/message.oga")) ;;;; pulsar (use-package pulsar :ensure t :demand t :diminish :custom ((pulsar-pulse t) (pulsar-delay 0.1) (pulsar-iterations 10) (pulsar-face 'pulsar-yellow) (pulsar-highlight-face 'jao-themes--hilite)) :config (dolist (f '(jao-prev-window smartscan-symbol-go-forward smartscan-symbol-go-backward)) (add-to-list 'pulsar-pulse-functions f)) :hook ((jao-afio-switch . pulsar-pulse-line) (consult-after-jump . pulsar-reveal-entry) (imenu-after-jump . pulsar-reveal-entry) (next-error . pulsar-pulse-line))) (pulsar-global-mode 1) ;;; 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-location-name "Edinburgh, Scotland" calendar-mark-diary-entries-flag t 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 "") #'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) (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 tab-always-indent t) (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 (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) (setq 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 "o" (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) (define-key other-window-repeat-map "p" 'jao-prev-window) (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) ;;;; switch window (use-package switch-window :ensure t :custom ((switch-window-minibuffer-shortcut ?z) (switch-window-background t) (switch-window-shortcut-style 'qwerty) (switch-window-shortcut-appearance 'text) (switch-window-timeout 7) (switch-window-threshold 2)) :config (defun jao-switch-window--then (prompt cmd) (let ((f `(lambda () (let ((default-directory ,default-directory)) (call-interactively ',cmd))))) (switch-window--then prompt f f))) (defun jao-switch-window-then-dired () (interactive) (jao-switch-window--then "Find directory" 'dired)) (defun jao-switch-window-then-find-file () (interactive) (jao-switch-window--then "Find file" 'find-file)) (defun jao-switch-window-then-consult-buffer () (interactive) (jao-switch-window--then "Switch to buffer" 'consult-buffer)) :bind (("s-o" . switch-window) ("C-x 4 d" . jao-switch-window-then-dired) ("C-x 4 f" . jao-switch-window-then-find-file) ("C-x 4 b" . jao-switch-window-then-consult-buffer))) ;;;; 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 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 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))) ;; used by markdown mode to edit code blocks (use-package edit-indirect :ensure t) (use-package markdown-toc :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 () (let* ((def (jao-url-around-point t)) (prompt (concat "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))) (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" "twitter.com" "t.com" "linkedin.com" "bigml.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) :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 (setq jao-afio-mail-function 'gnus) (require 'jao-custom-email) (require 'jao-custom-notmuch) ;;; 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) ;;;; term (defvar-local jao-term--cmd nil) (defun jao-term--find (cmd) (seq-find (lambda (b) (with-current-buffer b (and (derived-mode-p 'term-mode 'vterm-mode) (string= (or jao-term--cmd "") cmd)))) (buffer-list))) (defun jao-exec-in-term (cmd &optional name) (if (and jao-use-vterm (fboundp 'jao-exec-in-vterm)) (jao-exec-in-vterm cmd name) (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))))) (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)) (setq-local jao-term--cmd ,cmd))))) ;;;; eshell ;;;;; basic custom (use-package eshell :init (setq eshell-directory-name "~/.emacs.d/eshell" eshell-hist-ignoredups 'erase eshell-error-if-no-glob t) (defun jao-eshell--outline () (setq-local outline-regexp eshell-prompt-regexp)) :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)) ;;;;; history (setq eshell-history-size 10000) ;;;;; toggle (use-package jao-eshell-here :demand t :config (jao-define-attached-buffer "^\\*eshell" 0.5) :bind (("" . jao-eshell-here-toggle) ("C-" . 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) :bind ((:map forge-topic-mode-map ("M-w" . copy-region-as-kill)))) ;;;; 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)) ;;;; code reviews (use-package code-review :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) ;; 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) :bind (:map prog-mode-map (("M-i" . symbol-overlay-put) ("M-n" . symbol-overlay-switch-forward) ("M-p" . symbol-overlay-switch-backward))) :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 "") . 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) (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 (("" . 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 (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) ("" . 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))) (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"))))) ;;;; Racket (use-package racket-mode :ensure t :init (setq racket-show-functions '(racket-show-echo-area) racket-documentation-search-location 'local) :config (jao-define-attached-buffer "\\`\\*Racket REPL") (jao-define-attached-buffer "\\`\\*Racket Describe" 0.5) (add-hook 'racket-mode-hook #'paredit-mode) (require 'racket-xp) (add-hook 'racket-mode-hook #'racket-xp-mode) :bind (:map racket-xp-mode-map (("C-c C-S-d" . racket-xp-documentation) ("C-c C-d" . racket-xp-describe)))) ;;;; Python (use-package virtualenvwrapper :ensure t :config (venv-initialize-eshell) (jao-compilation-env "VIRTUAL_ENV")) ;;; Text/data formats ;;;; yaml (use-package yaml-mode :ensure t) ;;; Graphics ;;;; images (setq image-use-external-converter t) (setq widget-image-enable nil) ;;;; gnuplot (use-package gnuplot :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))) ;;;; enwc (use-package enwc :ensure t :custom ((enwc-default-backend 'nm) (enwc-wired-device "wlp164s0") (enwc-wireless-device "wlp164s0") (enwc-display-mode-line nil))) ;;;; 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 '()) (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 () (if jao-mode-line-in-minibuffer (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)))) (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)))) (jao-shorten-modes 'circe-channel-mode 'circe-server-mode 'circe-query-mode) (enable-circe-display-images) (enable-lui-track) (circe-lagmon-mode)) ;;;; slack (use-package slack :ensure t :commands (slack-start) :init (setq slack-alert-icon (jao-data-file "slack.svg") slack-buffer-emojify nil slack-buffer-create-on-notify t slack-display-team-name t slack-typing-visibility 'buffer ;; 'never, 'buffer, 'frame slack-thread-also-send-to-room t slack-profile-image-file-directory "/tmp/slack-imgs/" slack-image-file-directory "/tmp/slack-imgs/" slack-file-dir "~/var/download/slack/" slack-prefer-current-team t slack-message-tracking-faces '(warning) slack-log-level 'warn slack-message-custom-notifier (lambda (_msg room _team) room)) :bind (:map slack-mode-map (("@" . slack-message-embed-mention) ("#" . slack-message-embed-channel)) :map slack-message-buffer-mode-map (("C-c C-e" . slack-message-edit) ("C-c C-a" . slack-file-upload))) :hook ((slack-file-info-buffer-mode . view-mode)) :config (dolist (f (list slack-file-dir slack-image-file-directory)) (when (not (file-exists-p f)) (make-directory f))) (jao-shorten-modes 'slack-message-buffer-mode 'slack-thread-message-buffer-mode) (jao-tracking-faces 'warning) (jao-tracking-cleaner "logstash-\\([^-]+\\)-\\(.+\\)" "\\2-\\1") (jao-tracking-cleaner "^\\*Slack - .*? : \\(mpdm-\\)?\\([^ ]+\\)\\( \\(T\\)\\)?.*" "\\2\\4") (jao-define-attached-buffer "\\*Slack .+ Edit Message [0-9].+" 20)) ;;;; 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-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 (if (display-graphic-p) #'find-file #'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) (when jao-tracking-use-scratch (jao-afio-goto-scratch)) (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")) ;;;; startup (defun jao-chats (&optional p) (interactive "P") (when (or p (y-or-n-p "Connect to slack? ")) (slack-start)) (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 (or p (y-or-n-p "Connect to libera? ")) (unless (get-buffer "irc.libera.chat:6697") (circe "Libera Chat")))) (defun jao-all-chats () (interactive) (when jao-tracking-use-scratch (jao-afio-goto-scratch) (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 "") #'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)) (use-package jao-mpris :demand t) (defun jao-mpris-setup-aliases () (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)) ;;;; 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 (if jao-mode-line-in-minibuffer -10 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) (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 ;; (jao-spt-set-up) (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))) (defvar jao-spt-on nil) (defun jao-spt-on-p () jao-spt-on) (jao-def-exec-in-term "spt" "spt" (jao-afio-goto-scratch 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")) (message "%s activated " (if (setq jao-spt-on (not jao-spt-on)) "spt" "mpris"))) ;;;; 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)) (jao-def-exec-in-term "htop" "htop" (jao-afio-goto-scratch)) (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-search-and-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") (jao-mpc--current-str nil t)) (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)]]) (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) (exwm-enable) (x-change-window-property "_XMONAD_TRAYPAD" "" nil nil nil nil 0) (if (> emacs-major-version 28) (xmobar-mode 1) (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-wallpaper-random-wake t) (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")) (defun jao-screensaver-toggle () (interactive) (let ((wid (jao-x11-focused-id))) (if (jao-screensaver-enabled) (jao-shell-exec* "xdg-screensaver" "suspend" wid) (jao-shell-exec* "xdg-screensaver" wid)) (jao-notify (format "Using '%s'" (jao-x11-window-name wid)) (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" "enable/disable screensaver" jao-screensaver-toggle) ("poof" "power-off" jao-poweroff)]) ;;;; mouse (use-package disable-mouse :ensure t :diminish ((disable-mouse-global-mode . ""))) (global-disable-mouse-mode) ;;;; 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 "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)))) (transient-define-prefix jao-transient-utils () "Global operations." [["Notes" ("n" "create new note" jao-org-notes-create) ("/" "open note" jao-org-notes-open) ("d" "go to doc" jao-select-pdf :if display-graphic-p) ("d" "search docs" jao-recoll-consult-docs :if-not display-graphic-p) ("D" "open doc" jao-open-doc)] ["Monitors" ("p" "htop" jao-term-htop) ("v" "vpn status" jao-mullvad-status) ("m" "set tmr" tmr) ("x" "restart i3bar" jao-river-restart-i3bar :if jao-river-enabled-p) ("x" "restart xmobar" 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) ("N" "network interfaces" enwc)] ["Chats" ("t" "telegram" jao-chats-telega) ("s" "slack" jao-chats-slack) ("i" "irc" jao-chats-irc) ("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) ("M" (lambda () (concat "minibuffer" (when jao-minibuffer-mode "*"))) jao-minibuffer-mode)]]) (global-set-key (kbd "s-w") #'jao-transient-utils) ;;; Global key bindings (defun jao-global-keybindings () (interactive) (global-set-key (kbd "") #'magit-status) (global-set-key (kbd "C-x p") #'switch-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")