 (setq view-depth 3)
 (setq view-root nil)
 (setq view-title nil)
-(setq view-style "targets")
+(setq view-style "hybrid")
 (setq view-min-sharability 0.25)
 (setq view-max-sharability 1)
 (setq view-min-weight 0.25)

            "&maxWeight=" (number-to-string maxw)
            "&style=" style))

(defun request-search-results (query minv maxv minw maxw)
    (setq view-current-line 1)
    (http-get
        (concat (base-url) "search"
            "?query=" (w3m-url-encode-string query)
            "&depth=2"
            "&style=" "targets"  ;; TODO
            "&minSharability=" (number-to-string minv)
            "&maxSharability=" (number-to-string maxv)
            "&minWeight=" (number-to-string minw)


(defun to-forward-style (style)
    (cond
        ((string-equal style "hybrid") "hybrid")
        ((string-equal style "targets") "targets")
        ((string-equal style "links") "links")
        ((string-equal style "hybrid-inverse") "hybrid")
        ((string-equal style "targets-inverse") "targets")
        ((string-equal style "links-inverse") "links")))

(defun to-backward-style (style)
    (cond
        ((string-equal style "hybrid") "hybrid-inverse")
        ((string-equal style "targets") "targets-inverse")
        ((string-equal style "links") "links-inverse")
        ((string-equal style "hybrid-inverse") "hybrid-inverse")
        ((string-equal style "targets-inverse") "targets-inverse")
        ((string-equal style "links-inverse") "links-inverse")))

