My name is Chmouel Boudjnah (chmouel) and I am a French living in Sydney, Australia.
I use EmacsForDOS, and on GNU/Linux at work and at home since a couple of years (7).
Some of my code i like to keep (got to put somewhere in the wiki but i hardfly find where) :
;; Search Google at point:
(defun my-search-google (w)
"Launch google on the Word at Point"
(interactive
(list (let* ((word (thing-at-point 'symbol))
(input (read-string (format "Google%s: "
(if (not word) "" (format " (default %s)" word))))))
(if (string= input "") (if (not word)
(error "No keyword to search given") word) input) ;sinon input
)))
(browse-url (format "http:/www.google.com/search?q=%s" w))
)
(global-set-key (read-kbd-macro "C-c j") 'my-search-google)
;;Compilation Frame (i should really use special-display-regexps instead)
(defvar my-compilation-frame 'nil)
(defun my-compilation-frame ( )
(interactive)
(if (not (frame-live-p my-compilation-frame))
(progn
(select-frame (or (and (frame-live-p my-compilation-frame) my-compilation-frame)
(setq my-compilation-frame
(make-frame '((name . "*Compilation*")(minibuffer . t)
(width . 100)(height . 15)
)) )))
(switch-to-buffer "*compilation*")
(modify-frame-parameters my-compilation-frame (list (cons 'menu-bar-lines 0)))
(buffer-disable-undo)
(setq buffer-read-only t)
(set-visited-file-name "")
)
(progn
(if (eq (selected-frame) my-compilation-frame)
(delete-frame my-compilation-frame)
(select-frame-set-input-focus my-compilation-frame)))
)
)
(global-set-key '[(f6)] 'my-compilation-frame)
;; Fast from switches (i know there is posting-styles personalities and such but i just need that mostly
(defvar my-email-adresses
'(("chmouel@chmouel.com") ("chmouel@squiz.net")("chmouel@yahoo.fr"))
)
(defun my-email-adress-switch ()
(interactive)
(save-excursion
(let* ((completion-ignore-case t)
(item (assoc-ignore-case
(completing-read "Email adress: " my-email-adresses nil t)
my-email-adresses))
(email-adress (car item)))
(beginning-of-buffer)
(if (re-search-forward "^From:" nil t)
(delete-region (point) (progn (end-of-line)(point)))
(insert "From:"))
(insert (concat " " user-full-name " <" email-adress ">"))
(if (not (eolp))(insert "\n"))
))
)
Welcome to the wiki! – PierreGaston
The way I usually set up a page alias involves PermanentAnchors. Thus, the permanent anchor kensanata can be linked to like any other page, but it points to a place on my page. – AlexSchroeder