boon/boon-extras.el

;;; boon-extras.el --- An Ergonomic Command Mode  -*- lexical-binding: t -*-

;;; Commentary:

;; This module provides (arguably) more useful bindings to the "x"
;; prefix map.

;;; Code:

(require 'boon-core)
(require 'boon-main)

(defun boon-adjust-indent ()
 "Adjust indentation of the region or current line."
 (interactive)
 (unless (use-region-p)
   (set-mark (line-beginning-position))
   (end-of-line))
 (call-interactively 'indent-rigidly))

(defun boon-open-word ()
  "Insert a new word."
  (interactive)
  (unless (eq (preceding-char) 32)
    (insert (make-string 1 32)))
  (unless (eq (following-char) 32)
    (insert (make-string 1 32))
    (backward-char 1))
  (boon-set-insert-state))


(defun boon-query-replace ()
  "Query replace; but if the region is active, replace its contents"
  (interactive)
  (if (and (use-region-p) (eq (- (line-number-at-pos (region-end)) (line-number-at-pos (region-beginning))) 0))
      (let ((selection (buffer-substring-no-properties (region-beginning) (region-end))))
      (perform-replace
       selection
       (read-string "Replace region with:")
       t ; query
       nil ; not a regexp
       nil ; not delimited
       nil ; no specific repeat count
       nil ; default keymap 
       (point-min-marker)
       (point-max-marker) ; replace in the whole buffer
       ))
    (call-interactively 'query-replace)))

(defun boon-prepare-mark ()
  (unless (use-region-p) (call-interactively 'boon-mark-region))
  (when (not (bound-and-true-p multiple-cursors-mode))
    (when (> (mark) (point))
      (exchange-point-and-mark)
      ;; this is to work-around a bug in multiple cursors,
      ;; where the currently marked things is unmarked if the point is after the mark.
      )))

(defun boon-mark-next-like-this ()
  (interactive)
  (boon-prepare-mark)
  (call-interactively 'mc/mark-next-like-this))

(defun boon-mark-previous-like-this ()
  (interactive)
  (boon-prepare-mark)
  (call-interactively 'mc/mark-previous-like-this))    


(defun boon-toggle-comment (regs)
  "Toggle comments in the regions REGS."
  (interactive (list (boon-spec-region "toggle comment")))
  (dolist (reg regs)
    (comment-or-uncomment-region (min (car reg) (cdr reg))
                                 (max (car reg) (cdr reg)))))

(defvar boon-flycheck-map
  (let ((pmap (make-sparse-keymap)))
    (define-key pmap "m" 'flycheck-mode)
    (define-key pmap "y" 'flycheck-buffer)
    (define-key pmap "C" 'flycheck-clear)
    (define-key pmap "r" 'flycheck-compile)
    (define-key pmap "n" 'flycheck-next-error)
    (define-key pmap "p" 'flycheck-previous-error)
    (define-key pmap "l" 'flycheck-list-errors)
    (define-key pmap "t" 'flycheck-copy-messages-as-kill)
    (define-key pmap "/" 'flycheck-google-messages)
    (define-key pmap "s" 'flycheck-select-checker)
    (define-key pmap "e" 'flycheck-set-checker-executable)
    (define-key pmap "d" 'flycheck-describe-checker)
    (define-key pmap "i" 'flycheck-info)
    (define-key pmap "V" 'flycheck-version)
    pmap)
  "Keymap to access stuff of `flycheck-mode'.")
  
(define-key boon-x-map "rr" 'boon-query-replace) ; replace the region if it is selected
(define-key boon-x-map "t" 'boon-toggle-comment) ; commenT
(define-key boon-x-map "i" 'boon-adjust-indent)
(define-key boon-x-map [(return)] 'boon-split-line)
(define-key boon-x-map " " 'boon-split-word)

(define-key boon-x-map "-" 'undo-tree-visualize)
(define-key boon-x-map "O" 'previous-window) ;; o is next window
(define-key boon-x-map "S" 'save-some-buffers)
(define-key boon-x-map "\\" 'align-regexp)
(define-key boon-x-map "b" 'ido-switch-buffer)
(define-key boon-x-map "f" 'ido-find-file)
(define-key boon-x-map "h" help-map)
(define-key boon-x-map "j" 'join-line)
(define-key boon-x-map "k" 'kill-this-buffer)
(define-key boon-x-map "l" 'fill-paragraph)
(define-key boon-x-map "M" 'menu-bar-open)
(define-key boon-x-map "s" 'save-buffer)
(define-key boon-x-map "vv" 'magit-status)
(define-key boon-x-map "g" 'magit-status)
(define-key boon-x-map "x" 'helm-M-x)
(define-key boon-x-map "y" boon-flycheck-map)


(provide 'boon-extras)
;;; boon-extras.el ends here