Misc UI settings

(fset 'yes-or-no-p 'y-or-n-p)

;; talk to the main x clipboard. A total clusterf*ck of over engineering.
(require 'xclip)
(turn-on-xclip)

;; Abbreviations
(setq abbrev-file-name "~/.emacs.d/.abbrev_defs")

;; Fast buffer and refile targets with fuzzy completion.
(require 'ido)
(ido-mode)

;; Show column mode in the mode line
(column-number-mode t)

;; An alternative for listing buffers.
;; Hardly use it now with IDO mode.
(require 'ibuffer)
(defalias 'list-buffers 'ibuffer)

;; Group the iBuffer contents.
(setq ibuffer-saved-filter-groups
      (quote (("default"      
               ("Org" ;; all org-related buffers
                (mode . org-mode))  
               ("Mail"
                (or  ;; mail-related buffers
                 (mode . message-mode)
                 (mode . mail-mode)
                 ;; etc.; all your mail related modes
                 ))
               ("MyProject1"
                (filename . "src/myproject1/"))
               ("MyProject2"
                (filename . "src/myproject2/"))
               ("Programming" ;; prog stuff not already in MyProjectX
                (or
                 (mode . c-mode)
                 (mode . perl-mode)
                 (mode . python-mode)
                 (mode . emacs-lisp-mode)
                 ;; etc
                 )) 
               ("ERC"   (mode . erc-mode))))))

(add-hook 'ibuffer-mode-hook
          (lambda ()
            (ibuffer-switch-to-saved-filter-groups "default")))

;; Show vertical position relative in the mode line
(if (require 'sml-modeline nil 'noerror)
    (progn 
      (sml-mode 1)                   
      (scroll-bar-mode -1))          
  (scroll-bar-mode 1)                
  (set-scroll-bar-mode 'right))      

Moving my dot files into org chunks and blogging them

The influx of code chunks to the blog are because I am moving my init
files to smaller org chunks. I think this could be helpful to not
only others but surely myself further down the road.

Process Emacs Command Line Options

(defvar server-emacs t
  "If non-null, this emacs should run emacsclient.")
(defvar org-instance t
  "If nil then no org bindings")
(defvar email-instance nil
  "If nil then no email")
(defvar erc-instance nil
  "If nil then no erc auto start")

(add-to-list
 'command-switch-alist
 '("email" . (lambda (&rest ignore)
               ;; Start Gnus when Emacs starts
               (setq email-instance t))))

(add-to-list
 'command-switch-alist
 '("irc" . (lambda (&rest ignore)
             (setq erc-instance t))))

(add-to-list
 'command-switch-alist
 '("no-server" . (lambda (&rest ignore)
                   (setq server-emacs nil))))

(add-to-list
 'command-switch-alist
 '("no-org" . (lambda (&rest ignore)
                (setq org-instance nil))))

(add-hook 'emacs-startup-hook
          (lambda ()
            (when server-emacs
              (server-start))
            (when org-instance
              (rgr-org))
            (when erc-instance
              (rgr/start-erc))
            (when email-instance
              (progn (gnus)))))

Save backup and temp files to the tmp directory

(setq backup-directory-alist
      `((".*" . ,temporary-file-directory)))
(setq auto-save-file-name-transforms
      `((".*" ,temporary-file-directory t)))

IRC with ERC

erc is an excellent package to access irc from emacs. This includes an
interface to IDO fast buffer selection. I keep the important password
type vars in private.gpg.

  (require 'erc)

 (setq 
      erc-prompt-for-nickserv-password nil
      erc-autoaway-idle-seconds 600
      erc-autoaway-message "Timed out."
      erc-auto-discard-away t
      )


; alert when someone highlights you.
(defun my-erc-nick-match (match-type nickuserhost message)
  (cond
   ((eq match-type 'current-nick)
    (if (eq (string-match (concat (erc-current-nick) ":") message) 0) (rgr/notify message)))))

(add-hook 'erc-text-matched-hook 'my-erc-nick-match)

; auto truncatebuffers
(defvar erc-insert-post-hook)
(add-hook 'erc-insert-post-hook
          'erc-truncate-buffer)

(defun rgr/start-erc ()
  (interactive)
  (unless (erc-already-logged-in "im.rootdir.de"  6668 "rgr") (erc :server "88.198.83.122" :nick "rgr" :password bitl-password :port 6668)) ; im.rootdir.de
  (if (not (erc-already-logged-in "irc.freenode.net"  6667 "rgr"))
      (erc :server "irc.freenode.net"  :nick "rgr" :password erc-password :port 6667)
    (progn
      (switch-to-buffer "#emacs"))) )

; /INFO auto logs the eval line for someone to evaluate to take them to the same INFO page you are currently viewing.
(defun erc-cmd-INFO (&rest ignore)
  (erc-send-message (format "Evaluate this using C-x C-e with cursor at closing bracket --> %s" (rgr/info-link))))

; IDO switch between irc channels.
(defun rgr/ido-erc-buffer()
  (interactive)
  (switch-to-buffer
   (ido-completing-read "Channel:" 
                        (save-excursion
                          (delq
                           nil
                           (mapcar (lambda (buf)
                                     (when (buffer-live-p buf)
                                       (with-current-buffer buf
                                         (and (eq major-mode 'erc-mode)
                                              (buffer-name buf)))))
                                   (buffer-list)))))))

(global-set-key (kbd "C-c e") 'rgr/ido-erc-buffer)

Security (PGP) - keychain

; settings moved to custom
(require 'keychain-environment)
(load "private.gpg")

dotemacs on github

My emacs files are now in github following a request for the files in
raw format. The main entry point is init.el at master from rileyrg's emacs - GitHub which processes emacs-init.org at master from rileyrg's emacs - GitHub to produce emacs-init.el at master from rileyrg's emacs - GitHub. Custom variables are stored in custom.el at master from rileyrg's emacs - GitHub. Not all of the things loaded by my init
files are in git. Some you will have to track down and install as
dependencies.

org-google-weather

The google-weather Emacs extension allows to run access the Google Weather API from Emacs.

Org Mode : weather forecast in the agenda

Small patch to make it better behaved in terminal mode emacs

        Modified google-weather.el
diff --git a/google-weather.el b/google-weather.el
index 393a3cf..898c91b 100644
--- a/google-weather.el
+++ b/google-weather.el
@@ -162,8 +162,8 @@ See `google-weather-retrieve-data' for the use of EXPIRE-TIME."
          `(,forecast-encoded-date
            (low ,(google-weather-assoc 'low forecast))
            (high ,(google-weather-assoc 'high forecast))
-           (icon ,(concat google-weather-image-url
-                          (google-weather-assoc 'icon forecast)))
+           (icon ,(if (window-system) (concat google-weather-image-url
+                          (google-weather-assoc 'icon forecast)) ""))
            (condition ,(google-weather-assoc 'condition forecast)))))
      (loop for entry in (google-weather-data->weather data)
            when (eq (car entry) 'forecast_conditions)

Tagged org-googlecl as now includes interactive blog prompt

General function to prompt you if you really want to blog the org
entry if you are in an org buffer.

(defun googlecl-prompt-blog ()
  "If in a org buffer prompt whether to blog the entire entry else normal text blog."
  (interactive)
  (if (eq major-mode 'org-mode)
      (if (yes-or-no-p "Blog the Org Entry?")
        (org-googlecl-blog)
        (googlecl-blog))
    (googlecl-blog)))

org-googlecl-blog at github

Blogging from emacs using the googlecl utility.

Blogging to blogger/blogsport using emacs : particularly org-mode items.

http://github.com/rileyrg/org-googlecl

Sample outputs here :

Open Sauce

org-capture templates

(("t" "Todo" entry
  (file+headline "" "Tasks To Refile")
  "* TODO %?\n:PROPERTIES:\n :DateCreated: %T\n:END:\n%i\n%a")
 ("j" "Journal" entry
  (file+datetree "journal.org")
  "* %?\n:PROPERTIES:\n :DateCreated: %T\n:END:\n\n#+begin_src emacs-lisp\n%i\n#+end_src\n%a")
 ("n" "Quick note to refile later" entry
  (file+headline "" "Notes To Refile")
  "* %?\n:PROPERTIES:\n :DateCreated: %T\n:END:\n#+being_src\n%i\n#+end_src\n\n%a")
 ("w" "web capture" entry
  (file "refile.org")
  "* %a %?\\n:PROPERTIES:\n :DateCreated: %T\n:END:n\n%i"))

improved code for googlecl blog

Click here for newer code hosted on git-hub.

(defcustom org-googlecl-blogname "My Blog Name"
  "The name of the default blogger/blogspot blog you wish to blog to."
  :group 'org-googlecl
  :type 'string)

(defcustom org-googlecl-username "changeme@googlemail.com"
  "The google user id you wish to authenticate with. e.g mydevusername@googlemail.com"
  :group 'org-googlecl
  :type 'string)

  (defun rgr/org-blog-entry ()
    (interactive)
    (if current-prefix-arg
        ; WOuld be nice to be able to query possible blogs and allow tab completion on legal names.
        (setq org-googlecl-blogname (read-from-minibuffer "Blog Name:")))
    (save-excursion
      (let ((tmpheading (org-get-heading))
            tmptags (org-get-tags-string))
          (goto-char (org-entry-beginning-position))
          (set-mark (org-entry-end-position))
          (let*((tmpfile (make-temp-file "org-blog-html-"))
               (blog-command (concat "google blogger post --blog \"" org-googlecl-blogname "\" --title \"" tmpheading "\" --user \"" org-googlecl-username (if (length tmptags) (concat "\" --tags \"org-googlecl," tmptags "\" ") "")  tmpfile )))
            (message "google blog command is : %s" blog-command)
            (org-export-as-html 1 nil nil (find-file-noselect tmpfile) t)
            (with-current-buffer (get-file-buffer tmpfile) (save-buffer))
            (start-process-shell-command "Google Blog" "*googlecl*" blog-command)))))

Gnus group line pretty printing with UNREAD indicators

The following code assigns a unique read/unread face to the pertinent parts of the gnus group lines in the *Group* buffer. use %ug in your gnus-group-line-format and %s in your gnus-summary-line-format.

Here is an example screenshot

http://www.myupload.org/viewer.php?file=s3vqv9z8xihsdo3g27vm.png

    (setq rgr/server-name-maps
          '(("RI" . "Private")
            ("SH" . "Work")
            ("FR" . "Friends")
            ("KL" . "Sports")
            ("HA" . "Fun")
            ("GM" . "Gmane")
            ("GN" . "Gnu")
            ("" . "Unknown")
            ))
  
    (copy-face 'default 'my-subject-face)
    (copy-face 'default 'my-group-face)
    (copy-face 'default 'my-group-face-unread)
    (copy-face 'default 'my-inbox-face)
    (copy-face 'default 'my-inbox-face-unread)
    (copy-face 'default 'my-group-server-face)
    (copy-face 'default 'my-group-server-face-unread)
    (copy-face 'default 'my-unread-count-face)
    (copy-face 'default 'my-unread-count-face-unread)
  
    (copy-face 'default 'my-topic-empty-face)
    (copy-face 'default 'my-topic-face)
  
    
  (setq gnus-topic-line-format "%i[ %u&topic-line; ] %v\n")
    
  (defun rgr/unread-face (f)
    (intern (if (> (string-to-number gnus-tmp-number-of-unread) 0) (concat f "-unread") f)))
      
  ;; this corresponds to a topic line format of "%n %A"
  (defun gnus-user-format-function-topic-line (dummy)
    (let ((topic-face (if (zerop total-number-of-articles)
                          'my-topic-empty-face
                        'my-topic-face)))
      (propertize
       (format "%s %d" name total-number-of-articles)
       'face topic-face)))
  
  (defun gnus-user-format-function-s (header)
    (propertize (mail-header-subject header) 'face 'my-subject-face 'gnus-face t))
    
    (defun gnus-user-format-function-g (headers) ;; gnus-group-line-format use %ug to call this func! e.g  "%M%S%p%P%(%-40,40ug%)%-5uy %ud\n"
      ;; split full group protocol-server:group into three parts.
      (string-match "\\(^.*\\)\\+\\(.*\\):\\(.*\\)" gnus-tmp-group)
      ;; map the first two letters of the server name to a more friendly and cuddly display name
      (let*  ((match-ok (match-string 2 gnus-tmp-group))
              (server-key (if (null match-ok) nil (upcase(substring match-ok 0 2)))))
      (if (zerop (length server-key))
             gnus-tmp-group
        ;; construct new group format line with a small envelope taking the place of any INBOX
        (concat 
         (propertize 
          (format "%-8s" (cdr (assoc server-key rgr/server-name-maps)))
          'face (rgr/unread-face "my-group-server-face") 'gnus-face t)
         " - "
         (if (string-match "INBOX" (match-string 3 gnus-tmp-group) )
             (propertize "\x2709" 'face (rgr/unread-face "my-inbox-face") 'gnus-face t)
             (propertize (match-string 3 gnus-tmp-group) 'face (rgr/unread-face "my-group-face") 'gnus-face t) )))))
  
    
    (defun gnus-user-format-function-j (headers)
      ;; prefix each post depending on whether to, cc or Bcc to
      (let ((to (gnus-extra-header 'To headers)))
        (if (string-match rgr-mails to)
            (if (string-match "," to) "~" "»")
          (if (or (string-match rgr-mails
                                (gnus-extra-header 'Cc headers))
                  (string-match rgr-mails
                                (gnus-extra-header 'BCc headers)))
              "~"
            " "))))
    
    (setq  gnus-user-date-format-alist
           ;; Format the date so we can see today/tomorrow quickly.
           ;; See http://emacs.wordpress.com/category/gnus/ for the original.
           '(
             ((gnus-seconds-today) . "Today, %H:%M")
             ((+ 86400 (gnus-seconds-today)) . "Yesterday, %H:%M")
             (604800 . "%A %H:%M") ;;that's one week
             ((gnus-seconds-month) . "%A %d")
             ((gnus-seconds-year) . "%B %d")
             (t . "%B %d '%y"))) ;;this one is used when no other does match
    
    
    (defun gnus-user-format-function-y (headers)
      (if (string-match "^nnfolder" gnus-tmp-group) 
          ""
        (propertize  (concat "" gnus-tmp-number-of-unread "") 'face '(rgr/unread-face "my-unread-count-face") 'gnus-face t)))
  

using IDO flex matching for ERC buffers

 (defun rgr/ido-erc-buffer()
    (interactive)
    (switch-to-buffer
     (ido-completing-read "Channel:" 
                          (save-excursion
                            (delq
                             nil
                             (mapcar (lambda (buf)
                                       (when (buffer-live-p buf)
                                         (with-current-buffer buf
                                           (and (eq major-mode 'erc-mode)
                                                (buffer-name buf)))))
                                     (buffer-list)))))))
  
  (global-set-key (kbd "C-c e") 'rgr/ido-erc-buffer)

and now from g-client

content

Moving to "literate" emacs init files

This is fun. I have moved my emacs main init file to an org-mode file
as explained here : Org Babel. This now means the elisp files themselves are org-mode agenda files to which I can add logs, tasks etc.

Python Mode In Emacs 23

I have updated my python programming section at my personal web to include use of flymake and iPython. Works really really well. That and company mode for completion makes quite a nice little python environment.


http://richardriley.net/projects/emacs/dotprogramming

python in emacs

;;;;;
;************************************************
; rgr-python.el
;
; python integration
; Richard Riley.
; http://richardriley.net/default/projects/emacs/
;************************************************

(autoload 'python-mode "python-mode" "Python Mode." t)
 (add-to-list 'auto-mode-alist '("\\.py\\'" . python-mode))
 (add-to-list 'interpreter-mode-alist '("python" . python-mode))

(setq load-path
      (append (list nil
		    "~/.emacs.d/lisp/pymacs/"
		    "~/.emacs.d/lisp/pysmell"
                    )
              load-path))

(require 'ipython)
(setq python-python-command "ipython")
(setq py-python-command-args '( "-colors" "Linux"))

(require 'pymacs)
(pymacs-load "ropemacs" "rope-")
(setq ropemacs-enable-autoimport t)

(add-hook 'python-mode-hook
          '(lambda ()             
             (set (make-local-variable 'hippie-expand-try-functions-list) (add-to-list 'hippie-expand-try-functions-list 'try-pysmell-complete))))

(provide 'rgr-python)

udev rules for firing up a phone manager on Debian

I just got udev rules working for adding and removal of my Sony Eriksson W760i on Debian Linux. It was a real swine to get working : primarily because of the lack of info about X issues when calling scripts from the udev process. Anyway here is how its done:

1) Create a local udev script file:

/etc/udev/rules.d/z21_local.rules

ACTION=="add",KERNEL=="ttyACM0",SUBSYSTEM=="tty",ATTRS{product}=="Sony Ericsson W760",ATTRS{serial}=="3570670210310730",RUN+="/home/shamrock/bin/phonelaunch",SYMLINK+="w760i"
ACTION=="remove",KERNEL=="ttyACM0",SUBSYSTEM=="tty",RUN+="/home/shamrock/bin/phonekill"


2) Script to lauch Wammu


#!/bin/bash
export HOME = /home/shamrock
set -x
xhost local:shamrock
export DISPLAY=:0.0
cd /home/shamrock
su shamrock -c "/usr/bin/wammu &"


3) Script to clean up on removal


#!/bin/bash
su shamrock -c "pkill wammu"



The details for the udev rules came from running:

sudo udevadm info --name=/dev/ttyACM0 --query=all --attribute-walk


Enjoy!

Good morning all!

from weblogger.el