http://blog.dvl.pl/article/2009/07/20/swap-files-in-xen-vps/

• Load and displays images in org files on initial load
• Provides a function that allows you to toggle images on and off
• Specify images you would like to load with the [[file://file.png]] org link type

Here’s the code, you can add it anywhere in your .emacs

;; -- Display images in org mode
;; enable image mode first
(iimage-mode)
;; add the org file link format to the iimage mode regex
(add-to-list 'iimage-mode-image-regex-alist
  (cons (concat "\\[\\[file:\\(~?" iimage-mode-image-filename-regex "\\)\\]")  1))
;;  add a hook so we can display images on load
(add-hook 'org-mode-hook '(lambda () (org-turn-on-iimage-in-org)))
;; function to setup images for display on load
(defun org-turn-on-iimage-in-org ()
  "display images in your org file"
  (interactive)
  (turn-on-iimage-mode)
  (set-face-underline-p 'org-link nil))
;; function to toggle images in a org bugger
(defun org-toggle-iimage-in-org ()
  "display images in your org file"
  (interactive)
  (if (face-underline-p 'org-link)
      (set-face-underline-p 'org-link nil)
      (set-face-underline-p 'org-link t))
  (call-interactively 'iimage-mode))

I have this function bound to C-l with a call like this:

(define-key org-mode-map (kbd "C-S-a") 'org-archive-subtree)

1) Download Plink.exe.

2) Place Plink.exe somewhere in your windows PATH, doesn’t matter where but you have to be able to run in from a command line anywhere on your system.

3) Add the following line somewhere in your .emacs.

(setq tramp-default-method "plink")

From there you should be able to use find-file (C-x C-f) and a command like the following to bring up a remote file:

/user@host.com:/path/to/file.ext

The problem here is that if you remap C-x it breaks commands further down the line regardless. Instead of remapping the keys in this case you want to use keyboard-translate:

;; -- cut C-x, C-x is now C-j
(keyboard-translate ?\C-j ?\C-x)
(keyboard-translate ?\C-x ?\C-w)

This remaps Swaps C-x for C-j and puts kill-region in for for C-x.

Unfortunately it’s really hard to compile, I mucked around with it for quite a few hours before, finally finding the advice hidden deep in a thread that it’s available in Cygwin Ports. Cygwin ports which I hadn’t heard of before provided all sorts of stuff that’s not available normally.

Just follow the directions here, and select the MySQL package when prompted.

http://sourceware.org/cygwinports/

It’s been working great for me and I can finally use SQL-MODE in emacs.

http://www.emacswiki.org/emacs/RecentChanges

On the SVN side of things I’ve been using a library I found over on the EmacsWIKI to interface SVN and emacs. Since I’m using Git so much these days I thought I’d adapt that library to work with TortioseGit.

Right now it only supports log, diff, blame, commit, revert and help. It’s been working great for my uses so far.

tortoise-git.el

(defun tortoise-git-command (command filename)
  (start-process "tortoise-git" "foo"
   "c:/Progra~1/TortoiseGit/bin/TortoiseProc" (concat "/command:" command) 
     (concat "/path:" (replace-regexp-in-string "Program Files" 
           (regexp-quote "Progra~1") (expand-file-name filename))
            "")))

(defun tortoise-git-log ()
  (interactive)
  (tortoise-git-log-select (buffer-file-name)))

(defun tortoise-git-log-select (filename &optional wildcards)
  (interactive (find-file-read-args "Find file: " t))
  (tortoise-git-command "log" filename))

(defun tortoise-git-diff ()
  (interactive)
  (tortoise-git-command "diff" (buffer-file-name)))

(defun tortoise-git-blame ()
 (interactive)
 (tortoise-git-command "blame" (buffer-file-name)))

(defun tortoise-git-commit () 
  (interactive)
  (tortoise-git-command "commit" (buffer-file-name)))

(defun tortoise-git-commit-select (filename &optional wildcards)
(interactive (find-file-read-args "Find file: " t))
  (tortoise-git-command "commit" (buffer-file-name)))

(defun tortoise-git-revert ()
  (interactive)
  (tortoise-git-revert-select (buffer-file-name)))

(defun tortoise-git-revert-select (filename &optional wildcards)
  (interactive (find-file-read-args "Find file: " t))
  (tortoise-git-command "revert" filename))

(defun tortoise-git-help ()
 (interactive)
 (start-process-shell-command "tortoise-git" nil
  (concat "/cygdrive/c/Progra~1/TortoiseGit/bin/TortoiseProc /command:help")))

; add key bind
(global-set-key "\C-xgl" 'tortoise-git-log)
(global-set-key "\C-xgL" 'tortoise-git-log-select)
(global-set-key "\C-xg=" 'tortoise-git-diff)
(global-set-key "\C-xgb" 'tortoise-git-blame)
(global-set-key "\C-xgc" 'tortoise-git-commit)
(global-set-key "\C-xgC" 'tortoise-git-commit-select)
(global-set-key "\C-xgs" 'tortoise-git-repostatus)
(global-set-key "\C-xgS" 'tortoise-git-repostatus-select)
(global-set-key "\C-xgr" 'tortoise-git-revert)
(global-set-key "\C-xgR" 'tortoise-git-revert-select)
(global-set-key "\C-xgh" 'tortoise-git-help)

(provide 'tortoise-git)

Watch the github repository for more features in the future:

http://github.com/openist/tortoise-git-emacs