| 12345678910111213141516171819202122232425262728293031323334353637383940 |
- ;; <https://www.reddit.com/r/emacs/comments/7htdzk/show_reddit_prettyprint_debugger_frames/>
- (defun wi-debugger-pp-frame ()
- (interactive)
- (let ((inhibit-read-only t)
- (frame (backtrace-frame (debugger-frame-number))))
- (set-buffer (pop-to-buffer "*BT: Frame*"))
- (cl-destructuring-bind (special fn &rest args) frame
- (erase-buffer)
- (progn
- (insert "(" (pp-to-string fn))
- (dolist (arg args)
- (insert "\n" (pp-to-string arg)))
- (insert ")"))
- (goto-char (point-min))
- (indent-pp-sexp))))
- ;; (define-key debugger-mode-map "r" 'wi-debugger-pp-frame)
- (defun wi-god-mode-update-cursor ()
- (let ((limited-colors-p (> 257 (length (defined-colors)))))
- (cond
- (god-local-mode
- (progn
- (set-face-background
- 'mode-line
- (if limited-colors-p "white" "#e9e2cb"))
- (set-face-background
- 'mode-line-inactive
- (if limited-colors-p "white" "#e9e2cb"))))
- (t (progn
- (set-face-background
- 'mode-line
- (if limited-colors-p "black" "grey75"))
- (set-face-background
- 'mode-line-inactive
- (if limited-colors-p "grey20" "grey90")))))))
- (add-hook 'god-mode-enabled-hook 'wi-god-mode-update-cursor)
- (add-hook 'god-mode-disabled-hook 'wi-god-mode-update-cursor)
|
