Skip to content

Instantly share code, notes, and snippets.

View kytu800's full-sized avatar

Kytu kytu800

75 followers · 17 following
View GitHub Profile
@kytu800
kytu800 / gist:4221193
Created December 6, 2012 01:43
CCSP 2012F LESS Compile Example
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8">
<title>Bootstrap, from Twitter</title>
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta name="description" content="">
<meta name="author" content="">
@kytu800
kytu800 / gist:5592827
Created May 16, 2013 15:59
abstract class AbstractPeople{
protected abstract void fight();
}
class People extends AbstractPeople{
protected void fight(){
System.out.println("fight");
}
protected void say(){
System.out.println("say");
@kytu800
kytu800 / gist:6104404
Created July 29, 2013 13:46
@app.config ['$stateProvider','$urlRouterProvider','$locationProvider',
($stateProvider,$urlRouterProvider,$locationProvider) ->
$stateProvider.state 'index',
url: "/"
templateUrl: '<%= asset_path "home.html" %>'
controller: Index
$urlRouterProvider.otherwise '/'
$locationProvider.html5Mode true
@kytu800
kytu800 / gist:6247633
Created August 16, 2013 06:01
choir
choir
@kytu800
kytu800 / angularga.js
Created September 14, 2013 23:37
Ga in angularjs
$scope.$on('$stateChangeSuccess', function(event) {
$window._gaq.push(['_trackPageview', $location.path()]);
});
@kytu800
kytu800 / peggy-decimal.vb
Created October 30, 2013 05:14
Sub IncreaseDecimal()
Dim peggy As String
peggy = Selection.NumberFormat
MsgBox (peggy)
If (Len(peggy) = 1) Then
peggy = peggy & ".0"
Else
peggy = peggy & "0"
End If
End Sub
@kytu800
kytu800 / peggy.vb
Created November 2, 2013 14:39
Sub ChangeColor()
'Type1'
Dim colorfont1 As Integer
Dim colorinterior1 As Integer
colorfont1 = 16777215
colorinterior1 = 6299648
'Type2'
Dim colorfont2 As Integer
@kytu800
kytu800 / index.vb
Created November 2, 2013 15:34
Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long
l = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "INDEX"
.Cells(1, 1).Name = "Index"
@kytu800
kytu800 / email_sheet.vb
Created November 2, 2013 15:37
Sub Email_Sheet()
Dim oApp As Object
Dim oMail As Object
Dim LWorkbook As Workbook
Dim LFileName As String
'Turn off screen updating
Application.ScreenUpdating = False
@kytu800
kytu800 / gist:7447716
Created November 13, 2013 11:40
gist
http://ppcdn.500px.org/51964356/2620adbb8a71859e710bf808894c03824f7c3b6e/2048.jpg
http://ppcdn.500px.org/51970388/a911fdd2cf6adc38d7dbfaf821323272847dc00a/2048.jpg
http://ppcdn.500px.org/51961984/a867c4c451b938e25faa2609878851871ab37935/5.jpg
http://ppcdn.500px.org/51970460/32451e4c30c5c5954c53efd4c712e725387e681a/5.jpg
http://ppcdn.500px.org/51963698/dd9c5243fe2ac543c44e78446a5c2ba410eff37b/5.jpg