contrib/lisp/ob-redis.el

   1 ;;; ob-redis.el --- Execute Redis queries within org-mode blocks.
   2 ;; Copyright 2016 stardiviner
   3
   4 ;; Author: stardiviner <numbchild@gmail.com>
   5 ;; Maintainer: stardiviner <numbchild@gmail.com>
   6 ;; Keywords: org babel redis
   7 ;; URL: https://github.com/stardiviner/ob-redis
   8 ;; Created: 28th Feb 2016
   9 ;; Version: 0.0.1
  10 ;; Package-Requires: ((org "8"))
  11
  12 ;;; Commentary:
  13 ;;
  14 ;; Execute Redis queries within org-mode blocks.
  15
  16 ;;; Code:
  17 (require 'org)
  18 (require 'ob)
  19
  20 (defgroup ob-redis nil
  21   "org-mode blocks for Redis."
  22   :group 'org)
  23
  24 (defcustom ob-redis:default-db "127.0.0.1:6379"
  25   "Default Redis database."
  26   :group 'ob-redis
  27   :type 'string)
  28
  29 ;;;###autoload
  30 (defun org-babel-execute:redis (body params)
  31   "org-babel redis hook."
  32   (let* ((db (or (cdr (assoc :db params))
  33                  ob-redis:default-db))
  34          (cmd (mapconcat 'identity (list "redis-cli") " ")))
  35     (org-babel-eval cmd body)
  36     ))
  37
  38 ;;;###autoload
  39 (eval-after-load "org"
  40   '(add-to-list 'org-src-lang-modes '("redis" . redis)))
  41
  42 (provide 'ob-redis)
  43
  44 ;;; ob-redis.el ends here