一直在寻找sitman的代替软件

styrene

有那位高手推荐一个。

学习英语也需要阿。

styrene

自顶一下

类似的也行啊

threedot

emacs 的插件,调用mpg321来播放,凑合能用.

将要听的mp3复制到/tmp/voa.mp3
f5播放,Shift-f5退出
f6跳到A-B区间的开头
Shift-f6暂停
f7设置复度区间的结尾B点
f8进入下一个区间

1. 
   
2. (defvar repeater-process-name "repeater-proc"
   
3.   "The name of the mpg321 remote player process")
   
4. (defvar repeater-music-name "/tmp/voa.mp3"
   
5.   "The default mp3 to be played")
   
6. (defvar var-repeater-insert-end-point 0)
   
7. (defvar repeater-begin 0)
   
8. (defvar repeater-end 0)
   
9. 
   
10. (defun repeater-start-process ()
    
11.   (interactive)
    
12.   "Run the mpg321 as the background program."
    
13.   (let ((process (apply 'start-process
    
14.                         repeater-process-name
    
15.                         nil
    
16.                         "mpg123"
    
17.                         (list "-R" "-"))));;"-o alsa"
    
18.     (set-process-sentinel process 'repeater-sentinel)
    
19.     (set-process-filter process 'repeater-filter)
    
20.     process))
    
21. 
    
22. (defun repeater-filter (proc str)
    
23.   (let* ((data-lines (split-string str "\n" t))
    
24.          data line cmd)
    
25.     (dolist (line data-lines)
    
26.       (setq data (split-string line))
    
27.       (setq cmd (car data))
    
28.       (cond
    
29.        ;; stop notice
    
30.        ((and (string= cmd "@P")
    
31.              (string= (cadr data) "0"))
    
32.         (repeter-stop-notify)) ;;here~~~~
    
33.        ;; frame notice
    
34.        ((string= cmd "@F")
    
35.         (repeater-check-functions (string-to-number (nth 1 data)))
    
36.         )))))
    
37. 
    
38. (defun repeater-sentinel (proc str)
    
39.   "Sentinel for determining the end of process"
    
40.   (when (or (eq (process-status proc) 'exit)
    
41.             (eq (process-status proc) 'signal))
    
42.     ;; reset
    
43.     (setq repeater-ignore-stop 0)
    
44.     (message "Remote process died!")))
    
45. 
    
46. (defun repeter-stop-notify()
    
47.   "Recevied the stop notice."
    
48.   (repeater-start repeater-music-name)
    
49.   )
    
50. 
    
51. (defun repeater-check-functions(point)
    
52.   "Check point to repeat"
    
53.   ;;case
    
54.   (if (eq var-repeater-insert-end-point 1)
    
55.    (setq repeater-end point var-repeater-insert-end-point 0)
    
56.    ;//insert end point
    
57.   )
    
58. ;;;test
    
59.   (if (or (< point repeater-begin) (and (> repeater-end 0) (> point repeater-end)))(repeater-jump (number-to-string repeater-begin))))
    
60. 
    
61. 
    
62. (defun repeater-send (text)
    
63.   "Send TEXT to the mpg321 remote process, and add a newline."
    
64.   (let (proc)
    
65.     ;; we shouldn't be trying to send to a dead process
    
66.     (unless (repeater-running-p)
    
67.       (repeater-start-process))
    
68.     (setq proc  (repeater-process))
    
69.     (process-send-string proc (concat text "\n"))
    
70.     (message text)
    
71. ))
    
72. 
    
73. 
    
74. (defun repeater-running-p ()
    
75.   "True if the remote process exists and is running."
    
76.   (let ((proc (repeater-process)))
    
77.     (and proc
    
78.          (eq (process-status proc) 'run))))
    
79. 
    
80. (defun repeater-process ()
    
81.   "Return the remote process, if it exists."
    
82.   (get-process repeater-process-name))
    
83. 
    
84. 
    
85. ;;(defun repeater-play-track (track)
    
86. (defun repeater-play-track (track)
    
87.   "Send a play command to the remote, based on TRACK."
    
88.   (repeater-send
    
89.    (concat "load " track))
    
90.   )
    
91. 
    
92. 
    
93. (defun repeater-start (track)
    
94.   (interactive)
    
95.   "Start playing a song by telling the remote process to play it.
    
96. If the remote process is not running, launch it."
    
97.   (unless (repeater-running-p)
    
98.     (repeater-start-process))
    
99.   (repeater-play-track track))
    
100. 
     
101. (defun repeater-quit ()
     
102.    (interactive)
     
103.   "Quit mpg321"
     
104.   ;;(emms-player-mpg321-remote-notify-emms t)
     
105.   (repeater-send "quit")
     
106. )
     
107. 
     
108. 
     
109. (defun repeater-pause ()
     
110.   (interactive)
     
111.   "Pause the player."
     
112.   (repeater-send "pause")
     
113. )
     
114. 
     
115. (defun repeater-jump(frame)
     
116.   (interactive)
     
117. "Jump to the special frame."
     
118.   (repeater-send (concat "jump " frame))
     
119. )
     
120. 
     
121. (defun repeater-default() ;;/test
     
122.   (interactive)
     
123.   (setq repeater-begin 0 repeater-end 0)
     
124.   (repeater-start repeater-music-name)
     
125.   )
     
126. (defun repeater-insert-end-point()
     
127.   (interactive)
     
128.   (setq var-repeater-insert-end-point 1)
     
129.   )
     
130. 
     
131. (defun repeater-clear-point()
     
132.   (interactive)
     
133.   (setq repeater-begin 0 repeater-end 0)
     
134.    (message "Clear all point")
     
135. )
     
136. 
     
137. (defun repeater-other-range()
     
138.   (interactive)
     
139.   (if (eq repeater-end 0)(setq repeater-end repeater-begin repeater-begin 0)
     
140.   (setq repeater-begin repeater-end repeater-end 0)
     
141.   )
     
142. )
     
143. (defun repeater-jump-begin()
     
144.   (interactive)
     
145.   (repeater-jump (number-to-string repeater-begin))
     
146. )
     
147. 
     
148. (global-set-key (kbd "<f5>") 'repeater-default)
     
149. (global-set-key (kbd "<S-f5>") 'repeater-quit)
     
150. (global-set-key (kbd "<S-f6>") 'repeater-pause)
     
151. (global-set-key (kbd "<f6>") 'repeater-jump-begin)
     
152. (global-set-key (kbd "<f7>") 'repeater-insert-end-point)
     
153. (global-set-key (kbd "<f8>") 'repeater-other-range)
     

复制代码

styrene

厉害阿，可惜我不会，
只想找一个相似的