pedroteixeira

require 'ruote/storage/base'

module Ruote
  module ActiveRecord
    
    class Document < ::ActiveRecord::Base
      set_table_name :documents
      
      def self.before_fork
        ::ActiveRecord::Base.clear_all_connections!

pedroteixeira

;; recentf
(require 'recentf)    ;; save recently used files
(setq
  recentf-save-file "~/.emacs.d/cache/recentf"
  recentf-max-saved-items 1000     ;; max save 100
  recentf-max-menu-items 15)      ;; max 15 in menu
(recentf-mode t)                  ;; turn it on

pedroteixeira

(defn intercept
  "Call the function body-fn, by installing bindings to intercept all functions with a generic handler. The handler is called with the Var to the original function, its original value and original arguments."
  [functions handler body-fn]
  (with-bindings 
    (reduce     
     (fn [bs fn-var]
       (let [f (deref fn-var)]
	 (merge bs	 
		{fn-var
		 (fn [& args] (handler fn-var f args))})))

pedroteixeira

(defmacro record 
  "Dynamic factory for defrecords." 
  ([name] `(record ~name {}) ) 
  ([name vals-map] 
     `(let [con# (first (.getDeclaredConstructors ~name)) 
            num# (alength (.getParameterTypes con#))] 
        (merge (.newInstance con# (make-array Object num#)) ~vals-map))))