From 4070a9f0ba31490dd7454e802a8da7de9975b2ef Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sat, 8 Nov 2014 19:41:23 -0500
Subject: [PATCH] Focus search box when page loads

---
 src/main.rkt         | 3 ++-
 static/searchpage.js | 3 +++
 2 files changed, 5 insertions(+), 1 deletion(-)
 create mode 100644 static/searchpage.js

diff --git a/src/main.rkt b/src/main.rkt
index 03467ec..ac7d0db 100644
--- a/src/main.rkt
+++ b/src/main.rkt
@@ -1090,7 +1090,8 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (define (search-page request)
-  (parameterize ((bootstrap-active-navigation nav-search))
+  (parameterize ((bootstrap-active-navigation nav-search)
+                 (bootstrap-page-scripts '("/searchpage.js")))
     (authentication-wrap
      #:request request
      (define-form-bindings request ([search-text q ""]
diff --git a/static/searchpage.js b/static/searchpage.js
new file mode 100644
index 0000000..b199f5c
--- /dev/null
+++ b/static/searchpage.js
@@ -0,0 +1,3 @@
+$(document).ready(function () {
+  $("#q").focus();
+});