Haskell之Yesod开发–边踩坑边开发(2)

以你之姓@ 2022-08-01 13:51 271阅读 0赞

今天继续上一节的开发  
今天我们需要具体的开发一个图书馆网站，分为以下几个页面

*  / HomeR GET 主页
 *  /login LoginR GET 用户登录页面
 *  /library LibraryR GET 图书馆介绍页面
 *  /booklist BookListR GET 图书列表页面
 *  /book/\#Integer BookR GET 具体图书页面
 *  /user/\#Integer UserR GET 具体用户页面

首先我们简单完成`HomeR`和`LibraryR`的页面(具体代码省略，大家自己完成)。  
如果要做一个网站，必要的图片是不可或缺的。我们想在`LibraryR`中放置一个Logo图标。因此我们需要像通常的web开发框架那样，在一个具体目录下存放`logo.jpg`,然后在页面上引用。  
引用代码非常简单

这里需要注意的是，`yesod`会将目录结构和`.`分隔符用`_`来替代  
接下来在`src`的同级创建一个`static`目录，并copy`logo.jpg`到其中  
然后我们在`routes`结构中增加对于`static`的声明`/static StaticR Static getStatic`，其中的`getStatic`是说明从何处存取*static*文件

我们需要全局声明`static`的目录，在全局范围上增加`$(staticFiles "static")`

修改App的声明 `data App = App{getStatic::Static}`

修改App的构造方式，增加注入`static`目录的方式

main = do
        s@(Static settings) <- static "static"
        wrap 3000 $ App s

这样就可以读入`static`目录和其中的文件了

首页上的内容大家自己构造，在这里我们来说明一下如何做一个带参数的链接。我们已经声明了`UserR`路由，这个路由带有一个用户ID

getHomeR :: Handler Html
    getHomeR = do
        ...
        let userid = -1 :: Integer
        ...

在页面上我们希望通过该ID的不同值来渲染节点

$if (userid == -1) <label> $else <a href=@{UserR userid} #userC∑lick>用户设置

这样通过使用`$if $else`标签，我们就区别了用户存在和不存在的状态