xhtml v html

http://splash-of-open-sauce.blogspot.com/2009/03/xhtml-v-html.html

--
My Emacs Files At GitHub

read article about encryption in the cloud

SCHEDULED: 2010-09-20 Mon

http://www.guardian.co.uk/technology/2008/sep/29/cloud.computing.richard.stallman

--
My Emacs Files At GitHub

Browser shots

This is a wonderful site with which to check your CSS and browser compatability.

(progn
(org-back-to-heading)
(org-set-tags-to (append '("red" "blue") (list "green")))
)

[[http://browsershots.org/[[http://www.stevefairwaymusic.com/index][Browser][http://www.stevefairwaymusic.com/index][Browser]] Shots : preview your web site developments.]]

--
My Emacs Files At GitHub

Browser shots

This is a wonderful site with which to check your CSS and browser compatability.

(progn
(org-back-to-heading)
(org-set-tags-to (append '("red" "blue") (list "green")))
)

[[http://browsershots.org/[[http://www.stevefairwaymusic.com/index][Browser][http://www.stevefairwaymusic.com/index][Browser]] Shots : preview your web site developments.]]

--
My Emacs Files At GitHub

Browser Shots

This is a wonderful site with which to check your CSS and browser compatability.

(progn
(org-back-to-heading)
(org-set-tags-to (append '("red" "blue") (list "green")))
)

[[http://browsershots.org/[[http://www.stevefairwaymusic.com/index][Browser][http://www.stevefairwaymusic.com/index][Browser]] Shots : preview your web site developments.]]

--
My Emacs Files At GitHub

Browser Shots

This is a wonderful site with which to check your CSS and browser compatability.

(progn
(org-back-to-heading)
(org-get-tags)
)

[[http://browsershots.org/[[http://www.stevefairwaymusic.com/index][Browser][http://www.stevefairwaymusic.com/index][Browser]] Shots : preview your web site developments.]]

--
My Emacs Files At GitHub

Browser Shots

This is a wonderful site with which to check your CSS and browser compatability.

(progn
(org-back-to-heading)
(org-get-tags)
)

[[http://browsershots.org/[[http://www.stevefairwaymusic.com/index][Browser][http://www.stevefairwaymusic.com/index][Browser]] Shots : preview your web site developments.]]

--
My Emacs Files At GitHub

Browser Shots

This is a wonderful site with which to check your CSS and browser compatability.

(progn
(org-back-to-heading)
(org-get-tags)
)

[[http://browsershots.org/[[http://www.stevefairwaymusic.com/index][Browser][http://www.stevefairwaymusic.com/index][Browser]] Shots : preview your web site developments.]]

--
My Emacs Files At GitHub

Browser Shots : great web site

This is a wonderful site with which to check your CSS and browser compatability.

(progn
(org-back-to-heading)
(org-get-tags)
)

[[http://browsershots.org/[[http://www.stevefairwaymusic.com/index][Browser][http://www.stevefairwaymusic.com/index][Browser]] Shots : preview your web site developments.]]

--
My Emacs Files At GitHub

org-googlecl now checks for existing blog entries

;; If the option flag googlecl-blog-exists is set to true we check if there is already an entry with this title.
;; If a blog with the same title exists then give the option to view it via the default browser.

(if googlecl-blog-exists
    (with-temp-buffer
      (let* ((blogrc (call-process-shell-command  (concat "google blogger  list --blog '" googlecl-blogname "' --title '" btitle "' url") nil (current-buffer)))
           (blogurl (buffer-string)))
        (if (not (zerop(length blogurl)))
            (if (y-or-n-p (concat "Blog entry exists :" blogurl ". View existing?"))
                (browse-url blogurl))))))

--
My Emacs Files At GitHub

wfgw1t324t634

df
--
My Emacs Files At GitHub

expertise

Remote: origin git@github.com:rileyrg/org-googlecl.git
Local: master ~/programming/emacs/org-googlecl/
Head: 0de8b07 Do zerop check on length. How many more times am I going to make that error?!

Stashes:

--
My Emacs Files At GitHub

org-googlecl now checks for exiting blog entries

;; if the option flag googlecl-blog-exists is set to true we check if there is already an entry with this title.
;; if there is give the option to view the existing one.
(if googlecl-blog-exists
(with-temp-buffer
(let* ((blogrc (call-process-shell-command (concat "google blogger list --blog '" googlecl-blogname "' --title '" btitle "' url") nil (current-buffer)))
(blogurl (buffer-string)))
(if (not (zerop(length blogurl)))
(if (y-or-n-p (concat "Blog entry exists :" blogurl ". View existing?"))
(browse-url blogurl))))))

(unless borg (setq bbody
(if (use-region-p)
(region-or-word-at-point)
(read-from-minibuffer "Body:" ))))

--
My Emacs Files At GitHub

ererererer

body
--
My Emacs Files At GitHub

test2

help

test

r

TestMe

wlfjslfkjslkfj

TestMe

new body 2

blog test

new body

TestMe

text

Save temp files to the tmp directory

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

Save temp files to the tmp directory

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

   ;; (require 'real-auto-save)
   ;; (remove-hook 'org-mode-hook 'turn-on-real-auto-save)
   ;; (setq real-auto-save-interval 5) ;; in seconds

Save temp files to the tmp directory

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

   ;; (require 'real-auto-save)
   ;; (remove-hook 'org-mode-hook 'turn-on-real-auto-save)
   ;; (setq real-auto-save-interval 5) ;; in seconds

;; Dont ask me why this needs to go here. I dont know.
(require 'pymacs)
(pymacs-load "ropemacs" "rope-")

(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)))))

improved code for googlecl blog

sweeter code

(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)))))

dotemacs on github

(nth 5 (org-heading-components))
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.

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.

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 EXAMPLE

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)

org-google-weather BLOCK

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)
  
  

org-google-weather SRC

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

nil

org-google-weather - VERSE

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)
  
  
  
  
  
  

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)