Thursday, March 20, 2014
;; this should delete the last line 00:00
(let ((beg (point)))
(forward-line 0)
(delete-region beg (point)))
;;then do this
(goto-char (point-min))
this solves that first problem
then
then use this in autohotkey
make-emacs-top.ahk
SetTitleMatchMode 1
WinActivate emacs
WinSet, AlwaysOnTop, On, emacs
WinSet, Top, ,emacs
Return
Sunday, March 16, 2014
defun get-stuff ()
(interactive)
(shell-command '"c:/user/get.ahk")
(goto-char (point-min))
(delete-region
(re-search-forward "00\:00")
(point-max))
(goto-char 1)
(message " hi there meshulum"))
(defun clean-stuff ()
(interactive)
(goto-char (point-min))
(delete-region
(re-search-forward "00\:00")
(point-max))
(goto-char 1)
(message " hi there user"))
(defun both-stuff ()
(interactive)
(progn
(get-stuff)
(clean-stuff)
))
(defun put-stuff ()
(interactive)
(kill-ring-save (point-min) (point-max))
(shell-command '"c:/ure/put.ahk"))
put.ahk
SetTtileMatchMode 1
text=%Clipboard%
WinActivate Nuance
Send ^a
Send {Del}
Sleep 100
Clipboard = %text%
WinActivate Nuance
Send ^v
Return
get.ahk
SetTitleMatchMode 1
WinWait Nuance
WinGetText, text;
Clipboard = %text%
WinActivate eamcs
Send ^y
Return
(interactive)
(shell-command '"c:/user/get.ahk")
(goto-char (point-min))
(delete-region
(re-search-forward "00\:00")
(point-max))
(goto-char 1)
(message " hi there meshulum"))
(defun clean-stuff ()
(interactive)
(goto-char (point-min))
(delete-region
(re-search-forward "00\:00")
(point-max))
(goto-char 1)
(message " hi there user"))
(defun both-stuff ()
(interactive)
(progn
(get-stuff)
(clean-stuff)
))
(defun put-stuff ()
(interactive)
(kill-ring-save (point-min) (point-max))
(shell-command '"c:/ure/put.ahk"))
put.ahk
SetTtileMatchMode 1
text=%Clipboard%
WinActivate Nuance
Send ^a
Send {Del}
Sleep 100
Clipboard = %text%
WinActivate Nuance
Send ^v
Return
get.ahk
SetTitleMatchMode 1
WinWait Nuance
WinGetText, text;
Clipboard = %text%
WinActivate eamcs
Send ^y
Return
Thursday, March 13, 2014
write interactive emacs functin
global-set-key (kbd "C-c C-g")
(lambda ()
(interactive)
(shell-command "/home/user/trial.pl")))
(lambda ()
(interactive)
(shell-command "/home/user/trial.pl")))
Sunday, March 9, 2014
ideas to capture to emacs and avoid nuance
SetTitleMatchMode 1
WinWait Nuance
WinGetText, text ;
MsgBox, the text is: `n%text%
WinActivate Nuance
Send ^a
Send {Del}
Sleep 100
Clipboard = %text%
WinActivate Nuance
Send ^v
Return
Subscribe to:
Posts (Atom)