/home/pa23

суббота, 31 декабря 2016 г.

Релиз reup-1.11.0

СКАЧАТЬ

Да, вот так после 1.7.0 сразу 1.11.0. На самом деле скачка не было, просто промежуточные версии не публиковались. Из изменений в 1.11.0: обеспечена работа с файлами edc, оптимизированы правила генерации makefile, незначительные внутренние улучшения.

четверг, 29 декабря 2016 г.

Emacs Lisp. Конвертирование массива ASCII в текст и обратно

По работе мне достаточно часто приходится работать с текстовыми файлами, содержащими строки в виде массивов ASCII, где значения отдельных символов разделены точкой с запятой. Что-то типа "118;50;48;49;54;49;50;50;57". Разумеется, хотелось бы увидеть эту информацию в более комфортном для человека виде, как то "v20161229", откорректировать и преобразовать обратно в массив ASCII. Так как с текстом я почти всегда работаю в emacs, то самым логичным решением было бы написать пару функций на emacs lisp. Тем более, что пользоваться какими-то приложениями, таская текст из редактора в буфер, потом в специальный конвертер, потом опять в буфер и, наконец, обратно в редактор, ну вообще не вариант.
Код функций получился вот таким.

(defun pa23-ascii2text (start end)
  "Convert ASCII codes to text."
  (interactive "r")
  (let ((text))
    (progn
      (setq line  (buffer-substring-no-properties start end))
      (setq ascii (split-string line ";"))
      (mapc
       (lambda (code)
         (push (string-to-number code) text)
         )
       ascii )
      )
    (delete-region start end)
    (insert (apply 'string (reverse text)))
    )
  )

(defun pa23-text2ascii (start end)
  "Convert text to ASCII codes."
  (interactive "r")
  (let ((temp) (ascii))
    (progn
      (setq temp (string-to-list (buffer-substring-no-properties start end)))
      (mapc
       (lambda (code)
         (setq ascii (concat ascii (number-to-string code) ";"))
         )
       temp )
      )
    (delete-region start end)
    (insert (substring ascii 0 -1))
    )
  )

Работа с функциями выглядит следующим образом: выделяем нужный текст, вызываем соответствующую функцию, выделенный текст будет заменен выхлопом функции.

пятница, 12 августа 2016 г.

ICU for Windows (MinGW)

Для одного из проектов мне потребовался драйвер qsqlite с поддержкой icu. Разумеется, для пересборки драйвера мне, в данном случае, потребовались также и сами библиотеки icu, которые, ввиду отсутствия необходимых бинарников, пришлось собирать из исходников.
Для тех, кто под Windows тоже использует gcc, я решил выложить бинарники icu на sourceforge. Пожалуйста, пользуйтесь.

вторник, 12 апреля 2016 г.

Arch Linux. Глобальные настройки сглаживания шрифтов

Похоже, что какое-то из последних обновлений отключило мне сглаживание шрифтов в системе. Я много работаю с текстом, поэтому для меня очень важно, чтобы шрифты выглядели идеально, причем во всех программах.
Для GTK2 мы можем использовать такие удобные конфигураторы как lxappearance или obconf, гномофилы в курсе о gnome-tweak-tool. Но даже если мы зарядим необходимые настройки сглаживания шрифтов во всех этих программах, то тот же Firefox все равно будет выглядеть паршиво.
Что же делать? Понятно что - идти в каталог /etc/fonts. Здесь вы найдете каталог с доступными конфигурациями шрифтов (conf.avail) и каталог с символическими ссылками на используемые системой файлы из этих доступных (conf.d). Мне необходимо было включить полный хинтинг и субпиксельное отображение rgb. Для этого я создал символические ссылки в каталоге /etc/fonts/conf.d на файлы /etc/fonts/conf.avail/10-hinting-full.conf и /etc/fonts/conf.avail/10-sub-pixel-rgb.conf. Вот и все. Теперь у меня опять все четко.

понедельник, 11 апреля 2016 г.

Emacs. Горячие клавиши в русской раскладке

Для использования горячих клавиш emacs в русской раскладке клавиатуры необходимо добавить в файл конфигурации следующий код

(defun cfg:reverse-input-method (input-method)
  "Build the reverse mapping of single letters from INPUT-METHOD."
  (interactive
   (list (read-input-method-name "Use input method (default current): ")))
  (if (and input-method (symbolp input-method))
      (setq input-method (symbol-name input-method)))
  (let ((current current-input-method)
        (modifiers '(nil (control) (meta) (control meta))))
    (when input-method
      (activate-input-method input-method))
    (when (and current-input-method quail-keyboard-layout)
      (dolist (map (cdr (quail-map)))
        (let* ((to (car map))
               (from (quail-get-translation
                      (cadr map) (char-to-string to) 1)))
          (when (and (characterp from) (characterp to))
            (dolist (mod modifiers)
              (define-key local-function-key-map
                (vector (append mod (list from)))
                (vector (append mod (list to)))))))))
    (when input-method
      (activate-input-method current))))
(cfg:reverse-input-method 'russian-computer)

Данное решение было найдено здесь http://reangdblog.blogspot.com/2015/05/emacs.html

суббота, 31 декабря 2016 г.