Wiki---fitness section!

1 files changed, 41 insertions, 7 deletions

diff --git a/wiki/index.org b/wiki/index.org
index 0b6ab48..05f4d6e 100644
--- a/wiki/index.org
+++ b/wiki/index.org
@@ -17,7 +17,7 @@
 #+begin_abstract
 Welcome to my personal wiki homepage. I use this website as one big
 knowledge repository for all the topics that I am passionate about.
-Find the full list of articles [[file:sitemap.org][here]]. All unoriginal content credited [[https:mlnp.fr/about.html#Credits][here]].
+Find the full list of articles [[* Full article list][here]]. All unoriginal content credited [[https:mlnp.fr/about.html#Credits][here]].
 #+end_abstract
 
 
@@ -29,39 +29,73 @@ Find the full list of articles [[file:sitemap.org][here]]. All unoriginal conten
 
 ** [[file:aerospace/index.org][Aerospace]]
 
-#+ATTR_HTML: :style width: 100%; :alt Rafale C
+#+ATTR_HTML: :alt Rafale C
 [[https://live.staticflickr.com/7193/6872272113_d92f520c1f_b.jpg]]
 
 
 ** [[file:languages/index.org][Natural languages]]
 
-#+ATTR_HTML: :style width: 100%; :alt Human speech
+#+ATTR_HTML: :alt Human speech
 [[https://freesvg.org/img/1538693615.png]]
 
 
 ** [[file:programming/index.org][Programming languages]]
 
-#+ATTR_HTML: :style max-width: 100%; min-width: 30%; :alt Burmese Python
+#+ATTR_HTML: :alt Burmese Python
 [[https://live.staticflickr.com/8485/8241650528_f2c0500d66_b.jpg]]
 
 
 ** [[file:linux/index.org][Linux]]
 
-#+ATTR_HTML: :style max-width: 100%; min-width: 30%; :alt Tux, the Linux mascot
+#+ATTR_HTML: :alt Tux, the Linux mascot
 https://upload.wikimedia.org/wikipedia/commons/thumb/3/35/Tux.svg/800px-Tux.svg.png
 
+
 ** [[file:emacs/index.org][Emacs]]
 
-#+ATTR_HTML: :style max-width: 100%; min-width: 30%; :alt Emacs logo
+#+ATTR_HTML: :alt Emacs logo
 https://www.gnu.org/software/emacs/images/emacs.png
 
 
 ** [[file:typography/index.org][Typography]]
 
-#+ATTR_HTML: :style max-width: 100%; min-width: 30%; :alt Typography
+#+ATTR_HTML: :alt Typography
 https://pixnio.com/free-images/2017/07/28/2017-07-28-07-40-45-900x598.jpg
 
 
+* Full article list
+
+#+NAME: full-sitemap
+#+BEGIN_SRC emacs-lisp :results drawer :exports result
+  (mapconcat
+   '(lambda (section)
+      "Include SECTION in following article list."
+      (format "*%s*\n#+INCLUDE: %s/index.org :lines \"3-\"\n" section section))
+   '("aerospace"
+     "languages"
+     "programming"
+     "linux"
+     "emacs"
+     "typography") nil)
+#+END_SRC
+
+#+RESULTS: full-sitemap
+:results:
+*aerospace*
+#+INCLUDE: aerospace/index.org :lines "3-"
+*languages*
+#+INCLUDE: languages/index.org :lines "3-"
+*programming*
+#+INCLUDE: programming/index.org :lines "3-"
+*linux*
+#+INCLUDE: linux/index.org :lines "3-"
+*emacs*
+#+INCLUDE: emacs/index.org :lines "3-"
+*typography*
+#+INCLUDE: typography/index.org :lines "3-"
+:end:
+
+
 * Favorite Wikipedia articles