[emacs-berlin] Werkstatt use-case

[Andreas Röhler]

Hi folks,

thanks providing that nice entertainment.

As requested yesterday here an example how to use the Werkstatt toolkit

https://github.com/andreas-roehler/werkstatt

Maybe try this keys - command-names saying it all:

(global-set-key [(control c) (control \`)(control \<)] 
'ar-backticked2braced-atpt)
(global-set-key [(control c) (control \})(control \])] 
'ar-braced2bracketed-atpt)
(global-set-key [(control c) (control \})(control \$)] 
'ar-braced2dollared-atpt)

A couple of further combinations is available from transform-keys.el

As stuff is in move still, prefer to load the files separately like below.
That permits to comment out single ones, without changing the code in 
source.

If werkstatt resides in home-directory:

;; Subroutines laden
(defun ar-subroutines-laden ()
   (interactive)
   (add-to-list 'load-path (expand-file-name "~/werkstatt/subroutines"))
   (require 'ar-comment-lor)
   (let ((ladeliste
      (list
       "beg-end.el"
       "ar-subr.el"
       "ar-navigate.el"
       "gnu-emacs-fixes.el"
       "test/ar-setup-ert-tests.el"
       "test/ar-subr-ert-tests.el")))
     (dolist (elt ladeliste)
       (load (concat "~/werkstatt/subroutines/" elt) nil t))))

(ar-subroutines-laden)

;; Werkstatt
(defun werkstatt-laden ()
   (interactive)
   (add-to-list 'load-path (expand-file-name 
"~/werkstatt/thing-at-point-utils"))
   (add-to-list 'load-path (expand-file-name 
"~/werkstatt/thing-at-point-utils/test"))
   (let ((ladeliste
      (list
       "test/translate-paired-delimiters-test.el"
       "thing-at-point-extra.el"
       "thing-at-point-utils.el"
       "thing-classes-in-data-forms-aktiv.el"
       "thing-classes-in-delimited-list.el"
       "thing-classes-in-rest-list.el"
       "thing-classes-in-unpaired-delimited-list.el"
       "thing-data-forms-aktiv-in-delimited-list.el"
       "thing-data-forms-aktiv-in-major-forms-restricted-list.el"
       "thing-delimited-list-in-counts-list.el"
       "thing-delimited-list-in-data-forms-aktiv.el"
       "thing-delimited-list-in-delimited-list.el"
       "thing-delimited-list-in-unpaired-delimited-list.el"
       "thing-rest-list-in-region-only.el"
       "thing-unpaired-delimited-list-in-data-forms-aktiv.el"
       "thing-unpaired-delimited-list-in-delimited-list.el"
       "thing-unpaired-delimited-list-in-rest-list.el"
       "thingatpt-count-ratio.el"
       "thingatpt-transform-delimited.el"
       "thingatpt-utils-base.el"
       "thingatpt-utils-test.el"
       "translate-paired-delimiters.el"
       "thingatpt-utils-base.el"
       "transform-alias.el"
       "transform-keys.el"
       "thing-at-point-peel.el"
       "thingatpt-transform-generic-delimited.el"
       "thingatpt-transform-generic-delimited-keys.el"
       )))
     (dolist (elt ladeliste)
       (load (concat "~/werkstatt/thing-at-point-utils/" elt) nil t))))

(werkstatt-laden)


Suggestions, patches etc. are welcome.

Enjoy,

Andreas