ivan/site
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

perl :)

Browse Source
This commit is contained in:
Rawley Fowler
2023-07-06 22:33:00 -06:00
parent 4a20ec6457
commit 7f89612023
4 changed files with 152 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

@@ -10,3 +10,4 @@ posts/*.post
\#*
.DS_Store
bookshelf.txt
site.db*

3
cpanfile Normal file
View File

@@ -0,0 +1,3 @@
requires 'Text::Markdown';
requires 'Mojolicious';
requires 'Mojo::SQLite';

18
index.html → public/index.html
View File

@@ -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
View 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>