(defun cm-fast-step-upward ()
  "Step 3 lines up, recenteres the screen."
  (interactive)
  (forward-line -3)
  (recenter))

(defun cm-fast-step-downward ()
  "Step 3 lines down, recenteres the screen."
  (interactive)
  (forward-line 3)
  (recenter))

(defun cm-find-any-bracket-forward()
  "Search for "_}_]_'_>_)_end forward"
  (interactive)
  (re-search-forward "["}'>)]\|\(end\)\|\]"))

(defun cm-find-any-bracket-backward()
  "Search for "_{_[_'_<_(_begin forward"
  (interactive)
  (re-search-backward "["{'<(]\|\(begin\)\|\["))

(defun cm-find-nonspace-backward()
  "Search for non tab, space, newline symbol backward."
  (interactive)
  (if (and
        (search-backward-regexp "[
  ]" (point-min) t)
        (search-backward-regexp "[^
  ]" (point-min) t))
    (forward-char)
    (goto-char (point-min))))

(defun cm-find-nonspace-forward()
  "Search for non tab, space, newline symbol backward."
  (interactive)
  (if (and
        (search-forward-regexp "[
  ]" (point-max) t)
        (search-forward-regexp "[^
  ]" (point-max) t))
  (backward-char)
  (goto-char (point-max))))

(defun cm-backward-delete-word(&optional arg)
  "DELETE word before cursor. Warning, this word cannot be yanked."
  (interactive "p")
  (let ((beg (point)))
    (backward-word arg)
    (delete-region beg (point))) )

(defun cm-delete-word(&optional arg)
  "DELETE word after cursor. Warning, this word cannot be yanked."
  (interactive "p")
  (let ((beg (point)))
    (forward-word arg)
    (delete-region beg (point))) )

(defun cm-delete-line(&optional arg)
  "DELETE line after cursor. Warning, this line cannot be yanked."
  (interactive "P")
  (if (equal arg '-) (setq arg -1))
  (let ((beg (point)))
    (if arg (forward-line arg)
    (goto-char (point-at-eol)))
    (if (= beg (point))
      (delete-char 1 nil)
      (delete-region beg (point)))))

(defun cm-reverse-region (&optional arg)
  "Reverse current region, like this: "a(bc) d" -> "d )cb(a"."
  (interactive "P")
  (let ((reversed (apply 'string (reverse (string-to-list (buffer-substring-no-properties (region-beginning) (region-end)))))))
    (delete-region (region-beginning) (region-end))
    (insert reversed)))

(provide 'cmmove)

(global-set-key [?H-f] 'cm-find-nonspace-forward)
(global-set-key [?H-b] 'cm-find-nonspace-backward)
(global-set-key [?H-]] 'cm-find-any-bracket-forward)
(global-set-key [?H-[] 'cm-find-any-bracket-backward)
(global-set-key [?H-p] 'cm-fast-step-upward)
(global-set-key [?H-n] 'cm-fast-step-downward)
(global-set-key (kbd "H-t") 'cm-reverse-region)

thing-at-point-utils.el

(global-set-key [(control c)(<)] 'ar-lesser-angle-or-copy-atpt)
(global-set-key [(control c)(>)] 'ar-greater-angle-or-copy-atpt)
(global-set-key [(control c)(")] 'ar-doublequote-or-copy-atpt)
(global-set-key [(control c)(')] 'ar-singlequote-or-copy-atpt)
(global-set-key [(control c)())] 'ar-parentize-or-copy-atpt)
(global-set-key [(control c)(\)] 'ar-backslash-or-copy-atpt)
(global-set-key [(control c)(])] 'ar-bracket-or-copy-atpt)
(global-set-key [(control c)(})] 'ar-brace-or-copy-atpt)
(global-set-key [(control c)(_)] 'ar-underscore-or-copy-atpt)
(global-set-key [(control c)(super })] 'ar-brace-or-copy-atpt)
(global-set-key [(control c)(/)] 'ar-slash-or-copy-atpt)

https://launchpad.net/s-x-emacs-werkstatt