X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/efb01e66f7ea5688ec572d243b5378440093c00f..2251062dee217f6526396a63cd1cd9626419b6ee:/packages/transcribe/transcribe.el
diff --git a/packages/transcribe/transcribe.el b/packages/transcribe/transcribe.el
index 966220743..983217bec 100644
--- a/packages/transcribe/transcribe.el
+++ b/packages/transcribe/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
- "\nDATE-NUMBER\n\n\nSubject (level)\n<\participants>\n\n\tlow or high\nlow or high\nlow or high\r\nYes/no\n\n\n");Inserts a new episode structure
+ "\nDATE-NUMBER\n\n\nSubject (level)\n\n\n\tlow or high\nlow or high\nlow or high\r\nYes/no\n\n\n");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 ") 'emms-stop)
@@ -358,8 +366,8 @@
(define-key map (kbd "") 'emms-seek)
(define-key map (kbd "") 'transcribe-xml-tag)
(define-key map (kbd "") 'transcribe-xml-tag-person)
- (define-key map (kbd "") 'transcribe-xml-l1)
- (define-key map (kbd "") 'transcribe-xml-l2)
+ (define-key map (kbd "") 'transcribe-xml-tag-l1)
+ (define-key map (kbd "") 'transcribe-xml-tag-l2)
map)
"Keymap for Transcribe minor mode.")
@@ -375,11 +383,11 @@
["Add transcription header" NewEpisode]
["Add move attribute" transcribe-add-attribute-move]
["Add function attribute" transcribe-add-attribute-function]
- ["Add L1 intervention" transcribe-xml-l1]
- ["Add L2 intervention" transcribe-xml-l2]
+ ["Add L1 intervention" transcribe-xml-tag-l1]
+ ["Add L2 intervention" transcribe-xml-tag-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")
)