all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
From: Sebastian Rose <sebastian_rose@gmx.de>
To: emacs-orgmode Org-Mode <emacs-orgmode@gnu.org>
Subject: Fast open, what is published already
Date: Fri, 27 Feb 2009 16:18:44 +0100	[thread overview]
Message-ID: <87d4d3oqln.fsf@kassiopeya.MSHEIMNETZ> (raw)

[-- Attachment #1: Type: text/plain, Size: 638 bytes --]

Hi everyone,


I recently fell in love with org-annotation-helper.el and
org-browser.el. I hacked together a little shell script, that uses the
features of those two to open an already published org-file, presumed
the local repo is configured, and a protocol handler and bookmark are in
place.

Also, you may do a `git pull', `mtn pull' or what ever before  the file
is opened in emacs. The script can easily be adjusted to work with any
Org project. I plan to add a little function to create new bookmarklets,
protocol handlers and scripts easily (or receive the protocol on stdin
too and map protocols to repositories).

This is it:




[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-sh, Size: 4316 bytes --]

#! /bin/bash

# Author: Sebastian Rose <sebastian_rose at gmx de>
#
# The idea is roughly based on org-annotation-helper and org-browser-url.el,
# written by Bastien Guerry and Ross Patterson respectively.
#
# AIMS
#
#   Open already published files in emacs easily. This script is originally
#   geard for usage with the contents in http://orgmode.org/worg/ (and
#   Worg.git), but it can easily be changed to help with other projects too.
#
#   Optionally do a `git pull', `mtn pull' or whatever.
#
#   See `Future plans' for what is planed.
#
#
# REQUIREMENTS
#
#   * You'll need to have ssh-askpass installed, to load ssh-key files as needed.
#   * Firefox browser. The possibility to do somthing similar with Opera seems to
#     exist, but I didn't test it. For more visit opera.com.
#   * An SMCS, capable of using ssh-agent, and configured to use it. You might also
#     use this script for repos that are accessed without any authentication at all
#     (or a kind of authentication that does not require any interaction).
#   * zenity
#
# USAGE:
#
#  1.) Add a new protocol handler to Firefox:
#       * navigate to "about:config"
#       * right click, select "New" => "String"
#       * enter the name:
#
#              network.protocol-handler.app.org-worg
#
#       * leave the value blank
#
#      See http://kb.mozillazine.org/Register_protocol for more details.
#
#  2.) Add a bookmark to Firefox. As `Location' use this here:
#
#        javascript:location.href='org-worg:///'+location.href.replace(/http:\/\/orgmode.org\/worg\//, "")
#
#  3.) Customize all the option below.
#
#  4.) When browsing http://orgmode.org/worg/, click the bookmark. Firefox will
#      ask for the application to use with the protocol `org-worg://'. Enter the
#      path to this script and ensure it is executable. If everything is configured
#      correctly, the appropriate file is opened in emacs.
#


# ##########################################################
#                  --- CUSTOMIZATION ---
#

# No slash at the end:
working_dir=~/develop/org/Worg


# Could be changed to "mtn sync" or what ever.
pull_command="git pull"

# Does the pull command require a ssh key file to be loaded?
# Key file to add, to be able pull:
ssh_key_file=~/.ssh/id_repo_or_cz

# Does the pull command require a ssh key file to be loaded?
# We can only ask if the fingerprint is in ssh-agent. Needed, if your
# project requires it.
fingerprint="b7:f5:10:43:3b:c2:fe:b5:54:18:3f:35:f1:d0:a3:6e"

# Pull before editing? [always|never|ask]
pull_policy=ask

# The suffix to strip (i.e. to exchange with `.org').
strip_suffix=".php"

# Only change this, if you changed the protocol used for the bookmarklet!
file=${1#org-worg:///}

#
# --- these options are less likely to change ---
#
working_suffix=".org"

#
#             --- END OF CUSTOMIZATION ---
# ##########################################################





# Future plans:
case "${1}" in
    --help)       # Print a help message (installation...)
        echo "HELP"
        exit 0 ;;
    --create) # Create new files and bookmarklets for more projects interactively.
        echo "CREATE"
        exit 0 ;;
esac
# End of future plans.





file="${file%${strip_suffix}}${working_suffix}"

if [ -f "${working_dir}/${file}" ]; then
    do_pull=$pull_policy
    if [ "ask" = $pull_policy ]; then
        if zenity --question --title="Org-Worglet :: ${file}" --text="Shall I pull before opening\n${file}?"; then
            do_pull=always
        fi
    fi

    if [ "always" = $do_pull ]; then
        val=$(ssh-add -l | grep "${fingerprint}")
        if [ -z "${val}" ]; then
            ssh-add "${ssh_key_file}"
        fi
        cd "${working_dir}"
        if ! ${pull_command}; then
            if ! zenity --question --title="Org-Worglet :: ${pull_command}" --text="${pull_command} FAILED. Open the file anyway?"; then
                exit 1
            fi
        fi
    fi
    emacsclient --eval "(find-file \"${working_dir}/${file}\")"
else
    zenity --error --title "Org-Worglet :: Error" --text "File does not exist: ${working_dir}/${file}"
fi
</#part>






-- 
Sebastian Rose, EMMA STIL - mediendesign, Niemeyerstr.6, 30449 Hannover
Tel.:  +49 (0)511 - 36 58 472
Fax:   +49 (0)1805 - 233633 - 11044
mobil: +49 (0)173 - 83 93 417
Http:  www.emma-stil.de

[-- Attachment #3: Type: text/plain, Size: 204 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

             reply	other threads:[~2009-02-27 15:15 UTC|newest]

Thread overview: 3+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2009-02-27 15:18 Sebastian Rose [this message]
2009-02-27 15:50 ` Fast open, what is published already Carsten Dominik
2009-02-28  1:04   ` Sebastian Rose

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87d4d3oqln.fsf@kassiopeya.MSHEIMNETZ \
    --to=sebastian_rose@gmx.de \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.