[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transcribe d5ed001 01/27: Package transcribe added
From: |
Stefan Monnier |
Subject: |
[elpa] externals/transcribe d5ed001 01/27: Package transcribe added |
Date: |
Tue, 1 Dec 2020 17:33:45 -0500 (EST) |
branch: externals/transcribe
commit d5ed001b8f642a1f498504893606a64e87d86b27
Author: David Gonzalez Gandara <dggandara@member.fsf.org>
Commit: David Gonzalez Gandara <dggandara@member.fsf.org>
Package transcribe added
---
transcribe.el | 124 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 124 insertions(+)
diff --git a/transcribe.el b/transcribe.el
new file mode 100644
index 0000000..85a11c2
--- /dev/null
+++ b/transcribe.el
@@ -0,0 +1,124 @@
+;;;transcribe.el --- package for audio transcriptions
+
+;;Copyright 2014 David González Gándara
+
+;;Author: David Gonzalez Gandara <dggandara@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
- [elpa] branch externals/transcribe created (now f381a3d), Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe d5ed001 01/27: Package transcribe added,
Stefan Monnier <=
- [elpa] externals/transcribe 23566ca 02/27: Added some usage information, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 6617973 03/27: * transcribe.el: Fix up formatting and copyright, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe e0032f9 06/27: Added minor-mode function as suggested, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 39f91f3 11/27: packages/transcribe.el: Add native discourse analysis in elisp, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 7fcb7ab 04/27: * transcribe.el: Add `provide' statement, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe aa1a6e2 05/27: * transcribe/transcribe.el: Allow compilation without emms, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 4b595d0 08/27: * transcribe/transcribe.el: Remove manual change log, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 51dd51f 10/27: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs/elpa: transcribe.el update, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 6e00216 12/27: /packages/transcribe: Fix variables, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 5306782 07/27: * packages/transcribe.el: Manually changed Changelog, Stefan Monnier, 2020/12/01