iPhone 4 BLACK wearing Bumpers

Did you order iPhone 4? I ordered a black model. And I want to get Bumpers for iPhone 4. Writing Bumpers, Apple show us only white model wearing them. I couldn't have imagined the black model with Bumpers. So, I asked a designer to create the image. He created this.





You can see the large image here.

http://www.ariesplus.com/wordp/iphone/407.html

Which color do you like?

Use JavaScript-like "with" syntax in Ruby

JavaScript has "with" syntax. At first, I write a code without "with".

view plainprint?

1. console.log(Math.cos(1/2)); //=> 0.8775825618903728  
2. console.log(Math.sqrt(2)); //=> 1.4142135623730951  

console.log(Math.cos(1/2)); //=> 0.8775825618903728
console.log(Math.sqrt(2)); //=> 1.4142135623730951

Then, I write with "with".

view plainprint?

1. with(Math) {  
2.   console.log(cos(1/2)); //=> 0.8775825618903728  
3.   console.log(sqrt(2)); //=> 1.4142135623730951  
4. }  

with(Math) {
  console.log(cos(1/2)); //=> 0.8775825618903728
  console.log(sqrt(2)); //=> 1.4142135623730951
}

On the other hand, Ruby has not "with" syntax.

view plainprint?

1. puts Math.cos(1/2) #=> 1.0  
2. puts Math.sqrt(2) #=> 1.4142135623731  

puts Math.cos(1/2) #=> 1.0
puts Math.sqrt(2) #=> 1.4142135623731

Look! I can use "with" in Ruby!

view plainprint?

1. with(Math) {  
2.   puts cos(1/2) #=> 1.0  
3.   puts sqrt(2) #=> 1.4142135623731  
4. }  

with(Math) {
  puts cos(1/2) #=> 1.0
  puts sqrt(2) #=> 1.4142135623731
}

To do this, I wrote "with" function.

view plainprint?

1. def with(obj, &block)  
2.   obj.instance_eval(&block)  
3. end  

def with(obj, &block)
  obj.instance_eval(&block)
end

So, I can use "with" syntax.

view plainprint?

1. with(Math) {  
2.   puts cos(1/2) #=> 1.0  
3.   puts sqrt(2) #=> 1.4142135623731  
4. }  

with(Math) {
  puts cos(1/2) #=> 1.0
  puts sqrt(2) #=> 1.4142135623731
}

Of course, other type of object is OK. String, Intger and so on.

view plainprint?

1. with("I love Ruby.") {  
2.   puts reverse #=> .ybuR evol I  
3.   puts gsub(/Ruby/, "YUI") #=> I love YUI.  
4. }  

with("I love Ruby.") {
  puts reverse #=> .ybuR evol I
  puts gsub(/Ruby/, "YUI") #=> I love YUI.
}

view plainprint?

1. with(1) {  
2.   puts succ #=> 2  
3. }  

with(1) {
  puts succ #=> 2
}

To buy, or not to buy: that is the question.

Pre-order of iPhone 4 start from the day after tomorrow in Japan. I can't make up my mind to buy. I bought Kindle DX two month ago and iPad last month. So I used a lot of money. As a developer, the high-resolution should be noted.


By the way, which is better, white or black? I thought iPhone should be black. But the white model is cool as for iPhone 4. Black or white: that is the question.

Amazon.com Larger Font Bookmarklet

I like to read book reviews in Amazon.com with iPhone.
Amazon.com show optimized pages for iPhone.
I think its font size is so small.
Then I made a bookmarklet.

Amazon.com larger font bookmarklet

You can view pages with larger font when you run this bookmarklet.

view plainprint?

1. var e = document.getElementsByTagName('div');  
2.   
3. var n = e.length;  
4.   
5. for (var i = 0; i < n; i++) {  
6.   
7.    e[i].style.fontSize = '14px';  
8.   
9. }  

var e = document.getElementsByTagName('div');

var n = e.length;

for (var i = 0; i < n; i++) {

   e[i].style.fontSize = '14px';

}

Making Web Application with Haskell #3

I make a web application with Haskell.
It's a simple application.
You input your name, then the application output your name.
See below.






The other day I made the application with Network.CGI.
Today I make it with Text.XHtml wich is included in GHC.

view plainprint?

1. import Network.CGI  
2. import Text.XHtml  
3.   
4. inputForm :: Html  
5. inputForm = form << [paragraph << "Who are you?",  
6.                      textfield "name",  
7.                      submit "" "send"]  
8.   
9. greet :: String -> Html  
10. greet n = h1 << ("Hello, " ++ n ++ "!")  
11.   
12. page :: String -> Html -> Html  
13. page t b = header << thetitle << t +++ body << b  
14.   
15. cgiMain :: CGI CGIResult  
16. cgiMain = do name <- getInput "name"  
17.              let x = maybe inputForm greet name  
18.              output $ renderHtml $ page "Hello" x  
19.   
20. main :: IO ()  
21. main = runCGI $ handleErrors cgiMain  

import Network.CGI
import Text.XHtml

inputForm :: Html
inputForm = form << [paragraph << "Who are you?",
                     textfield "name",
                     submit "" "send"]

greet :: String -> Html
greet n = h1 << ("Hello, " ++ n ++ "!")

page :: String -> Html -> Html
page t b = header << thetitle << t +++ body << b

cgiMain :: CGI CGIResult
cgiMain = do name <- getInput "name"
             let x = maybe inputForm greet name
             output $ renderHtml $ page "Hello" x

main :: IO ()
main = runCGI $ handleErrors cgiMain

This code is simpler than the previous code.

Making Web Application with Haskell #2

I make a web application with Haskell.
It's a simple application.
You input your name, then the application output your name.
See below.






The other day I made the application without any library.
Today I make it with Network.CGI wich is included in GHC.

view plainprint?

1. import Network.CGI  
2.   
3. inputForm :: String -> String  
4. inputForm script = concat [  
5.   "<form action=\"", script, "\" method=\"GET\">",  
6.   "<p>Who are you?</p>",  
7.   "<input type=\"text\" name=\"name\" />",  
8.   "<input type=\"submit\" value=\"send\" />",  
9.   "</form>"]  
10.   
11. putName :: String -> String  
12. putName name = concat ["<h1>Hello, ", name, "!</h1>"]  
13.   
14. body :: Maybe String -> String -> String  
15. body name script =   
16.   case name of   
17.     Just x  -> putName x  
18.     Nothing -> inputForm script  
19.   
20. html :: Maybe String -> String -> String  
21. html name script = concat [  
22.   "<html>",  
23.   "<head><title>Hello</title></head>",  
24.   "<body>",  
25.   body name script,  
26.   "</body>",  
27.   "</html>"]  
28.   
29. cgiMain :: CGI CGIResult  
30. cgiMain = do  
31.   setHeader "Content-type" "text/html; charset = UTF-8"  
32.   script <- scriptName  
33.   name <- getInput "name"  
34.   output $ html name script  
35.   
36. main :: IO ()  
37. main = runCGI (handleErrors cgiMain)  

import Network.CGI

inputForm :: String -> String
inputForm script = concat [
  "<form action=\"", script, "\" method=\"GET\">",
  "<p>Who are you?</p>",
  "<input type=\"text\" name=\"name\" />",
  "<input type=\"submit\" value=\"send\" />",
  "</form>"]

putName :: String -> String
putName name = concat ["<h1>Hello, ", name, "!</h1>"]

body :: Maybe String -> String -> String
body name script = 
  case name of 
    Just x  -> putName x
    Nothing -> inputForm script

html :: Maybe String -> String -> String
html name script = concat [
  "<html>",
  "<head><title>Hello</title></head>",
  "<body>",
  body name script,
  "</body>",
  "</html>"]

cgiMain :: CGI CGIResult
cgiMain = do
  setHeader "Content-type" "text/html; charset = UTF-8"
  script <- scriptName
  name <- getInput "name"
  output $ html name script

main :: IO ()
main = runCGI (handleErrors cgiMain)

Complete!

Making Web Application with Haskell #1

I make a web application with Haskell.
It's a simple application.
You input your name, then the application output your name.
See below.






Today I make the application without any library.
I use standard input and output.

view plainprint?

1. import System.Environment  
2.   
3. inputForm :: String -> String  
4. inputForm script = concat [  
5.   "<form action=¥"", script, "¥" method=¥"GET¥">",  
6.   "<p>Who are you?</p>",  
7.   "<input type=¥"text¥" name=¥"name¥" />",  
8.   "<input type=¥"submit¥" value=¥"send¥" />",  
9.   "</form>"]  
10.   
11. getName :: String -> String  
12. getName q = drop 5 q  
13.   
14. main = do   
15.   putStrLn "Content-type: text/html; charset = UTF-8¥n"  
16.   putStrLn "<html>"  
17.   putStrLn "<head><title>Hello</title></head>"  
18.   putStrLn "<body>"  
19.   script <- getEnv "SCRIPT_NAME"  
20.   query <- getEnv "QUERY_STRING"  
21.   case query of  
22.     "" -> putStrLn $ inputForm script  
23.     _  -> putStrLn $ concat ["<h1>Hello, ", getName query, "!</h1>"]  
24.   putStrLn "</body>"  
25.   putStrLn "</html>"  

import System.Environment

inputForm :: String -> String
inputForm script = concat [
  "<form action=¥"", script, "¥" method=¥"GET¥">",
  "<p>Who are you?</p>",
  "<input type=¥"text¥" name=¥"name¥" />",
  "<input type=¥"submit¥" value=¥"send¥" />",
  "</form>"]

getName :: String -> String
getName q = drop 5 q

main = do 
  putStrLn "Content-type: text/html; charset = UTF-8¥n"
  putStrLn "<html>"
  putStrLn "<head><title>Hello</title></head>"
  putStrLn "<body>"
  script <- getEnv "SCRIPT_NAME"
  query <- getEnv "QUERY_STRING"
  case query of
    "" -> putStrLn $ inputForm script
    _  -> putStrLn $ concat ["<h1>Hello, ", getName query, "!</h1>"]
  putStrLn "</body>"
  putStrLn "</html>"

Complete!