perl :)
This commit is contained in:
Rawley Fowler
1
.gitignore
vendored
1
.gitignore
vendored
@@ -10,3 +10,4 @@ posts/*.post
|
||||
\#*
|
||||
.DS_Store
|
||||
bookshelf.txt
|
||||
site.db*
|
||||
|
||||
3
cpanfile
Normal file
3
cpanfile
Normal file
@@ -0,0 +1,3 @@
|
||||
requires 'Text::Markdown';
|
||||
requires 'Mojolicious';
|
||||
requires 'Mojo::SQLite';
|
||||
@@ -21,13 +21,21 @@
|
||||
}
|
||||
</style>
|
||||
</head>
|
||||
<body class="container fw-light">
|
||||
<h1 class="display-1">Rawley Fowler</h1>
|
||||
<body class="container fw-light text-decoration-none">
|
||||
<nav class="d-flex flex-row mt-3">
|
||||
<div class="me-3">
|
||||
<a href="/">Home</a>
|
||||
</div>
|
||||
<div>
|
||||
<a href="/blog">Blog</a>
|
||||
</div>
|
||||
</nav>
|
||||
<h1 class="display-1 mt-3">Rawley Fowler</h1>
|
||||
<p>
|
||||
Hi, I'm Rawley, a Software Engineer from rural Saskatchewan, Canada.
|
||||
I specialize in <a href="https://perl.org">Perl</a>, and <a href="https://go.dev">Go</a> development, tackling all areas
|
||||
of the software life cycle. I also like to dabble in Pure Functional languages. Professionally I develop microservices using Java, SpringBoot, and PostgreSQL. I'm passionate about software performance,
|
||||
functional programming, and type-systems. If you have a position that you think I'd like (especially focusing on Perl, or Go), please feel free to <a href="mailto:rawleyfowler@proton.me">email</a> me.
|
||||
of the software life cycle. I also like to dabble in Pure Functional languages. At work I develop microservices using Java, SpringBoot, and PostgreSQL. I'm passionate about software performance,
|
||||
functional programming, and making programs safer. If you have a position that you think I'd like (especially focusing on Perl, or Go), please feel free to <a href="mailto:rawleyfowler@proton.me">email</a> me.
|
||||
Outside of my professional work, I spend a lot of time <a href="https://github.com/rawleyfowler">contributing</a> to open-source projects. You may or may not have used some of them :)
|
||||
</p>
|
||||
<h2 class="pt-5 display-3">Skills</h2>
|
||||
@@ -106,7 +114,7 @@
|
||||
<div>
|
||||
<b>University of Regina</b>: Bachelor of Science in Mathematics. <b>Sept 2020</b> - <b>Jun 2021</b>
|
||||
<p>
|
||||
Studied various mathematical concepts, ultimately did not finish due to extraneous circumstances. Hoping to have the time one day to complete this degree.
|
||||
Studied various mathematical concepts (mostly Linear Algebra, and Calculus), ultimately did not finish due to extraneous circumstances. Hoping to have the time one day to complete this degree.
|
||||
</p>
|
||||
</div>
|
||||
<div class="my-5">
|
||||
135
site.pl
Normal file
135
site.pl
Normal file
@@ -0,0 +1,135 @@
|
||||
#!/usr/bin/env perl
|
||||
use 5.016;
|
||||
|
||||
use Mojolicious::Lite -signatures;
|
||||
use Mojo::SQLite;
|
||||
use Data::Dumper;
|
||||
|
||||
my $sql = Mojo::SQLite->new('sqlite:site.db');
|
||||
helper db => sub { state $db = $sql->db };
|
||||
|
||||
$sql->migrations->name('posts_table')->from_string(<<EOF)->migrate;
|
||||
-- 1 up
|
||||
CREATE TABLE IF NOT EXISTS posts (
|
||||
id INTEGER PRIMARY KEY AUTOINCREMENT,
|
||||
title TEXT,
|
||||
content TEXT,
|
||||
slug TEXT,
|
||||
created_at TIMESTAMP DEFAULT CURRENT_TIMESTAMP
|
||||
);
|
||||
-- 1 down
|
||||
DROP TABLE posts;
|
||||
EOF
|
||||
|
||||
$sql->migrations->name('posts_index')->from_string(<<EOF)->migrate;
|
||||
-- 2 up
|
||||
CREATE INDEX IF NOT EXISTS slug_idx ON posts (slug);
|
||||
-- 2 down
|
||||
DROP INDEX slug_idx;
|
||||
EOF
|
||||
|
||||
get '/' => sub {
|
||||
my $c = shift;
|
||||
$c->reply->static('index.html');
|
||||
};
|
||||
|
||||
get '/blog' => sub {
|
||||
my $c = shift;
|
||||
$c->stash( posts => [ $c->db->select('posts')->hashes->each ] );
|
||||
$c->render;
|
||||
};
|
||||
|
||||
get '/blog/:post' => sub {
|
||||
my $c = shift;
|
||||
my $post = $c->db->select(
|
||||
'posts',
|
||||
[ 'title', 'content', 'slug' ],
|
||||
{ slug => $c->param('post') }
|
||||
)->hash;
|
||||
|
||||
print( Dumper $post );
|
||||
|
||||
return $c->render( template => 'not_found' ) unless $post;
|
||||
|
||||
$c->stash( post => $post );
|
||||
$c->render( template => 'post' );
|
||||
};
|
||||
|
||||
app->start;
|
||||
|
||||
__DATA__
|
||||
@@ not_found.html.ep
|
||||
<!DOCTYPE html>
|
||||
<html lang="en" data-bs-theme="dark">
|
||||
%= include '_header', title => '404 Not Found'
|
||||
<body class="container fw-light">
|
||||
%= include '_nav'
|
||||
<h1 class="mt-3 display-2">404 - Not Found</h1>
|
||||
</body>
|
||||
</html>
|
||||
|
||||
@@ post.html.ep
|
||||
% use Text::Markdown qw(markdown);
|
||||
<!DOCTYPE html>
|
||||
<html lang="en" data-bs-theme="dark">
|
||||
%= include '_header', title => $post->{title}
|
||||
<body class="container fw-light">
|
||||
%= include '_nav'
|
||||
<h1 class="mt-3 display-2"><%= $post->{title} %></h1>
|
||||
<div>
|
||||
<%== markdown($post->{content}) %>
|
||||
</div>
|
||||
</body>
|
||||
</html>
|
||||
|
||||
@@ blog.html.ep
|
||||
<!DOCTYPE html>
|
||||
<html lang="en" data-bs-theme="dark">
|
||||
%= include '_header', title => 'Blog'
|
||||
<body class="container fw-light">
|
||||
%= include '_nav'
|
||||
<h1 class="mt-3 display-2">Blog</h1>
|
||||
<p>
|
||||
This is my blog; it represents my opinions, not that of my employer(s) past, present or future.
|
||||
My blog is made up of Functional Programming, Perl & Raku, Rants, Politics, and whatever else I dream up.
|
||||
If you are prone to becoming upset about things, this might not be the best place for you.
|
||||
</p>
|
||||
<p>
|
||||
All content is licensed under the <a href="https://creativecommons.org/licenses/by-sa/3.0/">Creative-Commons Attribution-ShareALike 3.0</a> license unless specified otherwise.
|
||||
</p>
|
||||
<div class="d-flex flex-row justify-content-between mt-3">
|
||||
<h2>Title</h2>
|
||||
<h2>Publish Date</h2>
|
||||
</div>
|
||||
% for (@$posts) {
|
||||
<div class="d-flex flex-row justify-content-between mt-3">
|
||||
<a href="/blog/<%= $_->{slug} %>"><%= $_->{title} %></a>
|
||||
<div><%= $_->{created_at} %></div>
|
||||
</div>
|
||||
% }
|
||||
</body>
|
||||
</html>
|
||||
|
||||
@@ _header.html.ep
|
||||
<head>
|
||||
<title><%= $title %></title>
|
||||
<meta charset="utf-8">
|
||||
<meta name="viewport" content="width=device-width, initial-scale=1">
|
||||
<link href="https://cdn.jsdelivr.net/npm/bootstrap@5.3.0/dist/css/bootstrap.min.css" rel="stylesheet" integrity="sha384-9ndCyUaIbzAi2FUVXJi0CjmCapSmO7SnpJef0486qhLnuZ2cdeRhO02iuK6FUUVM" crossorigin="anonymous">
|
||||
<script src="https://cdn.jsdelivr.net/npm/bootstrap@5.3.0/dist/js/bootstrap.bundle.min.js" integrity="sha384-geWF76RCwLtnZ8qwWowPQNguL3RmwHVBC9FhGdlKrxdiJJigb/j/68SIy3Te4Bkz" crossorigin="anonymous"></script>
|
||||
<style>
|
||||
body * {
|
||||
font-size: calc(0.33vw + 12px);
|
||||
}
|
||||
</style>
|
||||
</head>
|
||||
|
||||
@@ _nav.html.ep
|
||||
<nav class="d-flex flex-row text-decoration-none mt-3">
|
||||
<div class="me-3">
|
||||
<a href="/">Home</a>
|
||||
</div>
|
||||
<div>
|
||||
<a href="/blog">Blog</a>
|
||||
</div>
|
||||
</nav>
|
||||
Reference in New Issue
Block a user