branch: master
commit 9a3a50860701660fb18786bd91111e090fe911bd
Author: David Gonzalez Gandara <dggand...@member.fsf.org>
Commit: David Gonzalez Gandara <dggand...@member.fsf.org>
Package transcribe added
---
packages/transcribe/transcribe.el | 124 +++++++++++++++++++++++++++++++++++++
1 files changed, 124 insertions(+), 0 deletions(-)
diff --git a/packages/transcribe/transcribe.el
b/packages/transcribe/transcribe.el
new file mode 100644
index 0000000..85a11c2
--- /dev/null
+++ b/packages/transcribe/transcribe.el
@@ -0,0 +1,124 @@
+;;;transcribe.el --- package for audio transcriptions
+
+;;Copyright 2014 David González Gándara
+
+;;Author: David Gonzalez Gandara <dggand...@member.fsf.org>
+;;version: 0.0.1
+
+;;This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+
+;;;Commentary:
+
+;;
+;; to install manually:
+;; Copy this file to somewhere in your drive
+
+;; To load the file --> M-: (load "~/transcribe.el") --- change the route to
where you copied the file
+
+;; Commands:
+;; C-x C-n --> new episode structure
+;; <f6> ----> New tag. Interactively insert new tag
+;; C-x C-a ----> call interactively analyze_episodes.py to extract
interactions by a person
+;; C-x C-p ----> play audio file
+;; <f5> ----> pause or play audio
+;; C-x <right> ----> seek 10 seconds forward
+;; C-x <left> ---->seek 10 seconds backward
+;; <f8> ----> seek interactively: positive seconds go forward and negative
seconds go backward
+;; <f11> --------> l1 tag
+;; <f12> --------> l2 tag
+
+;;;Code:
+
+(require 'emms-setup)
+;(require 'emms-player-mpd)
+;(setq emms-player-mpd-server-name "localhost")
+;(setq emms-player-mpd-server-port "6600")
+
+(emms-standard)
+(emms-default-players)
+(require 'emms-player-mpg321-remote)
+(push 'emms-player-mpg321-remote emms-player-list)
+
+(require 'emms-mode-line)
+(emms-mode-line 1)
+(require 'emms-playing-time)
+(emms-playing-time 1)
+
+(global-set-key (kbd "C-x C-p") 'emms-play-file)
+
+(global-set-key (kbd "<f5>") 'emms-pause)
+
+(global-set-key (kbd "C-x <down>") 'emms-stop)
+
+(global-set-key (kbd "C-x <right>") 'emms-seek-forward)
+
+(global-set-key (kbd "C-x <left>") 'emms-seek-backward)
+
+(global-set-key (kbd "<f8>") 'emms-seek)
+
+(defun analyze-episode (episode person)
+ (interactive "sepisode: \nsperson:")
+ (shell-command (concat (expand-file-name "analyze_episodes2.py") " -e "
episode " -p " person " -i " buffer-file-name )))
+
+(global-unset-key (kbd "C-x C-A"))
+(global-set-key (kbd "C-x C-A") 'analyze-episode)
+
+(defun draw-boxplot ()
+ (interactive)
+ (shell-command (concat (expand-file-name "/usr/bin/Rscript ")
"boxplot_students.R " buffer-file-name)))
+
+(global-unset-key (kbd "C-x C-B"))
+(global-set-key (kbd "C-x C-B") 'draw-boxplot)
+
+(defun define-xml-tag (xmltag)
+ (interactive "stag:")
+ (insert (format "<%s></%s>" xmltag xmltag))
+ (backward-char 3)
+ (backward-char (string-width xmltag)))
+
+(defun xml-tag-l1 ()
+ (interactive)
+ (insert "<l1></l1>")
+ (backward-char 3)
+ (backward-char 2))
+
+(defun xml-tag-l2 ()
+ (interactive)
+ (insert "<l2 clauses=\"1\" errors=\"0\"></l2>")
+ (backward-char 3)
+ (backward-char 2))
+
+(fset 'xml-tag-l2-break "</l2><l2 clauses=\"1\" errors=\"0\">")
+(fset 'set-attributes "clauses=\"1\" errors=\"0\"")
+
+(defun display-audio-info ()
+ (interactive)
+ (emms-player-mpg321-remote-proc)
+ (shell-command "/usr/bin/mpg321 -R - &"))
+
+
+(global-set-key (kbd "<f6>") 'define-xml-tag)
+(global-set-key (kbd "<f7>") 'xml-tag-l2-break)
+(global-set-key (kbd "<f4>") 'set-attributes)
+(global-set-key (kbd "<f11>") 'xml-tag-l1)
+(global-set-key (kbd "<f12>") 'xml-tag-l2)
+
+(fset 'NewEpisode
+
"<episode>\n<number>DATE-NUMBER</number>\n<duration></duration>\n<comment></comment>\n<subject>Subject
(level)</subject>\n<task>\n\t<role>low or high</role>\n<context>low or
high</context>\n<demand>low or
high</demand>\r</task>\n<auxiliar>Yes/no</auxiliar>\n<transcription>\n</transcription>\n</episode>")
+
+(global-unset-key (kbd "C-x C-n"))
+(global-set-key (kbd "C-x C-n") 'NewEpisode)
+
+;;;transcribe.el ends here
\ No newline at end of file
