Add emms-mp3tag and emms-i18n

darcs-hash:20061205065407-1e472-4680607fa20dfb5e818879d67781d1379602d473.gz

1 files changed, 144 insertions, 0 deletions

diff --git a/emms-i18n.el b/emms-i18n.el
new file mode 100644
index 0000000..4ddf54d
--- /dev/null
+++ b/emms-i18n.el
@@ -0,0 +1,144 @@
+;;; emms-i18n.el --- 
+
+;; Copyright 2006 Ye Wenbin
+;;
+;; Author: wenbinye@163.com
+;; Time-stamp: <Ye Wenbin 2006-12-05 08:33:11>
+;; Version: $Id: emms-i18n.el,v 1.2 2006/12/04 13:38:17 ywb Exp $
+;; Keywords: 
+;; X-URL: not distributed yet
+
+;; 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 2, 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, write to the Free Software
+;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+;;; Commentary:
+
+;; When read from process, first check the CAR part of
+;; `emms-default-coding-system', if non-nil, use this for decode, and
+;; nerver detect coding system, if nil, first call
+;; `emms-coding-dectect-functions' to get coding system, if success,
+;; decode the result, otherwise, use `emms-detect-coding-function',
+;; the emacs detect coding function, if the coding detected is not in
+;; `emms-nerver-used-coding-system', decode it, otherwise use
+;; locale-coding-system.
+;;
+;; When write send data to process, first check the CDR part of
+;; `emms-default-coding-system', if non-nil, use this to encode data,
+;; otherwise do nothing, that means use `default-process-coding-system' or
+;; `process-coding-system-alist' to encode data.
+
+;; Put this file into your load-path and the following into your ~/.emacs:
+;;   (require 'emms-i18n)
+
+;;; Code:
+
+(provide 'emms-i18n)
+(eval-when-compile
+  (require 'cl))
+
+(defun emms-iconv (from to str)
+  "Convert STR from FROM coding to TO coding."
+  (if (and from to)
+      (decode-coding-string
+       (encode-coding-string str to)
+       from)
+    str))
+
+(defun emms-iconv-region (beg end from to)
+  (when (and from to)
+    (save-restriction
+      (narrow-to-region beg end)
+      (encode-coding-region (point-min) (point-max) to)
+      (decode-coding-region (point-min) (point-max) from))))
+
+(defun emms-iconv-buffer (from to &optional buf)
+  (save-excursion
+    (and buf (set-buffer buf))
+    (emms-iconv-region-1 (point-min) (point-max) from to)))
+
+(defun emms-set-default-coding-system (read-coding write-coding)
+  "Set `emms-default-coding-system'"
+  (interactive "zSet coding system for read: \nzSet coding system for write: ")
+  (setq emms-default-coding-system
+        (cons
+         (and (coding-system-p read-coding) read-coding)
+         (and (coding-system-p write-coding) write-coding)))
+  (message (concat
+            (if (car emms-default-coding-system)
+                (format "The coding system for read is %S." (car emms-default-coding-system))
+              "Good, you want detect coding system by me!")
+            (format " The coding system for write is %S."
+                    (or (cdr emms-default-coding-system)
+                        (cdr default-process-coding-system))))))
+
+(defun emms-call-process-to-string (program &rest args)
+  (with-temp-buffer
+    (let ((default-process-coding-system (copy-tree default-process-coding-system))
+          (process-coding-system-alist nil) exit)
+      (setcar default-process-coding-system (car emms-default-coding-system))
+      (setq exit (apply 'call-process  (append (list program nil t nil) args)))
+      (when (and (zerop exit) (null (car emms-default-coding-system)))
+        (setq coding (emms-detect-buffer-coding-system))
+        (decode-coding-region (point-min) (point-max) coding))
+      (and (zerop exit) (buffer-string)))))
+
+(defun emms-call-process (program &rest args)
+  (with-temp-buffer
+    (if (cdr emms-default-coding-system)
+        (let ((default-process-coding-system emms-default-coding-system)
+              (process-coding-system-alist nil))
+          (apply 'call-process (append (list program nil t nil) args)))
+      (apply 'call-process (append (list program nil t nil) args)))))
+  
+(defvar emms-nerver-used-coding-system
+  '(raw-text undecided)
+  "If the `emms-coding-dectect-functions' return coding system in
+this list, use `emms-default-coding-system' instead.")
+
+(defvar emms-coding-system-for-read 'utf-8
+  "If coding detect failed, use this for decode")
+
+(defvar emms-default-coding-system nil
+  "If non-nil, used for decode and encode")
+
+(defvar emms-coding-dectect-functions nil
+  "A list of function to call to detect codings")
+
+(defvar emms-detect-max-size 10000
+  "Max bytes to detect coding system. Nil mean scan whole buffer.")
+
+(defun emms-detect-coding-function (size)
+  (detect-coding-region (point)
+                        (+ (if (null emms-detect-max-size)
+                               size
+                             (min size emms-detect-max-size))
+                           (point)) t))
+
+(defun emms-detect-buffer-coding-system (&optional buf)
+  "Before call this function, make sure the buffer is literal"
+  (let ((size (buffer-size))
+        (func (append emms-coding-dectect-functions 'emms-detect-coding-function))
+        coding)
+    (save-excursion
+      (and buf (set-buffer buf))
+      (goto-char (point-min))
+      (when (> size 0)
+        (setq coding (run-hook-with-args-until-success 'func size))
+        (if (member (coding-system-base coding) emms-nerver-used-coding-system)
+            (setq coding (emms-detect-coding-function size))))
+      (if (or (null coding) (member (coding-system-base coding) emms-nerver-used-coding-system))
+          emms-coding-system-for-read
+        coding))))
+
+;;; emms-i18n.el ends here