Skip to content

Instantly share code, notes, and snippets.

View 5hanth's full-sized avatar

Shanthakumar 5hanth

  • Software Consultant
  • Chennai
View GitHub Profile
@5hanth
5hanth / flames.clj
Last active October 30, 2015 06:29
FLAMES
(defn _do-flames [n fl]
(let [do-split (fn [n fl]
(let [[xs ys] (split-at n fl)]
(flatten
(conj (butlast xs)
ys))))
c (count fl)]
(cond (= c 1)
(first fl)
(<= n c)
@5hanth
5hanth / strug-mod.zsh-theme
Created February 9, 2016 07:50
Simple prompt based on strug.zsh-theme
# Simple prompt based on strug.zsh-theme
PROMPT='
%~ %T
'
local git_branch='$(git_prompt_info)%{$reset_color%}$(git_remote_status)'
ZSH_THEME_GIT_PROMPT_PREFIX="%{$fg_bold[yellow]%} "
ZSH_THEME_GIT_PROMPT_SUFFIX="%{$reset_color%}"
@5hanth
5hanth / gifcast.el
Created February 22, 2016 17:59
Screencasting + Gif = Gifcasting :: using ffcast + ffmpeg in emacs
(defun sha/screencast (&optional output-file)
(let ((output-file
(or output-file
(concat "/tmp/"
(format "%S" (abs (random)))
".mp4"))))
(message "screen-cast started")
(start-process "screencasting"
(get-buffer-create "*screencast-buffer*")
"ffcast"
@5hanth
5hanth / format_mails.el
Created February 22, 2016 18:04
Format mails for interleaved response in emacs
(defun sha/format-mail-header ()
(interactive)
(with-current-buffer (current-buffer)
(let ((beg (region-beginning))
(end (region-end))
(fill-column 60))
(goto-char beg)
(insert "Hi,\n\n")
(forward-line 0)
(insert "---")
@5hanth
5hanth / out.json
Last active November 16, 2019 14:41
Parse text of links to json in elisp
{
"links": [
{
"href": "http:\/\/github.com",
"label": "Github"
},
{
"href": "http:\/\/stackoverflow.com",
"label": "Stackoverflow"
},

Keybase proof

I hereby claim:

  • I am 5hanth on github.
  • I am shanth (https://keybase.io/shanth) on keybase.
  • I have a public key whose fingerprint is DE53 0326 5015 7A0B 7257 9D72 E3AD 5EAD 88EE 1A77

To claim this, I am signing this object:

@5hanth
5hanth / veg-rates.rb
Created March 18, 2017 18:50
Vegetable Price Chennai
#! /usr/bin/env ruby
require 'nokogiri'
require 'open-uri'
doc = Nokogiri::HTML(open('http://www.livechennai.com/Vegetable_price_chennai.asp'))
table = doc.css("table.table-price tr")
parse = -> (i) { i.css('td').drop(1).map{|j| j.css('p')[0].content.strip.chop.strip}.join }
0x0ff2b841E898c5E3FD3A9f2837910330869B46D5
@5hanth
5hanth / keybase.md
Created November 2, 2018 05:30
kebase proof.

Keybase proof

I hereby claim:

  • I am 5hanth on github.
  • I am shanth (https://keybase.io/shanth) on keybase.
  • I have a public key ASC03EJZ-xQ8FkxxeRTCZC-HWnZSBwnXIWzf-vWLaxFQoAo

To claim this, I am signing this object:

var proc = (count, index) => {
let submitBtn = document.evaluate(`//*[@id="auto_off"]/table[4]/tbody/tr[5]/td[2]/input`,document).iterateNext()
let selectInput = document.evaluate(`//*[@id="subdiv"]/tbody/tr[5]/td[2]/select`, document).iterateNext()
let options = selectInput.options
let indexInt = parseInt(index)
let currentOption = options[indexInt]
if(currentOption && currentOption.value == selectInput.value) {
if((indexInt - 1) < options.length) {
console.log(`click `, options[indexInt+1])
selectInput.selectedIndex = indexInt+1