FrancisMurillo

const r = require('rethinkdb');

const sampleSchema = {
    name: 'mydb',

    tables: [
        {
            name: 'users',

            // Not really used but as a schema reference

FrancisMurillo

; -*- lexical-binding: t; -*-
(require 'dash)
(require 's)

(require 'smex)

(require 'promise)
(require 'stream)
(require 'transducer )

FrancisMurillo

(require 'dash)
(require 's)
(require 'f)


(defface fmc/completion-label-face  '((t (:weight bold :height 1.1)))
  "Label face")

(defface fmc/completion-delimiter-face '((t (:weight light :height 0.9)))
  "Delimiter face")

FrancisMurillo

(defvar fn/prodigy-command-name-prefix "fmpv/"
    "The prefix when creating binding prodigy view commands.")

(defun fn/prodigy-switch-to-process-buffer (service)    
    "Just an wrapper for said function with SERVICE."
    (prodigy-switch-to-process-buffer service))

(defun fn/prodigy-prepared-switch-to-process-buffer (service)
    "Another wrapper to make specific functions for viewing SERVICE."    
    (lexical-let* ((service-name (plist-get service :name))

FrancisMurillo

(require 'f)

(defconst fn/relative-same-node "."  
    "Represents the same node on a path.")

(defconst fn/relative-parent-node ".."  
    "Represents the parent node on a path.")

(defun fn/relative-parent-node-thunk (&rest args)
    "Always returns `fn/relative-parent-node'."

FrancisMurillo

(with-eval-after-load 'projectile
  (defconst fn/project-file ".project.el"
    "Project configuration file")

  (defconst fn/project-local-file ".project-locals.el"
    "Project local setting file")

  (defconst fn/project-init-files (list fn/project-file fn/project-local-file)
    "Project init files")

FrancisMurillo

(defun fn/orgtbl-to-yaml (table params)
  "Convert an org table to yaml."
  (lexical-let ((headers
       (mapcar
        (lambda (header)
          (replace-regexp-in-string
           " " "-"
           (downcase header)))
        (car table)))
      (zip

FrancisMurillo

;;; magin.el --- Write git ignore files with a DSL  -*- lexical-binding: t; -*-
;;
;; Filename: magin.el
;; Description:
;; Author: Francis Murillo
;; Maintainer:
;; Created: Wed Dec 28 21:36:00 2016 (+0800)
;; Version: 0.1
;; Package-Requires: ((emacs "24.4"))
;; Last-Updated:

FrancisMurillo

;;; projin.el --- Write projectile ignore files with a DSL  -*- lexical-binding: t; -*-
;;
;; Filename: projin.el
;; Description:
;; Author: Francis Murillo
;; Maintainer:
;; Created: Wed Dec 28 21:36:00 2016 (+0800)
;; Version: 0.1
;; Package-Requires: ((emacs "24.4"))
;; Last-Updated:

FrancisMurillo

(cons "freenode"
   (concat  ;; freenode
    (propertize
     "free" 'face '(:foreground "#e6e6e6"))
    (propertize
     "node" 'face '(:foreground "#4beb4a"))))

(cons "emacs"
   (propertize
    "emacs"