anton_nazarov

(defcustom vk-auth-token
"YOUR-TOKEN"
"VK API auth token" :type 'string)

(defcustom vk-user-id YOUR-ID "VK User Id" :type 'number)

(defun vk-post ()
  (interactive)
  (url-retrieve-synchronously
        (format
         "https://api.vk.com/method/wall.post?owner_id=%d&message=%s&v=5.0&access_token=%s"
                        vk-user-id (url-hexify-string (buffer-string))
                        vk-auth-token)))


(defun vk-get-audio (&optional arg)
  (interactive "PUser id:")
  (let ((id (if arg arg vk-user-id)))
    (set-buffer 
        (url-retrieve-synchronously (format
        "https://api.vk.com/method/audio.get?owner_id=%d&need_user=0&v=5.10&access_token=%s"
            id vk-auth-token) 't 't))
    
    (set-buffer-multibyte 't)
    (search-forward "{")
    (backward-char)
    (let* (
           (json-array-type 'list)
           (items (cdadar (json-read))) (vk-emms-buffer (emms-playlist-new)))
      (set-buffer vk-emms-buffer)
      (dolist (item items)
        (let ((track 
               (emms-track 'url (cdr (assoc 'url item)))))
          (emms-track-set track 'info-title  (cdr (assoc 'title item)))
          (emms-track-set track 'info-artist (cdr (assoc 'artist item)))
          (emms-playlist-insert-track track)))
      (switch-to-buffer vk-emms-buffer))))

Начал читать книжку "Dreaming in code".
Довольно интересно.
В книжке описывается история разработки программы-органайзера нового
поколения под названием Chandler. Оказывается версия 1.0 вышла совсем
недавно - в декабре, только через 6 лет после начала разработки!

Я пока прочитал только первые две главы, но рассказ о мотивации
основателя проекта, о предыдущих подобных проектах, таких как Lotus
Agenda и об идеях Энгельбарта о расширении способностей человека путём
использования компьютера напомнил мне, что в Emacs есть очень
продвинутый пакет Org Mode.
Про Org Mode я когда-то читал, но подробно разобраться руки не
доходили. А тут мне захотелось, и я потратил некоторое время на чтение
руководства.

По сути, Org Mode - это способ текстовой разметки, с синтаксисом типа
wiki. Но его возможности безграничны, это центральный компонент
интегрированного офисного пакета для операционной системы Emacs :)

Что я имею в виду: структурированный текст в файлах Org Mode можно
сворачивать, разворачивать и фильтровать. Любой элемент можно пометить
как задачу (TODO), добавить дату и время. При этом на лету формируется
список задач, а встречи добавляются в календарь, который можно
синхронизировать с другими органайзерами (например, я импортировал
календарь из Palm-а).

Кроме того, в файлы Org Mode можно добавлять ссылки на что угодно -
сайты в интернет, файлы (или конкретные места в файлах) на компьютере,
записи в адресной книге BBDB, письма (или записи в блогах, полученные
через RSS) в gnus, команды shell и функции на elisp, которые
выполняются по щелчку на ссылке.

А ещё в Org Mode есть редактор таблиц, который круче Excel-я, во
всяком случае вот пример из руководства:
Finally, just to whet your appetite on what can be done with the
fantastic `calc' package, here is a table that computes the Taylor
series of degree `n' at location `x' for a couple of functions
(homework: try that with Excel :-)

Помимо всего перечисленного, в файлы Org Mode можно вставлять
TeX-овские формулы с предпросмотром:

Да, и все заметки можно потом экспортировать в виде красивого html и
автоматически выкладывать в интернет.
Например, этот пост написан с использованием Org Mode. Исходный файл
выглядит вот так.

Теперь надо будет дочитать книжку и скачать Chandler для сравнения.
Правда там наверняка нельзя обойтись без использования мышки, да и не
понятно, есть ли интеграция с Emacs =)

#!/bin/bash

FNAME=`mktemp ~/.shell-fm/savetmp/tXXXXXX` || exit 1
tee $FNAME | mpg123 -q -

if [[ -e "/home/anton/.shell-fm/savetmp/save" ]]; then
    { 
	read ARTIST
	read TITLE
    } < "/home/anton/.shell-fm/savetmp/save"
    cp $FNAME "/home/anton/music/${ARTIST} - ${TITLE}.mp3"
    mp3info -a "$ARTIST" -t "$TITLE" "/home/anton/music/${ARTIST} - ${TITLE}.mp3"
    rm "/home/anton/.shell-fm/savetmp/save"
fi;
rm $FNAME

username = anton_nazarov
password = мой пароль
extern = lastfm-play-and-save.sh

(defun my-save-mp3 ()
  "Saves mp3 from last.fm stream"
  (interactive)
  (let* ((art-tit (split-string (substring (shellfm-track-info) 18) " — "))
	 (artist (car art-tit))
	 (title (cadr art-tit)))
    (shell-command (format "echo -e \"%s\n%s\" > \"/home/anton/.shell-fm/savetmp/save\"" artist title))))

(global-set-key [(control XF86AudioPrev)] 'my-save-mp3)