Skip to content

Instantly share code, notes, and snippets.

View narendraj9's full-sized avatar

Narendra Joshi narendraj9

View GitHub Profile

Keybase proof

I hereby claim:

  • I am narendraj9 on github.
  • I am narendraj9 (https://keybase.io/narendraj9) on keybase.
  • I have a public key whose fingerprint is 71A7 1600 E6F7 6477 E369 6424 9116 6D6D B96A F7EB

To claim this, I am signing this object:

##Reactive System Design Links

#Articles and Papers

;;; org-macro.el --- Macro Replacement Code for Org -*- lexical-binding: t; -*-
;; Copyright (C) 2013-2017 Free Software Foundation, Inc.
;; Author: Nicolas Goaziou <n.goaziou@gmail.com>
;; Keywords: outlines, hypermedia, calendar, wp
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
(defun jump-to-comment ()
(interactive)
(require 'face-remap)
(search-forward-regexp "^;; \\([-+[:digit:]]+\\)")
(let ((text-scale-mode-amount (string-to-number (match-string 1))))
(text-scale-mode +1)))
@narendraj9
narendraj9 / magit-blame--search.el
Last active February 7, 2019 18:41
Search magit-blame committers
;;; -- Magit blame swiper results
(require 'magit-blame)
;;; -- Magit blame swiper results
(require 'dash)
(defun magit-blame--current-committer ()
(when (and (boundp 'magit-blame-read-only-mode)
magit-blame-read-only-mode)
(->> (overlays-at (point))
(-keep (lambda (ov)
(when (and (= (line-beginning-position) (overlay-start ov)))
(require 'treepy)
(require 'parseclj)
(defun let-binding-point* (root s-value s-position)
"Return position for let binding in `ROOT' for `S-VALUE' at `S-POSITION'."
(let ((current-zipper (treepy-zipper (lambda (n) (assoc-default :children n))
(lambda (n) (assoc-default :children n))
(lambda (n children) (cons (cons :children children) n))
root)))
(while (and (not (treepy-end-p current-zipper))