Skip to content

Instantly share code, notes, and snippets.

Shanthakumar 5hanth

Block or report user

Report or block 5hanth

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View scrap.console.js
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
View keybase.md

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:

@5hanth
5hanth / veg-rates.rb
Created Mar 18, 2017
Vegetable Price Chennai
View veg-rates.rb
#! /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 }
View keybase.md

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 / out.json
Last active Mar 1, 2016
Parse text of links to json in elisp
View out.json
{
"links": [
{
"href": "http:\/\/github.com",
"label": "Github"
},
{
"href": "http:\/\/stackoverflow.com",
"label": "Stackoverflow"
},
@5hanth
5hanth / format_mails.el
Created Feb 22, 2016
Format mails for interleaved response in emacs
View format_mails.el
(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 / gifcast.el
Created Feb 22, 2016
Screencasting + Gif = Gifcasting :: using ffcast + ffmpeg in emacs
View gifcast.el
(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 / strug-mod.zsh-theme
Created Feb 9, 2016
Simple prompt based on strug.zsh-theme
View strug-mod.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%}"
View flames.clj
(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)
You can’t perform that action at this time.