[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transcribe 30ae915 20/27: packages/transcribe.el: Fixed
From: |
Stefan Monnier |
Subject: |
[elpa] externals/transcribe 30ae915 20/27: packages/transcribe.el: Fixed void function declaration |
Date: |
Tue, 1 Dec 2020 17:33:50 -0500 (EST) |
branch: externals/transcribe
commit 30ae915a45039ce34f15da8e80658c9e03987f4f
Author: David Gonzalez Gandara <dggandara@member.fsf.org>
Commit: David Gonzalez Gandara <dggandara@member.fsf.org>
packages/transcribe.el: Fixed void function declaration
---
transcribe.el | 43 +++++++++++++++++++++++++++----------------
1 file changed, 27 insertions(+), 16 deletions(-)
diff --git a/transcribe.el b/transcribe.el
index 9662207..a2819fa 100644
--- a/transcribe.el
+++ b/transcribe.el
@@ -112,21 +112,29 @@
'Raw Output'"
(interactive)
(let* ((xml (xml-parse-region (point-min) (point-max)))
- (results (car xml))
- (episodes (xml-get-children results 'episode)))
+ (results (car xml))
+ (episodes (xml-get-children results 'episode)))
- (dolist (episode episodes)
- (let* ((transcription (xml-get-children episode 'transcription)))
+ (dolist (episode episodes)
+ (let* ((transcription (xml-get-children episode 'transcription)))
- (dolist (turn transcription)
- (dolist (intervention (xml-node-children turn))
- (when (listp intervention)
- (with-current-buffer "Raw Output"
- (insert (format "%s: " (car intervention)))
- (dolist (utterance (nthcdr 2 intervention))
- (when (listp utterance)
- (insert (format "%s " (nth 2 utterance)))))
- (insert "\n")))))))))
+ (dolist (turn transcription)
+ (dolist (intervention (xml-node-children turn))
+ (if (listp intervention)
+ (progn
+ (with-current-buffer "Raw Output"
+ (insert (format "%s\t" (line-number-at-pos)))
+ (insert (format "%s:\t" (car intervention)))
+ (dolist (utterance (nthcdr 2 intervention))
+ (if (listp utterance)
+ (progn
+ (insert (format "%s " (nth 2 utterance))))
+
+ (insert (format "%s" utterance))))))
+
+ (with-current-buffer "Raw Output"
+ (insert (format "%s" (line-number-at-pos)))
+ (insert (format "%s" intervention))))))))))
(defun transcribe-analyze (episodenumber personid)
"Extract from a given episode and person the number of asunits per
@@ -340,12 +348,12 @@
(fset 'NewEpisode
-
"<episode>\n<number>DATE-NUMBER</number>\n<duration></duration>\n<comment></comment>\n<subject>Subject
(level)</subject>\n<participants><\participants>\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>");Inserts
a new episode structure
+
"<episode>\n<number>DATE-NUMBER</number>\n<duration></duration>\n<comment></comment>\n<subject>Subject
(level)</subject>\n<participants></participants>\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>");Inserts
a new episode structure
(defvar transcribe-mode-map
(let ((map (make-sparse-keymap)))
- (define-key map (kbd "C-x C-p") 'transcribe-play-file)
+ (define-key map (kbd "C-x C-p") 'emms-play-file)
(define-key map (kbd "C-x C-a") 'transcribe-analyze)
(define-key map (kbd "C-x C-n") 'NewEpisode)
(define-key map (kbd "C-x <down>") 'emms-stop)
@@ -379,7 +387,7 @@
["Add L2 intervention" transcribe-xml-l2]
["Add move" transcribe-xml-tag-person]
"---"
- ["Play audio file" transcribe-play-file]
+ ["Play audio file" emms-play-file]
))
@@ -391,6 +399,9 @@
transcribe-mode-map
(generate-new-buffer "Statistics Output")
(generate-new-buffer "Raw Output")
+;; (with-current-buffer "Raw Output"
+;; (linum-mode t)
+;; (setq linum-format "%d "))
(with-current-buffer "Statistics Output"
;; (insert
"person,episode,duration,C-UNITS(L2),C-UNITS(L1),role,context,demand,QUAN-L2,QUAN-L1,QUAL-L2,segmented,aux,level,subjects,yearofCLIL,month\n")
)
- [elpa] externals/transcribe e0032f9 06/27: Added minor-mode function as suggested, (continued)
- [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
- [elpa] externals/transcribe 6cdaf56 23/27: packages/transcribe.el - minor bug corrections, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe c620bda 17/27: * packages/transcribe: New release: new functions and menus, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 30ae915 20/27: packages/transcribe.el: Fixed void function declaration,
Stefan Monnier <=
- [elpa] externals/transcribe b99bb85 18/27: * packages/transcribe.el: Fixed key binding error. Added menus, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe d5bf0a5 21/27: packages/transcribe.el: Fixed function calls, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 481fac9 25/27: packages/transcribe.el: improved analysis functions, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 76c5bd2 26/27: * transcribe/transcribe.el: Cosmetic changes, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 89832e4 24/27: packages/transcribe.el: interface improvements, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe cd7c67d 13/27: /packages/transcribe.el: Fix global variables, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 73878e0 14/27: /transcribe/transcribe.el: edit comments, add new functions, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 580652e 09/27: * /transcribe/transcribe.el: Fix unworking keys, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 5e39469 16/27: /transcribe/transcribe.el: Add some functions, fix bugs, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 786539b 15/27: /transcribe/transcribe.el: Fix bug, Stefan Monnier, 2020/12/01