| 12345678910111213141516171819202122232425262728293031323334353637383940 |
- (defun define-word ()
- ;; TODO: needs refinement
- (interactive)
- (let ((myword (word-at-point)))
- ;; (message (shell-command-to-string (concat "mw " myword)))))
- (with-current-buffer (current-buffer)
- (save-excursion
- (set-buffer "worddef")
- (erase-buffer)))
- (call-process "mw" nil "worddef" nil myword)
- (with-current-buffer (current-buffer)
- (save-excursion
- (set-buffer "worddef")
- (ansi-color-apply-on-region (point-min) (point-max))))
- (display-buffer-pop-up-window (get-buffer "worddef") '())))
- ;; for tidying sexps
- (defun easy-indent-sexp ()
- (interactive)
- (end-of-defun)
- (backward-sexp)
- (indent-pp-sexp)
- (forward-sexp))
- (define-key lisp-mode-map (kbd "M-q") 'easy-indent-sexp)
- (define-key emacs-lisp-mode-map (kbd "M-q") 'easy-indent-sexp)
- ;; for writing keybindings and notes
- (defun notate-key-sequence ()
- (interactive)
- (insert (key-description (cdar (help--read-key-sequence t)))))
- (define-key global-map (kbd "C-c c") 'notate-key-sequence)
- ;; for working with messy json
- (defun tidy-json ()
- "Tidies the json in the buffer using python."
- (interactive)
- (shell-command-on-region (point-min) (point-max)
- "python3 -m json.tool"
- (current-buffer)
- t "*Python Json Error Buffer*" t))
|
