sachac

var secret = require("./secret");
var flickrOptions = secret.flickrOptions;
var Flickr = require("flickrapi");

exports.trimTitle = function(str) {
    return str.replace(/ --.*$/g, '').replace(/#[^ ]+/g, '').replace(/[- _]/g, '');
};

var hash = {};

sachac

  (defun sacha/org-count-tasks-by-status ()
    (interactive)
    (let ((counts (make-hash-table :test 'equal))
          (today (format-time-string "%Y-%m-%d" (current-time)))
          values)
      (org-map-entries
       (lambda ()
         (let* ((status (elt (org-heading-components) 2)))
           (when status
             (puthash status (1+ (or (gethash status counts) 0)) counts))))

sachac

  (defun sacha/sort-sexps-in-region (beg end)
    "Can be handy for sorting out duplicates.
Sorts the sexps from BEG to END. Leaves the point at where it
couldn't figure things out (ex: syntax errors)."
    (interactive "r")
    (let ((input (buffer-substring beg end))
          list last-point form result)
      (save-restriction
        (save-excursion
          (narrow-to-region beg end)

sachac

• What are outlines good for?
  • Capturing thoughts quickly
  • Writing non-linearly
  • Roughly organizing your thoughts
  • Deciding depth and coverage
  • Rearranging them for a more logical flow
  • Writing quickly
  • Picking things up where you left off
  • Seeing the gaps
  • Simplifying

sachac

Monthly review: November 2014

I wrote last month that in November, I planned to:

• Get team members up to speed with prototype designs and reporting tips

sachac

;; This version is for BBDBv3 - thanks, Thomas!

(defvar wicked/gnus-nick-threshold 5 "*Number of people to stop greeting individually. Nil means always greet individually.")  ;; (1)
(defvar wicked/bbdb-hello-string "Hello, %s!" "Format string for hello. Example: \"Hello, %s!\"")
(defvar wicked/bbdb-hello-all-string "Hello, all!" "String for hello when there are many people. Example: \"Hello, all!\"")
(defvar wicked/bbdb-nick-field 'nick "Symbol name for nickname field in BBDB.")
(defvar wicked/bbdb-salutation-field 'hello "Symbol name for salutation field in BBDB.")

(defun wicked/gnus-add-nick-to-message ()
	"Inserts \"Hello, NICK!\" in messages based on the recipient's nick field."

sachac

Title: Taking over the world, two parentheses at a time

How can we get more people to use and love Lisp? Come to this session for practical tips on applied selfishness and community-building, and join in the conspiracy to take over the world (or a reasonable portion thereof). I’ll share some stories from Emacs evangelism, including new tools, beginner-friendly approaches, and the effectiveness of indirect brainwashing.

Bio: Sacha Chua loves getting Emacs to do all sorts of things that boggle casual passers-by. She’s working on more resources for Emacs beginners and enthusiasts, including doodled cheat sheets and interviews with people who are even more into Emacs Lisp than she is (emacslife.com). You can check out her blog at LivingAnAwesomeLife.com or follow her on Twitter (@sachac).

sachac

(defadvice org-babel-execute:sh (around sacha activate)
  (if (assoc-default :term (ad-get-arg 1) nil)
    (let ((buffer (make-term "babel" (or explicit-shell-file-name
                                         (getenv "ESHELL")
                                         (getenv "SHELL")
                                         "/bin/sh"))))
      (with-current-buffer buffer
        (insert (org-babel-expand-body:generic
             body params (org-babel-variable-assignments:sh params)))

sachac

;; Totally untested

(defvar clarissa/beeminder-user "example" "Username for Beeminder service.")
(defvar clarissa/beeminder-token "1234" "Token - get this from https://www.beeminder.com/api/v1/auth_token.json")
(defun clarissa/beeminder-post (goal datapoint)
  (interactive "MGoal: \nMData: \nMToken value: ")
  (let ((url-request-data (json-encode `((value . ,datapoint) (auth_token . ,clarissa/beeminder-token))))   
        (url-request-method "POST")
        (url-request-extra-headers '(("Content Type" . "application/json")))
        (url-mime-encoding-string "identity"))

sachac

diff -u ./term-management-tools/term-management-tools.orig.php ./term-management-tools/term-management-tools.php
--- ./term-management-tools/term-management-tools.orig.php      2013-08-27 13:06:32.000000000 -0400
+++ ./term-management-tools/term-management-tools.php   2013-08-27 13:43:24.000000000 -0400
@@ -175,6 +175,17 @@
                                );
                        }

+                       $term2 = get_term_by('name', $term->name, $new_tax);
+                       if ($term2) {
+                               $wpdb->query( $wpdb->prepare( "UPDATE $wpdb->term_relationships SET term_taxonomy_id=%d WHERE term_taxonomy_id=%d",