** UnhandledExceptionEventHandler :: OFFICIAL LC / CHATTER THREAD **
10-26-2012
, 12:18 PM
10-26-2012
, 01:55 PM
10-26-2012
, 04:58 PM
10-26-2012
, 06:44 PM
No hints but if it's as viable as I think I should start banging out code tomorrow 
10-26-2012
, 07:14 PM
Quote:
I think I might have stumbled upon a great startup idea. It's a landgrab (I guestimated some pretty conservative numbers and the market seems pretty huge), an area where two pretty different customer types have a decent amount of pain right now and not too complicated technically.
Would involve a decent bit of nontechnical work but on the plus side you can also grab a submarket first without really attracting much attention and expand which would probably allow you to become profitable somewhat soon (would certainly require VC money eventually due to the landgrab nature but probably not off the bat). Kind of oldschool crossing the chasm style.
You can probably lay some solid groundwork while in stealth mode (especially the nontechnical stuff).
Would involve a decent bit of nontechnical work but on the plus side you can also grab a submarket first without really attracting much attention and expand which would probably allow you to become profitable somewhat soon (would certainly require VC money eventually due to the landgrab nature but probably not off the bat). Kind of oldschool crossing the chasm style.
You can probably lay some solid groundwork while in stealth mode (especially the nontechnical stuff).
10-27-2012
, 09:09 AM
My 'best' idea for a startup* right now is replacing physical keys with a public-key/rfid system. So everyone carries a dongle type thing that has their private key on it. Locks would then be able to read the dongle and open if the user is authorized to that lock.
The beauty of this is that you get much finer control over who has access to your lock. If you have a friend coming to town you'd just need their equivalent public key and you could add it to your lock for the duration of their visit. If you buy a new house you just need to clear the old public keys and add yours. If you have a cleaning service coming in you could authorize their public keys for a set day every week. And so on.
It's obviously not a totally secure system - but probably more secure than physical keys now. And the idea isn't to have a super secure system but just to match (or better) the security we have now with physical keys but come up with a way more usable system.
* I don't really have the desire to run this company but I'd love if someone started it, made millions, and gave me a million for the idea.
10-27-2012
, 12:39 PM
10-27-2012
, 04:57 PM
10-27-2012
, 05:39 PM
I posted a question on SO about a month ago, and this is what one responder wrote:
Quote:
def inside a function is really nasty - you are altering the global environment, and it can cause all kinds of issues with concurrency. I would suggest storing the results in a map instead.
If there's no defn in the local functions, then what to do? I'm sure that you can appreciate anonymous functions, which are represented as let-bindings in Lisp.
So, this is a shortened version the employer-page page area, where the user can fill out the employment history area. I only deleted the repetitive stuff. I'm not saying this is the top-best stuff, but it does show how what appears to be mutation isn't actually mutation at all.
This is the namespace boiler-plate. If you're not familiar with it yet, you will be soon.
Code:
(ns soloResume.views.emppages (:require [soloResume.views.common :as common] [noir.response :as resp] [soloResume.models.datapass :as db] [noir.session :as sesh]) (:use [noir.core] [korma.core] [hiccup.page-helpers] [hiccup.form-helpers]))
This initializes the pages I want to have and create and also initializes the routes. I could have actually done this differently, but I did it when I first started working with Clojure before I understood other concepts, but its fine the way it is, IMO.
Code:
(def emp-page-num {:one "one" :two "two" :three "three" :four "four" :five "five"})
This initializes the mapping to the database. The keys are the page numbers one through five. The :suser-x-y is the name of the value I would want to destructure later on. The db/jobxyz maps to the database via Korma, and the :empname, et.al. maps the table colums.
Code:
(def data-input {"one" [[:suser-emp-name db/jobhunteremployers :empname]
[:suser-emp-city db/jobhunteremployers :city]]
"two" [[:suser-emp-name db/jobhunteremployers :empname]
[:suser-emp-city db/jobhunteremployers :city]]
"three" [[:suser-emp-name db/jobhunteremployers :empname]
[:suser-emp-city db/jobhunteremployers :city]]
"four" [[:suser-emp-name db/jobhunteremployers :empname]
[:suser-emp-city db/jobhunteremployers :city]]
"five" [[:suser-emp-name db/jobhunteremployers :empname]
[:suser-emp-city db/jobhunteremployers :city]]})
This calls the data-input hash-map above and creates maps to destructure. This is key to calling the map, keeping the routes, and preventing mutation:
Code:
(defpartial data-build [data-key suser page-num]
(loop [output {}
items (seq (data-input data-key))]
(if items
(recur
(let [[kw db fieldname] (first items)]
(assoc output kw
(select db
(fields fieldname)
(where {:username suser :employernumber page-num}))))
(next items))
output)))
Code:
(defpartial form-builder [pid pname data-key data-table information field-key common-key]
[pid pname
[:i (let [{[{val data-key}] data-table} information]
(format "%s" val))]
[:br]
(if (= common-key "")
(text-field field-key)
(common/menu-build field-key common-key))])
I would also like to point out how many type-conversions there are in the code. Notice the to-numeral (I had to write that) and the load-string functions to make things more usable. Lots of funny issues surrounding casting types in Clojure. It's not as inconvenient as you may think.
Notice the let-bindings. I had originally made the database calls as defn, which is where the bugs and issues of concurrency are derived. Don't do it because some dude on SO said not to. I'll defer the judgement to him.
Code:
(defpage "/employer-:emp-page-num" {:keys [emp-page-num]}
(common/res-heads
(let [suser (sesh/get :uname)]
(let [information (load-string (data-build emp-page-num suser (common/to-integer emp-page-num)))]
[:div.span6.offset1
(form-to [:post (str "/employer-"emp-page-num)]
[:h3 (str "Employment History: Employer " (common/to-numeral emp-page-num))]
(form-builder :p "Employer Name: " :empname :suser-emp-name information "empname" "")
(form-builder :p "City: " :city :suser-emp-city information "empcity" "")
[:input.buttons {:type "submit" :value "Update"}])]))
[:div.blankDiv [:p]]))
Notice an oddity here? Compare this:
Code:
(defpage "/employer-:emp-page-num" {:keys [emp-page-num]}
Code:
(form-to [:post (str "/employer-"emp-page-num)]
Not sure how this compares to other language, but the page-to-post is a loop. The reason this happens is because the pages in Clojure default to :get, so to get
ost, you have to specify a new page with the functions listed as keys. This simply checks to see if the fields are blank and if not, enters the information into the database. Originally, I was having the new information shown in the fields, but then I realized that this increases the database calls needlessly, then I started thinking about using refs and promises, but then decided this was complecting.
Code:
(defpage [:post "/employer-:emp-page-num"] {:keys [emp-page-num empname empcity empstate emppos startmonth startyear endmonth endyear dutyone dutytwo dutythree dutyfour dutyfive]}
(let [suser (sesh/get :uname)]
(if (not (= empname ""))
(update db/jobhunteremployers
(set-fields {:empname empname})
(where {:username suser :employernumber (common/to-integer emp-page-num)})))
(if (not (= empcity ""))
(update db/jobhunteremployers
(set-fields {:city empcity})
(where {:username suser :employernumber (common/to-integer emp-page-num)})))
(resp/redirect (str "/employer-"emp-page-num))))
The full code if you want to look at it on your favorite editor:
Code:
(ns soloResume.views.emppages
(:require
[soloResume.views.common :as common]
[noir.response :as resp]
[soloResume.models.datapass :as db]
[noir.session :as sesh])
(:use [noir.core]
[korma.core]
[hiccup.page-helpers]
[hiccup.form-helpers]))
(def emp-page-num {:one "one" :two "two" :three "three" :four "four" :five "five"})
(def data-input {"one" [[:suser-emp-name db/jobhunteremployers :empname]
[:suser-emp-city db/jobhunteremployers :city]]
"two" [[:suser-emp-name db/jobhunteremployers :empname]
[:suser-emp-city db/jobhunteremployers :city]]
"three" [[:suser-emp-name db/jobhunteremployers :empname]
[:suser-emp-city db/jobhunteremployers :city]]
"four" [[:suser-emp-name db/jobhunteremployers :empname]
[:suser-emp-city db/jobhunteremployers :city]]
"five" [[:suser-emp-name db/jobhunteremployers :empname]
[:suser-emp-city db/jobhunteremployers :city]]})
(defpartial data-build [data-key suser page-num]
(loop [output {}
items (seq (data-input data-key))]
(if items
(recur
(let [[kw db fieldname] (first items)]
(assoc output kw
(select db
(fields fieldname)
(where {:username suser :employernumber page-num}))))
(next items))
output)))
(defpartial form-builder [pid pname data-key data-table information field-key common-key]
[pid pname
[:i (let [{[{val data-key}] data-table} information]
(format "%s" val))]
[:br]
(if (= common-key "")
(text-field field-key)
(common/menu-build field-key common-key))])
(defpage "/employer-:emp-page-num" {:keys [emp-page-num]}
(common/res-heads
(let [suser (sesh/get :uname)]
(let [information (load-string (data-build emp-page-num suser (common/to-integer emp-page-num)))]
[:div.span6.offset1
(form-to [:post (str "/employer-"emp-page-num)]
[:h3 (str "Employment History: Employer " (common/to-numeral emp-page-num))]
(form-builder :p "Employer Name: " :empname :suser-emp-name information "empname" "")
(form-builder :p "City: " :city :suser-emp-city information "empcity" "")
[:input.buttons {:type "submit" :value "Update"}])]))
[:div.blankDiv [:p]]))
(defpage [:post "/employer-:emp-page-num"] {:keys [emp-page-num empname empcity empstate emppos startmonth startyear endmonth endyear dutyone dutytwo dutythree dutyfour dutyfive]}
(let [suser (sesh/get :uname)]
(if (not (= empname ""))
(update db/jobhunteremployers
(set-fields {:empname empname})
(where {:username suser :employernumber (common/to-integer emp-page-num)})))
(if (not (= empcity ""))
(update db/jobhunteremployers
(set-fields {:city empcity})
(where {:username suser :employernumber (common/to-integer emp-page-num)})))
(resp/redirect (str "/employer-"emp-page-num))))
