mymacros.el

;; will switch to the shell and run the last comand (M-p)

;; While this is called execute last command it actually executes the command in "register r" C-x rir
(fset 'execute-last-command
   [?\C-c ?5 ?\C-x ?r ?i ?r return])

(global-set-key (kbd "\C-x t") 'execute-last-command)

;; proxy property
(fset 'proxyproperty
   [?\C-  ?\C-s ?: ?\' ?\C-m ?\C-w ?\C-s ?\' ?\C-? ?\' ?\C-m backspace ?\C-k ?\C-  ?\C-a ?\M-w ?\C-e ?  ?= ?  ?P ?R ?o backspace backspace ?r ?o ?x ?y ?P ?r ?o ?p ?e ?r ?t ?y ?\( ?\' ?\C-y ?\' ?\) ?\C-n ?\C-a tab])


;; magically increments next protobuf declaration line, repeat to do all
(fset 'proto-decrement
   "\C-e\342\C-c-\C-n\C-a")

;; magically decrements next protobuf declaration line, repeat to do all
(fset 'proto-increment
   "\C-e\342\C-c=\C-n\C-a")


;; svn info browse url
(fset 'svn-browse-log-current-directory
   [?s ?v ?n ?  ?i ?n ?f ?o return ?\C-r ?h ?t ?t ?p ?\C-r ?\M-k ?\M-> ?\C-y ?\C-a ?\C-s ?s ?v ?n ?\C-m ?\M-b ?\C-d ?\C-d ?\C-d ?t ?r ?a ?c ?\M-f ?\M-f ?\M-b ?l ?o ?g ?/ ?\C-a ?b ?r ?o ?w ?s ?e ?- ?u ?r ?l ? ])
(global-set-key "\C-xvw" 'svn-browse-log-current-directory)



(fset 'extExtendToDefine
   [?E ?x ?t ?. ?d ?e ?f ?i ?n ?e ?\( ?\" ?\C-s ?= ?\C-m left left ?\" ?\) backspace ?, ?  ?\{ return ?\M-x ?z ?a return ?\( ?\C-e backspace backspace ?\C-a ?e ?x ?t ?e ?e backspace ?n ?d ?: ?\" ?\C-e left ?\" ?\C-a tab])


(fset 'extRegToAlias
   [?\C-k ?\C-r ?e ?x ?t ?. ?d ?e ?f ?i ?n ?e ?\C-m ?\C-e ?\C-j ?\C-y ?\C-a ?a ?l ?i ?a ?s ?: ?\M-x ?z ?a return ?\( ?\[ ?\C-d ?\C-f ?w ?i ?d ?g ?e ?t ?. ?\C-e ?\C-  ?\C-r ?, ?\C-m ?\C-k ?\[ backspace ?\C-e ?,])