daniel/emacs-conf
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update packages

Browse Source
This commit is contained in:
Daniel Weschke
2025-06-22 17:08:08 +02:00
parent 54e5633369
commit 16a0a6db93
558 changed files with 68349 additions and 26568 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
lisp/polymode/polymode.el
View File

@@ -3,7 +3,8 @@
;; Author: Vitalie Spinu
;; Maintainer: Vitalie Spinu <spinuvit@gmail.com>
;; Copyright (C) 2013-2022 Free Software Foundation, Inc.
;; Version: 0.2.2
;; Package-Version: 20250617.1033
;; Package-Revision: 25ba9463a443
;; Package-Requires: ((emacs "25"))
;; URL: https://github.com/polymode/polymode
;; Keywords: languages, multi-modes, processes
@@ -46,10 +47,17 @@
(require 'easymenu)
(require 'derived)
(defvar polymode-prefix-key nil
"[Obsoleted] Prefix key for the polymode mode keymap.
Not effective after loading the polymode library.")
(make-obsolete-variable 'polymode-prefix-key "Unbind in `polymode-mode-map'" "v0.1.6")
(defvar polymode-prefix-key "\M-n"
"Default prefix key in `polymode-minor-mode-map'.
Not effective after loading the polymode library.
Instead of setting this key you can programatically bind it directly
in `polymode-minor-mode-map` keymap:
(define-key polymode-minor-mode-map (kbd \"M-n\") nil)
;unbind the default M-n prefix
(define-key polymode-minor-mode-map (kbd \"C-c n\") polymode-map)
")
(defvar polymode-map
(let ((map (define-prefix-command 'polymode-map)))
@@ -63,23 +71,25 @@ Not effective after loading the polymode library.")
;; chunk manipulation
(define-key map "\M-k" #'polymode-kill-chunk)
(define-key map "\M-m" #'polymode-mark-or-extend-chunk)
(define-key map "\M-w" #'polymode-kill-ring-save-chunk)
(define-key map "\C-t" #'polymode-toggle-chunk-narrowing)
;; backends
(define-key map "e" #'polymode-export)
(define-key map "E" #'polymode-set-exporter)
(define-key map "w" #'polymode-weave)
(define-key map "W" #'polymode-set-weaver)
(define-key map "t" #'polymode-tangle)
(define-key map "T" #'polymode-set-tangler)
;; (define-key map "t" #'polymode-tangle)
;; (define-key map "T" #'polymode-set-tangler)
(define-key map "$" #'polymode-show-process-buffer)
map)
"Polymode prefix map.
Lives on `polymode-prefix-key' in polymode buffers.")
By default, lives on `polymode-prefix-key' in polymode buffers.")
(defvaralias 'polymode-mode-map 'polymode-minor-mode-map)
(defvar polymode-minor-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (or polymode-prefix-key "\M-n") 'polymode-map)
(when polymode-prefix-key
(define-key map polymode-prefix-key 'polymode-map))
map)
"The minor mode keymap which is inherited by all polymodes.")
@@ -236,6 +246,23 @@ Return the number of chunks of the same type moved over."
(pm-span-to-range span)
(pm-chunk-range (1- (nth 1 span))))))))
(defun polymode-kill-ring-save-chunk ()
"Copy current chunk into the kill-ring.
When in the head of chunk, copy the chunk including the head and tail,
otherwise only the body span.
When called interactively, highlight the copie region for `copy-region-blink-delay'."
(interactive)
(let ((span (pm-innermost-span)))
(let ((range (if (memq (car span) '(nil body))
(pm-span-to-range span)
(pm-chunk-range))))
(copy-region-as-kill (car range) (cdr range))
(when (called-interactively-p 'interactive)
(let ((overlay (make-overlay (car range) (cdr range))))
(overlay-put overlay 'face 'highlight)
(run-with-timer copy-region-blink-delay nil
(lambda () (delete-overlay overlay))))))))
(defun polymode-mark-or-extend-chunk ()
"DWIM command to repeatedly mark chunk or extend region.
When no region is active, mark the current span if in body of a
@@ -435,7 +462,7 @@ non-nil, don't throw if `polymode-eval-region-function' is nil."
(pi parent-conf)
(parent-map))
(while pi
(let ((map (and (slot-boundp pi :keylist)
(let ((map (and (slot-boundp pi 'keylist)
(eieio-oref pi 'keylist))))
(when map
(if (and (symbolp map)
@@ -445,7 +472,7 @@ non-nil, don't throw if `polymode-eval-region-function' is nil."
(setq parent-map map
pi nil)
;; list, descend to next parent and append the key list to keylist
(setq pi (and (slot-boundp pi :parent-instance)
(setq pi (and (slot-boundp pi 'parent-instance)
(eieio-oref pi 'parent-instance))
keylist (append map keylist))))))
(when (and parent-map (symbolp parent-map))