SXEmacsen

свободным

safe-string
libdbus
Wand-mode
wand-button
customize
libobjc
Wand-mode
M-x customize RET
redisplay
xpm-button.el
Wand-mode
Wand-mode
(wand-button 150 32 "Wand Button"
             :bg "cornflowerblue" :fg "white"
             :round 8.0 :depth 1 :yoff 8 ; :type 'pressed
             :wand-font (make-wand-font :family "Zapfino"))

(wand-button 100 20 "Wand Button"
             :bg "gray80" :fg "black" :round 10.0
             :contrast 0.5 :depth 2 ; :type 'pressed
             :wand-font (make-wand-font :family "Copperplate"))

(wand-button 100 40 (encode-coding-string "привет" 'utf-8)
             :bg "palegreen" :fg "green" :round 0.0
             :depth 4 :yoff -2 ; :type 'pressed
             :wand-font (make-wand-font :family "Arial Black"
                                        :size 20))
C-x C-f lg-tree.jpg RET
mode-line
C-x C-b
o modulate RET saturation RET 60 RET
p caption RET lg climbes trees RET
p keywords RET js-kit, corporative RET
O
SPC
undo
C-/
C-u O
Wand-mode
e
Wand-mode-properties-pattern
o modulate RET saturation RET -100 RET
o grayscale RET
o fit to size RET
Wand-mode-scaler
Wand-make-scaler
(setq Wand-mode-scaler (Wand-make-scaler :GaussianFilter 1))
Wand-mode-scaler
Wand-make-scaler
sudoku.el
sudoku.el
M-x sudoku RET
a
p
C-u p
P
lg AT sxemacs.org
(defun do-applescript (&rest script-lines)
  (let ((script (mapconcat 'identity script-lines "\n"))
        start cmd return)
    (while (string-match "\n" script)
      (setq script (replace-match "\r" t t script)))
    (while (string-match "\"" script start)
      (setq start (+ 2 (match-beginning 0))
            script (replace-match "\\\"" t t script)))
    (setq cmd (concat "osascript -e \"\"\"" script "\"\"\""))
    (setq return (shell-command-to-string cmd))
    (concat "\"" return "\"")))
(defun growl (title message)
  (do-applescript
   "tell application \"GrowlHelperApp\""
   (format "notify with name \"SXEmacs Notification\" title %S description %S application name \"SXEmacs\" image from location \"file:///opt/local/share/sxemacs-22.1.10/etc/sxemacs-icon.png\"" title message)
   "end tell"))
(defvar lg-say-voices
  '((agnes . "Agnes") (albert . "Albert") (alex . "Alex")
    (badnews . "BadNews") (bahh . "Bahh") (bells . "Bells")
    (boing . "Boing") (bruce . "Bruce") (bubbles . "Bubbles")
    (cellos . "Cellos") (deranged . "Deranged") (fred . "Fred")
    (goodnews . "GoodNews") (hysterical . "Hysterical") (junior . "Junior")
    (kathy . "Kathy") (organ . "Organ") (princess . "Princess")
    (ralph . "Ralph") (trinoids . "Trinoids") (vicki . "Vicki")
    (victoria . "Victoria") (whisper . "Whisper") (zarvox . "Zarvox")))

(defun lg-say-the-text (text &optional voice)
  (let* ((sv (cdr (assq voice lg-say-voices)))
         (svoice (if sv (format " using %S" sv) ""))
         ;; " -> ' in order to avoid osascript confusion
         (nt (replace-in-string text "\"" "'")))
    (do-applescript (format "say %S%s" nt svoice))
    (growl "Text via VoiceOver" "Done!")))

(defun lg-say-region-or-buffer (arg)
  "Say contents of the buffer or region.
If prefix ARG is specified then use custom voice."
  (interactive "P")
  (let ((voice (and current-prefix-arg
                    (intern
                     (completing-read "Voice: "
                      (mapcar #'(lambda (v)
                                  (list (symbol-name (car v))))
                              lg-say-voices)
                      nil t))))
        (text (if (region-active-p)
                  (buffer-substring (region-beginning) (region-end))
                (buffer-substring))))
    (lg-say-the-text text voice)))

(define-key global-map (kbd "C-c s") 'lg-say-region-or-buffer)
(defun lg-gnus-say-article-body ()
  "Say body of the current gnus article."
  (interactive)
  (let ((atxt (with-current-buffer gnus-article-buffer
                (save-restriction
                  (article-goto-body)
                  (buffer-substring (point) (point-max))))))
    (lg-say-the-text atxt)))
do-applescript
IN-BACKGROUND
xterm
Inkscape
SXEmacs
SXEmacs
Firefox
(when (eq system-type 'darwin)
  ;; Make C-w, M-y interact with Mac OS X clipboard
  (defun lg-paste-from-osx ()
    (shell-command-to-string "pbpaste"))
  (defun lg-paste-to-osx (text &optional push)
    (let* ((process-connection-type nil)
           (proc (start-process "pbcopy" nil "pbcopy")))
      (process-send-string proc text)
      (process-send-eof proc)))
  (setq interprogram-paste-function 'lg-paste-from-osx)
  (setq interprogram-cut-function 'lg-paste-to-osx))
C-w
M-w
SXEmacs
C-v
SXEmacs
C-y
fill-to-width
flyspell
flyspell
self-insert
accept-process-output
(defface lg-grido-face
  '((((class color) (background dark))
     (:foreground "gray10"))
    (((class color) (background light))
     (:foreground "gray77"))
    (t (:foreground "gray77")))
  "Face for grid.")

(push '("grido" (face-foreground 'lg-grido-face)) xpm-color-symbols)

(defconst lg-square-64x64-xpm
  (concat
   "/* XPM */\n"
   "static char *mini_square_xpm[] = {\n"
   "/* columns rows colors chars-per-pixel */\n"
   "\"64 64 2 1\",\n"
   "\"       c None s background\",\n"
   "\".      c gray77 s grido\",\n"
   "/* pixels */"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"................................................................\"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n,"
   "\"    .                                                           \"\n"
   "\"    .                                                           \"\n"
   "\"    .                                                           \"\n"
   "\"    .                                                           \"\n"
   "\"    .                                                           \"\n"
   "\"    .                                                           \"\n"
   "\"    .                                                           \"\n"
   "\"    .                                                           \"\n"
   "\"    .                                                           \"\n"
   "};"))

(set-face-background-pixmap
 'default
 (make-image-specifier (vector 'xpm :data lg-square-64x64-xpm))) 
font-lock
gethostbyname(3)
getaddrinfo(3)
connect(2)
write(2)
connect
:nowait
make-network-process
make-network-process
connect
open-network-stream
write(2)
write
EWOULDBLOCK
write(2)
select
accept-process-output
call-process
accept-process-output
xlib
xwem
asyneq-ignore-command-events
t
write
process-send-string
open-network-stream
open-network-stream
open-network-stream
flyspell
defstruct
:print-function
custom-print-functions
print-level
print-length
(defstruct (test-prs
            (:print-function
             (lambda (tp s pl)
               (princ (format "#<test-prs %s>"
                              (test-prs-name tp)) s))))
  type              ; type of struct: `frs', `snd', ..
  (name "default")  ; name of object
  state             ; state of object
  plist             ; user defined properties list
  )
(make-test-prs :name "Done")
==> #<test-prs Done> 
ureaders
ureaders
(setq mm '#<test ao -- 1
                 test -- 2
                 val -- "test">)
==> ((val . "test") (test . 2) (ao . 1)) 
(defun my-test-reader (input)
  (flet ((string-trim (s)
           (replace-in-string s "\\(^[ \t]+\\|[ \t]+$\\)" "")))
    (let ((ss (mapcar 'string-trim (split-string input "\n")))
          (rv nil))
      (dolist (s ss)
        (let ((rw (mapcar 'string-trim (split-string s "--"))))
          (push (cons (intern (car rw)) (read (cadr rw)))
                rv)))
      rv)))

(push '("test" . my-test-reader) ureaders) 
ureaders
Wand-mode
PgDown
PgUp
Home
End
g
M-g
Wand-mode
xpdf
gv
nil
Wand-mode-show-fileinfo
Wand-mode
Wand-fix-red-pixels
PIXELS
(RED GREEN BLUE)
RED
GREEN
BLUE
Wand-mode-redeye-blur-radius
Wand-mode-redeye-blur-radius
(defun Wand-test-redeye (arg)
  "Apply redeye reduction algorithm to ARG's region."
  (interactive "p")
  (let ((pp '(((41 41 349 302) (39 34 86 307)
               (44 42 354 58) (47 42 94 151))      ; first region
              ((29 31 315 676) (36 33 108 660)
               (86 79 168 468))                    ; second region
              ((28 26 335 885) (26 25 147 930)
               (21 18 267 774) (21 18 129 792))    ; third region
              ((26 26 343 1219) (28 29 87 1161)
               (25 18 294 1044) (23 18 127 1036))  ; fourth region
              ((17 15 431 1468) (18 17 376 1463)
               (17 20 310 1468) (17 20 232 1477)
               (13 15 116 1458) (13 15 25 1466)
               (23 25 253 1336) (21 25 132 1378))  ; fifth region
              )))
    (mapc (lambda (reg)
            (Wand-operation-apply 'redeye-remove image-wand reg))
          (nth (1- arg) pp))
    (Wand-redisplay))) 
redeye-samples.jpg
M-x Wand-display RET
C-u <NUM> M-x Wand-test-redeye RET
<NUM>
ffi-curl
xlib-ffi
mplayer
(defun lg-video-glyph (file &optional w h)
  "Create video glyph to play FILE.
Optionally you can specify width and height by passing W and H args."
  (let* ((gg (make-glyph [subwindow]))
         (prc (start-process "mplayer" nil "mplayer"
                             "-wid" (int-to-string
                                     (subwindow-xid
                                      (glyph-image-instance gg)))
                             (expand-file-name file))))
    (resize-subwindow
     (glyph-image-instance gg) (or w 200) (or h 140))
    (put gg 'mplayer-proc prc)
    gg))

(setq gg (lg-video-glyph "~/video/kids/kung-fu-panda.mp4"))
(set-extent-end-glyph
 (make-extent (point) (point))
 gg) 
~/video/kids/kung-fu-panda.mp4
set-extent-end-glyph
(resize-subwindow (glyph-image-instance gg) WIDTH HEIGHT) 
mplayer
mplayer
media-stream
(make-media-stream :file "~/crypt/video/kung-fu-panda.mp4" 'ffmpeg)
=>
#<media-stream :kind #<file "/home/lg/crypt/video/kung-fu-panda.mp4">
  #<media-substream :type #<video mov,mp4,m4a,3gp,3g2,mj2
                            (h264), 720x304 (2.37/1)>>
  #<media-substream :type #<audio mov,mp4,m4a,3gp,3g2,mj2
                            (mpeg4aac), stereo, 48000 Hz, 16 Bit>>
  driven by ffmpeg> 
mplayer
stdin
find-file-magic-files-alist
C-x C-f /tmp RET
/tmp
dired
find-file-noselect
dired
find-file-magic-files-alist
alist
nil
find-file-magic-files-alist
(file-directory-p . find-file-try-dired-noselect)
dired
Wand-display
find-file-magic-files-alist
(push '(Wand-file-supported-for-read-p . Wand-display-noselect)
      find-file-magic-files-alist) 
(Wand-find-file-enable) 
C-x C-f
Wand-mode
find-file-magic-files-alist
nil
magic:file-type
libmagic
file(1)
libmagic
C-x C-f
sqlite
.tables
(defun lg-sqlite-file-p (filename)
  "Return non-nil if FILENAME is actually SQLite format 3 file."
  (with-temp-buffer
    (insert-file-contents-literally filename nil 0 15)
    (string= (buffer-substring) "SQLite format 3")))

(defun lg-sqlite-find-file (file)
  (require 'sql)
  (setq sql-database file)
  (funcall (sql-product-feature :sqli-connect 'sqlite))
  (setq sql-interactive-product 'sqlite)
  (setq sql-buffer (current-buffer))
  (sql-interactive-mode)
  (rename-buffer (format "*SQL:%s*" (file-name-nondirectory file)))
  (current-buffer)) 
ffi-sqlite
sqlite-file-p
find-file-magic-files-alist
(push '(lg-sqlite-file-p . lg-sqlite-find-file)
      find-file-magic-files-alist)
C-x C-f ~/test.db RET
gdb-with-core
core
auto-mode-alist
find-file-magic-files-alist
   ____________  _____________
  /   ____/\   \/  /\_   ____/ _____ _____   ____  ______
  \____  \  \     /  |   __|_ /     \\__  \ / ___\/  ___/
  /       \ /     \  |       \  Y Y  \/ __ Y  \___\___ \ 
 /________//___/\__\/________/__|_|__|_____/\____/_____/


(defcustom yo-db-file (expand-file-name "yo.db" user-init-directory)
"File with yo database.")

(defcustom yo-cutting-strings (list "\\-" "\"=" "\"~")
"Words in the text may be splitting by some strings:
for example: hy\\-phe\\-na\\-ti\\-on in TeX")

(defconst yo-cutting-regexp
  (concat "\\(?:"
        (mapconcat 'regexp-quote
                   yo-cutting-strings "\\|")
        "\\)"))

;; Under Mule: 1493 - little e, 1461 - big E
(defconst yo-e-word-regexp
  (concat "\\(?:\\w\\(?:\\w\\|" yo-cutting-regexp "\\)*\\)?"
        "\\(?:" (char-to-string (int-to-char 1493)) "\\|"
        (char-to-string (int-to-char 1461)) "\\)"
        "\\(?:\\w\\(?:\\w\\|" yo-cutting-regexp "\\)*\\)?"))

(defvar yo-db nil)

(defun yo-word (word &optional table)
"Return yo variant of the WORD.
Return value:
nil     - no yo variant
string  - unambiguous yo variant
(maybe . string) - ambiguous yo variant"
  (unless yo-db
  (setq yo-db (sqlite-open yo-db-file)))
  (let* ((sql (format "select val from %S where key match ?"
                    (or table 'onlyyo) word))
       (eword (encode-coding-string word 'utf-8))
       (result (car (car (sqlite-rows yo-db sql (list eword))))))
  (if result
      (decode-coding-string result 'utf-8)
    (when (or (null table) (eq table 'onlyyo))
      (let ((mres (yo-word word 'maybeyo)))
        (when mres (cons 'maybe mres)))))))

(defun yofy-region (begin end)
"Yofy the region."
  (interactive "r")
  (save-restriction
  (save-excursion
    (narrow-to-region begin end)
    (beginning-of-buffer)
    (let (current-e-word current-yo-word)
      (while (re-search-forward yo-e-word-regexp nil t)
        (save-match-data
          (setq current-e-word
                (downcase
                 (replace-in-string
                  (match-string 0) yo-cutting-regexp "")))
          (setq current-yo-word (yo-word current-e-word)))

        (cond ((stringp current-yo-word)
               (replace-match current-yo-word nil))
              ((and (consp current-yo-word)
                    (eq (car current-yo-word) 'maybe))
               (setq current-yo-word (cdr current-yo-word))
               (if search-highlight
                   (isearch-highlight (match-beginning 0) (match-end 0)))
               (when (y-or-n-p (format "\"%s\" --> \"%s\"? "
                                       current-e-word current-yo-word))
                 (undo-boundary)
                 (replace-match current-yo-word nil))
               (isearch-dehighlight))))
      ))))

(defun yofy-buffer ()
"Yofy whole buffer."
  (interactive)
  (yofy-region (point-min) (point-max)))

(defun yofy ()
"Yofy region or buffer."
  (interactive)
  (if (region-active-p)
    (yofy-region (region-beginning) (region-end))
  (yofy-buffer)))

Transform
		Sample Width: 400 Height: 200
		Rotate Degrees: 120°
		Flip
		Flop

Effect
	Add Noise Noise type: Poisson
	Despeckle
	Edge detect Radius: 1.0
	Emboss Radius: 1.0 Sigma: 2.0
	Gaussian Blur Radius: 1.0 Sigma: 2.0
	Radial Blur Radius: 3.0
	Reduce Noise
	Sharpen Radius: 1.0 Sigma: 2.0
	Spread Radius: 1.0

Enhance
	Contrast Type: increase
	Contrast Type: decrease
	Enhance
	Equalize
	Negate
	Normalize

F/X
	Charcoal Radius: 1.0 Sigma: 2.0
	Implode Radius: 0.4
	Implode Radius: -0.4
	Oil Paint Radius: 2.0
	Sepia Tone Threshold: 85%
	Solarize Threshold: 50%
	Swirl Angle: 90°
	Vignette Black/White: 10
	Wave Amplitude: 2 Wave length: 10

SXEmacsen

Гестуры в xwem

SXEmacs живёт

Интеграция SXEmacs с Mac OS

Генератор кнопок

Wand-mode - новые возможности

Судоку для (S)XEmacs

Говорящий SXEmacs

MacOS clipboarding

SXEmacs - behind the scene

Условия гонки в ASYNEQ

SXEmacs - лучший программный продукт года

Расширение REPL

Просмотр страничных файлов в Wand-mode

Wand-mode - алгоритм устранения красных глаз

Логотип SXEmacs

SXEmacs - Unix-way

Магические файлы

Wand-mode -- забудьте о display(1)

Знакомство с Wand-mode

Просмотр директорий с изображениями

Меню Wand-mode

Настройка Wand-mode

Внесение изменений и сохранение результатов

Операции над областью изображения

Сводная таблица операций

Ascii-art лого для SXEmacs

Быстрый ёфикатор для SXEmacs