text:
Q: Aligning text in center in a fixed width div with an image I have a
 containing an image and some text. The image is supposed to come at the left corner and the text is supposed to come in the center of the
. But the text is coming off a little off-center to the right due to the width of the image.
How do i fix it??

RECIPE SEARCH

header #searchBoxProp { margin: -16px 0 0 2px; width: 43px; float: left; }
header .title { text-align: center; margin-left: 0 auto; }

A: You could set the image as background of the
 and then set text-align:center in order to align the text properly.
The HTML could be just:

RECIPE SEARCH

And the CSS:
div.title {
   background-image:url('/resources/images/searchBoxProp.png');
   background-repeat:no-repeat;
   text-align:center;
}

You will also need to set a fixed height (equal to the image), and finally set the width you wish.

A: Set header to position:relative, and #searchBoxProp to position:absolute. Absolute positioning takes the element out of the layout, so it won't affect the text postion. The relative positioning on header makes sure that #searchBoxProp is positioned relatively to header, instead of the browser window.
header {
    position:relative;
}
#searchBoxProp {
    position:absolute;
    left:0px; /* set to your needs */
    top:0px; /* set to your needs */
}

A: Best practice is to use a background image however if not you can use position absolue like this.
header{position:relative;}
header .title { position:absolute; width:100%; display:block; text-align:center; }


text:
Radiozine on 09/03/10
Crystal Leighty (KBOO)
Fri, 09/03/2010 - 11:30am to 12:00pm
Writer Ann Hood on her novel, "The Red Thread"
Community Grooves is off this month.
Instead we'll hear host Crystal Leighty speaking with writer Ann Hood about her latest novel "The Red Thread," an exploration of the adoption process, specifically the adoption of Chinese girls by five couples in Providence, Rhode Island, brought together by the Red Thread Adoption Agency.
Ann Hood is the author of the bestselling novel, THE KNITTING CIRCLE, and the memoir, COMFORT: A JOURNEY THROUGH GRIEF, which was named one of the top ten non fiction books of 2008 by Entertainment Weekly and was a New York Times Editor's Choice. Her other novels include: WAITING TO VANISH (Bantam, 1988), THREE-LEGGED HORSE (Bantam, 1989), SOMETHING BLUE (Bantam, 1991), PLACES TO STAY THE NIGHT (Doubleday, 1993), THE PROPERTIES OF WATER (Doubleday, 1995), and RUBY (Picador, 1998). She has also written a memoir, DO NOT GO GENTLE: MY SEARCH FOR MIRACLES IN A CYNICAL TIME (Picador, 1999); a book on the craft of writing, CREATING CHARACTER EMOTIONS (Story Press, 1998); and a collection of short stories, AN ORNITHOLOGIST'S GUIDE TO LIFE (Norton, 2004).
Her essays and short stories have appeared in GOOD HOUSEKEEPING, THE NEW YORK TIMES, LADIES HOME JOURNAL, MORE, TIN HOUSE, PLOUGHSHARES, and THE PARIS REVIEW. Ann has won a Best American Spiritual Writing Award, the Paul Bowles Prize for Short Fiction, and two Pushcart Prizes.
CD-1960
Arts/Culture, Fiction

redpajama_set_name: RedPajamaCommonCrawl


text:
Displaying items by tag: Afghanistan
Why Isolating Pakistan Will Not Solve Kabul's Problems
By Rizwan Zeb
August 7, 2017, the CACI Analyst
Afghanistan has been a factor in the rivalry between India and Pakistan since 1947. Prime Minister Narendra Modi has embarked upon a campaign to isolate Pakistan from developments in Afghanistan. The Sixth Heart of Asia summit, held in Amritsar, India in December 2016, was overshadowed by this increasing enmity. Afghanistan's President Ashraf Ghani sided with Modi, accusing Islamabad of all ills in Afghanistan. New Delhi's and Kabul's approach at Amritsar must be avoided in the future. Kabul needs to put its house in order and should not become a party to Indo-Pakistan rivalry. New Delhi and Islamabad also need to understand that expanding this rivalry into Afghanistan will not serve their interests.
China – Pakistan Economic Corridor: An Opportunity for Central Asia?
By Fuad Shahbazov
June 19, 2017, the CACI Analyst
In May 2017, China hosted an international summit in Beijing gathering 28 heads of state from four continents and representatives of various international organizations. The summit was devoted to the Belt and Road Initiative, referring to overland and maritime routes across the Eurasian landmass. One of the most significant moments of the summit was the meeting between China's and Pakistan's leaders and the signing of a new agreement (MoU), adding to the US$ 46 billion already pledged for the China-Pakistan Economic Corridor (CPEC), a network of rail, road and energy infrastructure. During the event, Pakistan's Prime Minister Nawaz Sharif met with the leaders of Kazakhstan, Uzbekistan, and Kyrgyzstan, requesting their investment in CPEC.
Afghanistan Clashes with Iran over Dam Construction
By Sudha Ramachandran
May 2, 2017, the CACI Analyst
Afghanistan's building of dams on its trans-boundary rivers has drawn the ire of the lower riparian countries. The construction of the Kamal Khan Dam on the Helmand River has caused grave concern in Iran as it could destabilize the situation in its restive Sistan-Baluchistan province. To pressure Kabul to halt construction of the dam, Iran is said to be using Taliban fighters to sabotage projects. Conflicts over water sharing have the potential to turn violent. Iran and Afghanistan need to resolve the issue through talks.
Pakistan to repatriate Afghan refugees
February 9, 2017, the CACI Analyst
Pakistan's government has set March 31 as the deadline for all Afghan refugees living on its soil to leave the country or face deportation. Although it is not a signatory to the 1951 Refugee Convention or the 1967 Protocol, Pakistan has been a generous host to Afghan refugees, hosting up to 5 million Afghans at a time. Neither did Pakistan force them in the past to return to Afghanistan. This seems to have changed. For many refugees, returning to Afghanistan will not be a happy homecoming as the security and economic situation in the country remain dire.
The curious case of Chinese troops on Afghan soil
By Franz J. Marty
Overwhelming evidence – photographs, an eyewitness account and several confirming statements of diplomats and observers, among them a Chinese official familiar with the matter – leaves virtually no doubt that Chinese troops have undertaken joint patrols with their Afghan (and possibly also Tajik) counterparts on Afghan soil in the Little Pamir, a high plateau near the Afghan-Chinese border. While the Chinese source insists that such joint border patrols were based on an agreement, and therefore legal, the Afghan government steadfastly denies the existence of such patrols.


text:
WESTPOINT ARENA
Southampton /
Clyst St Mary, Exeter, EX5 1DH
Westpoint Arena Tickets - Westpoint Arena Events
Westpoint Arena - an iconic entertainment venue for decades
The Westpoint Arena in Exeter plays host to crowds of up to 7,500 people for its events. Situated close to Exeter Airport, transport to and from shows is easy for locals and those external to the area. Hosting fairs, exhibitions and concerts, this venue is the largest in South West England. Buy and sell Westpoint Arena tickets online at StubHub today for an unforgettable evening.
Never a dull moment at this popular venue
Home to fun shows such as the Toy Train and Collectors Fair, Craft 4 Crafters and the familiar Antique and Vintage Home Show, Exeter's Westpoint Arena has also hosted wildly popular Premier League Darts tournaments, which have the crowds on the edge of their seats. The Premier League Darts tournament consists of over 9 players, all vying to claim the top prize and be recognised for their proficiency in this unique sport. Other crowd pullers have included the international theatre production Harry Potter and The Cursed Child stemming from J.K. Rowling's wildly popular Harry Potter book and film franchise. Not only international stars are hosted at this venue, however - the public can look forward to plenty of local talent as well. More fun is to be had with acts like Russell Howard, a popular English comedian who regularly performs at venues throughout the British Isles, always captivating his audiences. Purchase Westpoint Arena tickets for fun-filled experiences. StubHub can notify subscribers if someone wants to sell their tickets at the last moment so that you always have a chance to see your favourite shows.
Look forward to a variety of events at Westpoint Arena
Like any commercial venue, Westpoint Arena leverages the benefits of its location and hospitality to draw the crowds to Exeter. The Source Trade Show highlights a cornucopia of speciality foods and high-quality beverages to pique individual, catering and hospitality interests, while the Antique and Vintage Home Show presents an opportunity for locals and dealers to sell off their ancient treasures. Whatever type of fun appeals to you, the Unibet Premier League Darts tournament presents the opportunity for family time together. Pick a firm favourite, support them and enjoy hours of nail-biting anticipation mixed with frustration as these darts professionals wow you with their prowess. Buy Westpoint Arena tickets for your family and friends to see the next big show at this location. StubHub helps you buy and sell tickets to attend your favourite sports events, sing along with talented artists or immerse yourself in the world of the characters in the plays hosted at this venue. Revel in the outstanding hospitality, easy parking and comfortable seating as you spoil yourself with an outing to the Westpoint Arena for some well-deserved time out.


text:
iFLY Soars with CLO Kevin Fiur and His High Performance Team
The multi-faceted CLO draws on his extensive business experience and exceptional team to help keep the innovative indoor skydiving and consumer entertainment company at the top of the game it created
By	Jacob Winchester
Complex litigations, high stakes negotiations, global patent enforcement…and free fall, indoor skydiving? If you're Kevin Fiur, executive vice president and chief legal officer for iFLY Indoor Skydiving, it's all in a day's work.
When he started out as a lawyer, inspired in part by fast-paced legal television shows of the late-80s and early-90s, Fiur was interested in litigation. But he soon found himself drawn to the business side of things. "I grew up in the L.A. Law era, so I saw being a lawyer as cool and fun, with a lot of chaos and drama," Fiur says. "I always thought I wanted to be a trial lawyer and make the big closing argument, but I became a litigator, doing a lot of discovery and motion practice that young lawyers know and love, and made a very conscious effort to transition from that to a more business-oriented negotiation and deal lawyer."
Kevin Fiur, EVP and Chief Legal Officer, iFLY Photo by Al Gawlik Photography
After rounding out his skill set and joining a public company in a heavily business-facing role, Fiur headed back to school for an MBA, eventually entering the venture capital game. From there, he worked for—and founded—a couple of start-ups, and worked across the Asia Pacific region for a decade before ultimately landing a dream role with iFLY. "Over a period of fifteen to twenty years, I made a successful transition from being a lawyer to being a full-time international business guy with experience in finance, marketing, and business development," Fiur says. "When I started my career at Baker Botts, I wanted to be just a lawyer. Then I started to get involved in transactions and gain some business skills, and years later, after a lot of successes and failures, and learning equally from both, I evolved into a business executive with legal skills, which is the role I play today."
Fiur's colleagues couldn't agree more."Kevin brings to iFLY an extraordinary combination of entrepreneurial business acumen, strategic thinking and legal expertise that I have seen him hone in the trenches over the past two decades," says David Weaver, partner at Baker Botts.
As iFLY's CLO, Fiur leads global legal operations across the nine countries where the company does business, while overseeing the myriad activities that accompany that role, such as litigation, employment law, intellectual property, and complex transactional work. But his impact on the business doesn't stop there.
"We're a complex company. We design, manufacture, and sell vertical wind tunnels to fly human beings; we build and install those wind tunnels for ourselves and own and operate close to forty retail locations; and we have a large global licensing and franchising operation," says Fiur. "My team provides cover and support for all of those activities." The other major part of his role, Fiur explains, is "to work across the C-suite—and really all departments in the US and globally—to make sure those clients and colleagues are well served by both me and my extraordinary teammates."
He also devotes time to business development, pitches in with sales, and helps negotiate the company's larger deals. "We are an innovative, deal-oriented company, constantly entering into new areas such as virtual reality and gamification of our product and looking at strategic partnerships to enhance our customer experience. We also have a big appetite for third-party sales—where we sell and license our wind tunnels and technology to entrepreneurial individuals and a variety of entities," he says."My team and I are regularly involved in the sales process and helping our salespeople close deals," he says. "We have a complex contracting process, so I'm often engaged with my team at various steps of that process as well," he says.
Depending on the nature of the transaction, Fiur is further involved in the franchise and licensee relations aspect after each deal is sealed. "Part of that is being a senior leader, and this is a high-touch business," he says. "People who get into our business spend a lot of money to be involved, so they expect a certain level of access to senior management in relation to their position as a franchisee or licensee. Because of that, I spend a lot of time interfacing with many of our business customers around the world, particularly in Europe and the Asia-Pacific region."
And he's also involved with the retail customers. "I still read every incident report, from someone who bumps an elbow to someone who breaks a pair of glasses while flying, and, when it makes sense to do so, I'll call them up to see how they're doing and try to make sure they are ultimately satisfied with their iFLY experience," Fiur says.
Pictured left to right: Kevin Fiur, Bri Gungoll, Jeff Schwingendorf, Janet Garcia. Photo by Al Gawlik Photography
Given the industry, and the fact that iFLY has flown almost nine million customers worldwide since its creation in 1998 as SkyVenture, the company is heavily committed to safety. And this is an area in which Fiur himself is actively involved. "The number one concern here is safety, so I provide a lot of input in that arena" Fiur says. "Fortunately, we have a very limited injury history because we take safety extremely seriously. I visit our company-owned wind tunnels. I meet with our instructors and general managers. We consistently talk about safety, debrief about how to do things better, and innovate as needed to best serve the customer. My team and I spend a lot of time thinking and talking about risk and helping our company manage those risks as we continue to rapidly grow around the world."
Of course, his position isn't without its challenges. "Our inventions created the global indoor skydiving market. And because we have extensive patents and trade secrets protecting our significant investment in R&D, we work hard to protect our rights and the expenditure of time and resources by our employees and owners. A lot of people have tried to use what we've created and own the rights to, and we have a sophisticated team to deal with those situations. We like to solve things on the front end by adhering to our contracts and the relevant laws, but we aren't afraid to litigate if we have to," he says.
For Fiur, however, the challenges are worth the opportunity to see iFLY grow from one wind tunnel to seventy-five wind tunnels globally as well as the thrill of sharing this unique experience with people around the world. In fact, Fiur encourages new members of his own team (as well as his outside lawyers) to take the plunge—and it's something he did when he first joined the company. "I got in that wind. The instructor was able to let go of me, because I had a good, stable body position, and I was flying," he says.
"My team and I spend a lot of time thinking and talking about risk and helping our company manage those risks as we continue to rapidly grow around the world."
"There's something that happens to your brain when you suddenly realize that you're actually flying—it's the coolest adrenaline rush you'll ever have in your life," he says. "Compared to skiing down a black slope on a mountain or jumping from an airplane, it's even cooler, because I wasn't falling; I was flying."
And iFLY will most certainly continue to fly under the leadership of Fiur and the company's legal team.


An Oasis Design Group Principal photographed this oasis in Thailand during his Fellowship at Chanticleer Garden when he visited and studied many of the world's unique places, botanical gardens, and public parks.
The term "oasis" epitomizes the philosophy of Oasis Design Group. The firm is built on the notion that the most memorable places are those that provide a much-needed refuge from the frenetic pace of today's lifestyle.
Passionate about creating imaginative, sustainable, and engaging environments, Oasis Design Group leads and works collaboratively with its clients to bring many different types of oases to life. Some clients may prefer a peaceful sanctuary while others require spaces that promote active use. The firm designs areas that nurture relationships between people and their environments-both man-made and natural. Oasis' work respects and facilitates the dynamic connections among communities and the landscape and gardens linked to them and the places where people live, work, and play.
Oasis Design Group transforms environments whether they are in an urban, suburban, rural, or natural setting into safe, welcoming oases. Oasis integrates the opportunities and constraints of a site with the needs of its clients in a bold, yet sustainable way. Innovative planning and design approaches are based on the firm's extensive design, construction, horticulture, real estate experience, and industry standards like The Sustainable Sites Initiative™.
Building on the inherent characteristics of the land and cultural and aesthetic surroundings, Oasis creates a "sense of place" and a "memory of place" in its designs. The firm engages people's senses through the use of powerful lines, colors, and textures in the landscape and with art. This enables people to feel connected to Oasis-designed places, remember them, and want to visit them again and again – Oasis Design Group designs memorable places.


text:
December 5, 2008, 5:30am EST
Sponsor: Detroit Channel 56
WTVS Channel 56 in Detroit presents the series Due Process. Each episode provides general advice on the latest legal question in the state of Michigan.
Appears December 5, 2008 at 5:30 p.m. on Channel 56 and features:
Brian Dickerson, Detroit Free Press
Herschel P. Fink, Partner, Honigman Miller Schwartz and Cohn LLP
Although the U.S. Freedom of Information Act (FOIA) ensures public access to government records, challenges in obtaining them occur. Host Henry Baskin and guests explore the intricacies of the act's implementation.


text:
Q: Timestamps onEdit running slow - how to optimize? I created the code below based on lots of googling and inspiration from this post. I'm new to coding so you'll have to forgive my ignorance as I'm sure some of my methods are a bit rudimentary. I'm hoping you guys can offer some tips on how to improve my existing code and/or implement the modifications I laid out below.
The purpose of my code is to generate timestamps when certain cells in certain sheets are modified.
Sheet 1: Videos
Cells that trigger timestamp: Columns 1, 2, 3, 4, 5, 22, 23, 24 where Row > 10
Cells that receive timestamp: Column Y if blank, else Column Z
Sheet 2: Categories
Cells that trigger timestamp: Columns 13, 16, 17 where Row > 3
Cells that receive timestamp: Column T if blank, else Column U
My code
/*----------------------------Timestamps for Videos----------------------------*/

function onEditVideoTimestamps() {

//check to make sure on the right sheet
var s = SpreadsheetApp.getActiveSheet()
if (s.getName() == "Videos") {

//check to make sure edited row and column is within range
var cell = s.getActiveCell();
var rownbr = cell.getRow();
var colnbr = cell.getColumn();
var nbrcolumns = s.getMaxColumns();
var r = s.getRange(rownbr, 1, 1, nbrcolumns);
var rowArray = r.getValues();//now all your data for that row is in a two Dimensional array [[1,2,3,4,'My Data','etc']]
if (rownbr > 10 && (colnbr == 1 || colnbr == 2 || colnbr == 3 || colnbr == 4 || colnbr == 5 || colnbr == 22 || colnbr == 23 || colnbr == 24)) {

  //is Y empty?
  var checkY = s.getRange('Y' + rownbr.toString()).getValue()
  if(checkY == '') {

    //Yes
    var time;
    time = new Date();
    time = Utilities.formatDate(time, "GMT-05:00", "MM/dd/yyyy HH:mm:ss");
    //the column letter is where the timestamp will appear
    SpreadsheetApp.getActiveSheet().getRange('Y' + rownbr.toString()).setValue(time);

    } else {

    //No
    var time;
    time = new Date();
    time = Utilities.formatDate(time, "GMT-05:00", "MM/dd/yyyy HH:mm:ss");
    //the column letter is where the timestamp will appear
    SpreadsheetApp.getActiveSheet().getRange('Z' + rownbr.toString()).setValue(time);
  }
}

/*----------------------------Timestamps for Categories/Albums----------------------------*/
} else {

//check to make sure on the right sheet
var s = SpreadsheetApp.getActiveSheet()
if (s.getName() == "Categories") {

//check to make sure edited row and column is within range
var cell = s.getActiveCell();
var rownbr = cell.getRow();
var colnbr = cell.getColumn();
var nbrcolumns = s.getMaxColumns();
var r = s.getRange(rownbr, 1, 1, nbrcolumns);
var rowArray = r.getValues();//now all your data for that row is in a two Dimensional array [[1,2,3,4,'My Data','etc']]
if (rownbr > 3 && (colnbr == 13 || colnbr == 16 || colnbr == 17)) {

  //is T empty?
  var checkT = s.getRange('T' + rownbr.toString()).getValue()
  if(checkT == '') {

    //Yes
    var time;
    time = new Date();
    time = Utilities.formatDate(time, "GMT-05:00", "MM/dd/yyyy HH:mm:ss");
    //the column letter is where the timestamp will appear
    SpreadsheetApp.getActiveSheet().getRange('T' + rownbr.toString()).setValue(time);

    } else {

    //No
    var time;
    time = new Date();
    time = Utilities.formatDate(time, "GMT-05:00", "MM/dd/yyyy HH:mm:ss");
    //the column letter is where the timestamp will appear
    SpreadsheetApp.getActiveSheet().getRange('U' + rownbr.toString()).setValue(time);
    }
   }
  }
 }
}

Problems

*

*This code can take upwards of 40 seconds to run. Ideally it would take no more than 10, even less if possible since it's triggered onEdit. As it stands, I exceed my daily GAS limit pretty quickly.

*I would like to add the following logic to my script:
Videos

*

*If column 1 is changed to "Approved", a new timestamp is generated in the initial timestamp column (Y) even if Y is already populated. Column 1 is a status field that can be changed at any time to "Approved", "Pending", "Removed", or "Denied". If it's changed to "Approved", I want Y to get the timestamp regardless of its contents. Otherwise, my current logic applies: If Y is populated, then the timestamp goes in Z (the Last Modified Timestamp).

Categories
I really just want the same change for this sheet, just different cell references.

*

*If column 13 is changed to "Approved", a new timestamp is generated in column T regardless of whether or not it's already populated. If any other change is made within the range, and T is already populated, then the timestamp is placed in U.

Like I said, I'm very much a beginner, so any help is appreciated. Let me know if I need to clarify anything. Thanks

A: There is a lot of redundancy in your code. For example, in each boolean test, you initialize a time variable. You should do this once and then use the timestamp in the appropriate case.
The other immediate change you can implement is to use the onEdit event Object. This holds a Range parameter that you can use to find the active row and column without doing so many calls to the spreadsheet, which should speed up the script.
Here's an optimized script for your current needs. In testing, it ran in less than one second each time. I haven't added the extra functionality. You'll just need a couple more boolean tests, so you should be able to do that.
function onEdit(e) {

  var time = Utilities.formatDate(new Date(), "GMT-05:00", "MM/dd/yyyy HH:mm:ss");

  var vidColNbr = [1,2,3,4,5,22,23,24];
  var catColNbr = [13,16,17]

  var sheet = e.range.getSheet();

  //check to make sure on the right sheet
  if (sheet.getName() == "Videos") {
    //check to make sure edited row and column is within range
    if((e.range.getRow() >= 10) && (vidColNbr.indexOf(e.range.getColumn()) > -1)) {

      //is Y empty?
      var checkY = sheet.getRange('Y' + e.range.getRow()).getValue();
      if(checkY == '') {
        //Yes
        SpreadsheetApp.getActiveSheet().getRange('Y' + e.range.getRow()).setValue(time);
      } else {
        //No
        SpreadsheetApp.getActiveSheet().getRange('Z' + e.range.getRow()).setValue(time);
      }
    }

  /*----------------------------Timestamps for Categories/Albums----------------------------*/
  } else {

    //check to make sure on the right sheet
    if (sheet.getName() == "Categories") {

    //check to make sure edited row and column is within range
      if ((e.range.getRow() >= 3) && (catColNbr.indexOf(e.range.getColumn()) > -1)) {

        //is T empty?
        var checkT = sheet.getRange('T' + e.range.getRow()).getValue()
          if(checkT == '') {
            SpreadsheetApp.getActiveSheet().getRange('T' + e.range.getRow()).setValue(time);
          } else {
            SpreadsheetApp.getActiveSheet().getRange('U' + e.range.getRow()).setValue(time);
        }
      }
    }
  }
}

The event Object reference is very helpful. You can access most methods and classes through the onEdit event which can really speed up execution.

redpajama_set_name: RedPajamaStackExchange


Austin Straubel International Airport is less than 15 minutesâ?? drive from this Green Bay Wisconsin motel. It features an outdoor pool with a sun terrace and rooms with expanded cable TV.
A desk and seating area are provided in the traditionally decorated rooms at Motel 6 Green Bay. Guests can make free local calls. Wi-Fi is available.
This pet-friendly motel serves free morning coffee. The 24-hour reception at Green Bay Motel 6 offers fax and copying services.
Green Bay Botanical Garden and Lambeau Field home of the Green Bay Packers football team are 2 miles from this motel. Bay Beach Amusement Park is 5 miles away.


Netstumbler is a tool that allows you to discover wireless networks with your WiFi card. It will tell you their names, signal strength, whether they're secured, and the channel they're on. Very useful when wardriving, or if you're in need of a wireless connection wherever you are.
This file has been downloaded 708 times.


DigitalHealth.London has a record of raising the profile of proven innovations, helping promote wider and faster adoption, and market impact. This includes providing a gateway to the UK Academic Health Science Network (AHSNs), and the NHS Innovation Accelerator. This aims to speed up the adoption of innovation at scale, ensuring that more patients benefit from emerging new technology, more rapidly.


I had this fierce shoot scheduled to post today featuring Freja Beha Erichsen in Alexander McQueen. When I woke up and read the news, I was deeply saddened to hear that Alexander died yesterday. Reports say that he committed suicide….he was only 40 years old. This comes just a few days after his mother passed away.
I decided to continue with this post and add a short video as a tribute. Alexander made some of the most beautiful and futuristic creations, and was one of the greatest designers of our time. If you subscribe by email and can't see the video, go directly to Future Hippie.
Lovely post and tribute, darling.
I'm so shocked and sad I can't belive it I don't want belive it.
What a wonderful tribute post.
Gorgeous editorial. 🙂 McQueen will definitely be sorely missed by not just the fashion community, but the entire world. He was such a genius and now he is a legend.
His death is such a tragedy.


text:
Q: Configure HTTP Access to Analysis Services - Won't work with basic authentication Followed the instructions in https://msdn.microsoft.com/en-us/library/gg492140.aspx
SSAS is running on a hosted server. No domain.
Able to connect with anonymous authentication, but when basic is enabled, neither SSMS or Excel will connect.
Error from SSMS is "The remote server returned an error (401). Unauthorized"
Credentials are set up on the remote machine as DOMAIN:443
Credentials have admin privileges on the server.
Excel says "connection cannot be made to remote machine or SSAS is not running"
HTTP or HTTPS doesn't matter.
When it connects with anonymous, no cubes are returned so it is apparently doing nothing with the userid/password.  Just connecting.
When I connect via port 2383 using the same credentials, I have no problem in SSMS or Excel.
Help is GREATLY appreciated.  Thanks.

A: This was partially solved by starting over and following the steps in this article:
https://technet.microsoft.com/en-us/library/cc917670.aspx
Honestly, I can't pin down the exact resolution, but I believe it has to do with using a different folder structure (other than inetpub/wwwroot...) on my D drive and therefore losing the standard security configuration.
I created an OLAP folder on C:/inetpub/wwwroot and it works... with the exception of SSL which still does not work.
HTTP connects fine, but not HTTPS.  Still working on that.


text:
Q: How can I trigger a click event of an invisible control? I have a background for my VBA project which contains pictures. These pictures I would like to make clickable, in the way that the click triggers a click event. I've tried adding pictureboxes, buttons and labels but I couldn't manage to make them invisible without making the click event not work (setting the Visible property to false causes this). Googling the problem, most solutions made the button look transparent by changing the color and borderstyle so the control appeared to be a part of the mono color background. I however have a specific picture that  I would like to see beneath the button.

A: To add a macro manually

*

*Right-click on the picture you want to assign the macro to.

*Choose Assign Macro from the options.

*Assign the macro that you want to run when the picture is clicked.

Click OK to finish.
To add a macro programmatically
If the macro is in the same workbook:
 ActiveSheet.Shapes("Picture 1").OnAction = "ThisWorkbook.test"

If the macro is in a different workbook:
 ActiveSheet.Shapes("Picture 1").OnAction = "'Book1'!test"

For more examples, look at this and this.


What To Do In The Vegetable Garden This August?
The UK has experienced one of the warmest summers since 2003 and if you have invested time in a vegetable plot this year, then hopefully you will be reaping the rewards.
The recent heat would have been wonderful for your ripening spring planting onion bulbs, the leaves should be yellowing and falling off, but resist the urge to pull off the leaves as this could result in infection and disease.
Continue to feed tomato plants, and pinch out the tops, so they can concentrate on the fruit - this is a great year for tomatoes, last year many growers had to throw out green tomatoes.
Herbs - cut back your herbs and freeze or store in the fridge in newspaper. Don't forget mint doesn't freeze very well!
If you have sown your carrots and beetroot in Spring these will be ready to harvest now, or you can keep them in for a while longer.
Water your vegetables daily when hot, and clear away any weeds.
If you are growing potatoes keep an eye out for potato blight, and destroy any infected plants straight away.


text:
Procházka et Prochazka sont des patronymes tchèques pouvant désigner:

Patronyme

Enrique Prochazka (né en 1960), écrivain péruvien

Libor Procházka (né en 1974), joueur tchèque de hockey sur glace
Martin Procházka (né en 1972), joueur tchèque de hockey sur glace
Radoslav Procházka (né en 1972), homme politique slovaque
Václav Procházka (né en 1984), joueur tchèque de football
Zdeněk Procházka (1928-2016), joueur tchécoslovaque de football
Jiri Procházka (1992-), champion de MMA

Homonymie de patronyme
Patronyme tchèque

redpajama_set_name: RedPajamaWikipedia


Introduces ab_test helper (controllers and views). Similar to the generic ab_test method, with the ability to capture content (applicable to views, see examples).
This method returns one of the alternative values in the named A/B test.
Return a copy of the active experiments on a page.
Generate url with the identity of the current user and the metric to track on click.
Generate url with the fingerprint for the current Vanity experiment.
<%= count %> features to choose from!
return if Vanity.context.vanity_active_experiments.nil? || Vanity.context.vanity_active_experiments.empty?
Generated on Mon Apr 8 08:22:21 2019 by yard 0.9.19 (ruby-2.5.1).


text:
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE DeriveGeneric              #-}
{-# LANGUAGE NoImplicitPrelude          #-}
{-# OPTIONS_GHC -fno-warn-unused-binds -fno-warn-unused-imports #-}

module SwaggyJenkins.Types (
  AllView (..),
  BranchImpl (..),
  BranchImpllinks (..),
  BranchImplpermissions (..),
  CauseAction (..),
  CauseUserIdCause (..),
  ClassesByClass (..),
  ClockDifference (..),
  ComputerSet (..),
  DefaultCrumbIssuer (..),
  DiskSpaceMonitorDescriptorDiskSpace (..),
  EmptyChangeLogSet (..),
  ExtensionClassContainerImpl1 (..),
  ExtensionClassContainerImpl1links (..),
  ExtensionClassContainerImpl1map (..),
  ExtensionClassImpl (..),
  ExtensionClassImpllinks (..),
  FavoriteImpl (..),
  FavoriteImpllinks (..),
  FreeStyleBuild (..),
  FreeStyleProject (..),
  FreeStyleProjectactions (..),
  FreeStyleProjecthealthReport (..),
  GenericResource (..),
  GithubContent (..),
  GithubFile (..),
  GithubOrganization (..),
  GithubOrganizationlinks (..),
  GithubRepositories (..),
  GithubRepositorieslinks (..),
  GithubRepository (..),
  GithubRepositorylinks (..),
  GithubRepositorypermissions (..),
  GithubRespositoryContainer (..),
  GithubRespositoryContainerlinks (..),
  GithubScm (..),
  GithubScmlinks (..),
  Hudson (..),
  HudsonMasterComputer (..),
  HudsonMasterComputerexecutors (..),
  HudsonMasterComputermonitorData (..),
  HudsonassignedLabels (..),
  InputStepImpl (..),
  InputStepImpllinks (..),
  Label1 (..),
  Link (..),
  ListView (..),
  MultibranchPipeline (..),
  NullSCM (..),
  Organisation (..),
  Pipeline (..),
  PipelineActivity (..),
  PipelineActivityartifacts (..),
  PipelineBranchesitem (..),
  PipelineBranchesitemlatestRun (..),
  PipelineBranchesitempullRequest (..),
  PipelineBranchesitempullRequestlinks (..),
  PipelineFolderImpl (..),
  PipelineImpl (..),
  PipelineImpllinks (..),
  PipelineRun (..),
  PipelineRunImpl (..),
  PipelineRunImpllinks (..),
  PipelineRunNode (..),
  PipelineRunNodeedges (..),
  PipelineRunartifacts (..),
  PipelineStepImpl (..),
  PipelineStepImpllinks (..),
  PipelinelatestRun (..),
  PipelinelatestRunartifacts (..),
  Queue (..),
  QueueBlockedItem (..),
  QueueItemImpl (..),
  QueueLeftItem (..),
  ResponseTimeMonitorData (..),
  StringParameterDefinition (..),
  StringParameterValue (..),
  SwapSpaceMonitorMemoryUsage2 (..),
  UnlabeledLoadStatistics (..),
  User (..),
  ) where

import ClassyPrelude.Yesod
import Data.Foldable (foldl)
import Data.Maybe (fromMaybe)
import Data.Aeson (Value, FromJSON(..), ToJSON(..), genericToJSON, genericParseJSON)
import Data.Aeson.Types (Options(..), defaultOptions)
import qualified Data.Char as Char
import qualified Data.Text as T
import qualified Data.Map as Map
import GHC.Generics (Generic)
import Data.Function ((&))

-- |
data AllView = AllView
  { allViewUnderscoreclass :: Maybe Text -- ^
  , allViewName :: Maybe Text -- ^
  , allViewUrl :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON AllView where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "allView")
instance ToJSON AllView where
  toJSON = genericToJSON (removeFieldLabelPrefix False "allView")

-- |
data BranchImpl = BranchImpl
  { branchImplUnderscoreclass :: Maybe Text -- ^
  , branchImplDisplayName :: Maybe Text -- ^
  , branchImplEstimatedDurationInMillis :: Maybe Int -- ^
  , branchImplFullDisplayName :: Maybe Text -- ^
  , branchImplFullName :: Maybe Text -- ^
  , branchImplName :: Maybe Text -- ^
  , branchImplOrganization :: Maybe Text -- ^
  , branchImplParameters :: Maybe [StringParameterDefinition] -- ^
  , branchImplPermissions :: Maybe BranchImplpermissions -- ^
  , branchImplWeatherScore :: Maybe Int -- ^
  , branchImplPullRequest :: Maybe Text -- ^
  , branchImplUnderscorelinks :: Maybe BranchImpllinks -- ^
  , branchImplLatestRun :: Maybe PipelineRunImpl -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON BranchImpl where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "branchImpl")
instance ToJSON BranchImpl where
  toJSON = genericToJSON (removeFieldLabelPrefix False "branchImpl")

-- |
data BranchImpllinks = BranchImpllinks
  { branchImpllinksSelf :: Maybe Link -- ^
  , branchImpllinksActions :: Maybe Link -- ^
  , branchImpllinksRuns :: Maybe Link -- ^
  , branchImpllinksQueue :: Maybe Link -- ^
  , branchImpllinksUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON BranchImpllinks where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "branchImpllinks")
instance ToJSON BranchImpllinks where
  toJSON = genericToJSON (removeFieldLabelPrefix False "branchImpllinks")

-- |
data BranchImplpermissions = BranchImplpermissions
  { branchImplpermissionsCreate :: Maybe Bool -- ^
  , branchImplpermissionsRead :: Maybe Bool -- ^
  , branchImplpermissionsStart :: Maybe Bool -- ^
  , branchImplpermissionsStop :: Maybe Bool -- ^
  , branchImplpermissionsUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON BranchImplpermissions where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "branchImplpermissions")
instance ToJSON BranchImplpermissions where
  toJSON = genericToJSON (removeFieldLabelPrefix False "branchImplpermissions")

-- |
data CauseAction = CauseAction
  { causeActionUnderscoreclass :: Maybe Text -- ^
  , causeActionCauses :: Maybe [CauseUserIdCause] -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON CauseAction where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "causeAction")
instance ToJSON CauseAction where
  toJSON = genericToJSON (removeFieldLabelPrefix False "causeAction")

-- |
data CauseUserIdCause = CauseUserIdCause
  { causeUserIdCauseUnderscoreclass :: Maybe Text -- ^
  , causeUserIdCauseShortDescription :: Maybe Text -- ^
  , causeUserIdCauseUserId :: Maybe Text -- ^
  , causeUserIdCauseUserName :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON CauseUserIdCause where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "causeUserIdCause")
instance ToJSON CauseUserIdCause where
  toJSON = genericToJSON (removeFieldLabelPrefix False "causeUserIdCause")

-- |
data ClassesByClass = ClassesByClass
  { classesByClassClasses :: Maybe [Text] -- ^
  , classesByClassUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON ClassesByClass where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "classesByClass")
instance ToJSON ClassesByClass where
  toJSON = genericToJSON (removeFieldLabelPrefix False "classesByClass")

-- |
data ClockDifference = ClockDifference
  { clockDifferenceUnderscoreclass :: Maybe Text -- ^
  , clockDifferenceDiff :: Maybe Int -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON ClockDifference where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "clockDifference")
instance ToJSON ClockDifference where
  toJSON = genericToJSON (removeFieldLabelPrefix False "clockDifference")

-- |
data ComputerSet = ComputerSet
  { computerSetUnderscoreclass :: Maybe Text -- ^
  , computerSetBusyExecutors :: Maybe Int -- ^
  , computerSetComputer :: Maybe [HudsonMasterComputer] -- ^
  , computerSetDisplayName :: Maybe Text -- ^
  , computerSetTotalExecutors :: Maybe Int -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON ComputerSet where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "computerSet")
instance ToJSON ComputerSet where
  toJSON = genericToJSON (removeFieldLabelPrefix False "computerSet")

-- |
data DefaultCrumbIssuer = DefaultCrumbIssuer
  { defaultCrumbIssuerUnderscoreclass :: Maybe Text -- ^
  , defaultCrumbIssuerCrumb :: Maybe Text -- ^
  , defaultCrumbIssuerCrumbRequestField :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON DefaultCrumbIssuer where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "defaultCrumbIssuer")
instance ToJSON DefaultCrumbIssuer where
  toJSON = genericToJSON (removeFieldLabelPrefix False "defaultCrumbIssuer")

-- |
data DiskSpaceMonitorDescriptorDiskSpace = DiskSpaceMonitorDescriptorDiskSpace
  { diskSpaceMonitorDescriptorDiskSpaceUnderscoreclass :: Maybe Text -- ^
  , diskSpaceMonitorDescriptorDiskSpaceTimestamp :: Maybe Int -- ^
  , diskSpaceMonitorDescriptorDiskSpacePath :: Maybe Text -- ^
  , diskSpaceMonitorDescriptorDiskSpaceSize :: Maybe Int -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON DiskSpaceMonitorDescriptorDiskSpace where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "diskSpaceMonitorDescriptorDiskSpace")
instance ToJSON DiskSpaceMonitorDescriptorDiskSpace where
  toJSON = genericToJSON (removeFieldLabelPrefix False "diskSpaceMonitorDescriptorDiskSpace")

-- |
data EmptyChangeLogSet = EmptyChangeLogSet
  { emptyChangeLogSetUnderscoreclass :: Maybe Text -- ^
  , emptyChangeLogSetKind :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON EmptyChangeLogSet where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "emptyChangeLogSet")
instance ToJSON EmptyChangeLogSet where
  toJSON = genericToJSON (removeFieldLabelPrefix False "emptyChangeLogSet")

-- |
data ExtensionClassContainerImpl1 = ExtensionClassContainerImpl1
  { extensionClassContainerImpl1Underscoreclass :: Maybe Text -- ^
  , extensionClassContainerImpl1Underscorelinks :: Maybe ExtensionClassContainerImpl1links -- ^
  , extensionClassContainerImpl1Map :: Maybe ExtensionClassContainerImpl1map -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON ExtensionClassContainerImpl1 where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "extensionClassContainerImpl1")
instance ToJSON ExtensionClassContainerImpl1 where
  toJSON = genericToJSON (removeFieldLabelPrefix False "extensionClassContainerImpl1")

-- |
data ExtensionClassContainerImpl1links = ExtensionClassContainerImpl1links
  { extensionClassContainerImpl1linksSelf :: Maybe Link -- ^
  , extensionClassContainerImpl1linksUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON ExtensionClassContainerImpl1links where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "extensionClassContainerImpl1links")
instance ToJSON ExtensionClassContainerImpl1links where
  toJSON = genericToJSON (removeFieldLabelPrefix False "extensionClassContainerImpl1links")

-- |
data ExtensionClassContainerImpl1map = ExtensionClassContainerImpl1map
  { extensionClassContainerImpl1mapIoPeriodjenkinsPeriodblueoceanPeriodservicePeriodembeddedPeriodrestPeriodPipelineImpl :: Maybe ExtensionClassImpl -- ^
  , extensionClassContainerImpl1mapIoPeriodjenkinsPeriodblueoceanPeriodservicePeriodembeddedPeriodrestPeriodMultiBranchPipelineImpl :: Maybe ExtensionClassImpl -- ^
  , extensionClassContainerImpl1mapUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON ExtensionClassContainerImpl1map where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "extensionClassContainerImpl1map")
instance ToJSON ExtensionClassContainerImpl1map where
  toJSON = genericToJSON (removeFieldLabelPrefix False "extensionClassContainerImpl1map")

-- |
data ExtensionClassImpl = ExtensionClassImpl
  { extensionClassImplUnderscoreclass :: Maybe Text -- ^
  , extensionClassImplUnderscorelinks :: Maybe ExtensionClassImpllinks -- ^
  , extensionClassImplClasses :: Maybe [Text] -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON ExtensionClassImpl where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "extensionClassImpl")
instance ToJSON ExtensionClassImpl where
  toJSON = genericToJSON (removeFieldLabelPrefix False "extensionClassImpl")

-- |
data ExtensionClassImpllinks = ExtensionClassImpllinks
  { extensionClassImpllinksSelf :: Maybe Link -- ^
  , extensionClassImpllinksUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON ExtensionClassImpllinks where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "extensionClassImpllinks")
instance ToJSON ExtensionClassImpllinks where
  toJSON = genericToJSON (removeFieldLabelPrefix False "extensionClassImpllinks")

-- |
data FavoriteImpl = FavoriteImpl
  { favoriteImplUnderscoreclass :: Maybe Text -- ^
  , favoriteImplUnderscorelinks :: Maybe FavoriteImpllinks -- ^
  , favoriteImplItem :: Maybe PipelineImpl -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON FavoriteImpl where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "favoriteImpl")
instance ToJSON FavoriteImpl where
  toJSON = genericToJSON (removeFieldLabelPrefix False "favoriteImpl")

-- |
data FavoriteImpllinks = FavoriteImpllinks
  { favoriteImpllinksSelf :: Maybe Link -- ^
  , favoriteImpllinksUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON FavoriteImpllinks where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "favoriteImpllinks")
instance ToJSON FavoriteImpllinks where
  toJSON = genericToJSON (removeFieldLabelPrefix False "favoriteImpllinks")

-- |
data FreeStyleBuild = FreeStyleBuild
  { freeStyleBuildUnderscoreclass :: Maybe Text -- ^
  , freeStyleBuildNumber :: Maybe Int -- ^
  , freeStyleBuildUrl :: Maybe Text -- ^
  , freeStyleBuildActions :: Maybe [CauseAction] -- ^
  , freeStyleBuildBuilding :: Maybe Bool -- ^
  , freeStyleBuildDescription :: Maybe Text -- ^
  , freeStyleBuildDisplayName :: Maybe Text -- ^
  , freeStyleBuildDuration :: Maybe Int -- ^
  , freeStyleBuildEstimatedDuration :: Maybe Int -- ^
  , freeStyleBuildExecutor :: Maybe Text -- ^
  , freeStyleBuildFullDisplayName :: Maybe Text -- ^
  , freeStyleBuildId :: Maybe Text -- ^
  , freeStyleBuildKeepLog :: Maybe Bool -- ^
  , freeStyleBuildQueueId :: Maybe Int -- ^
  , freeStyleBuildResult :: Maybe Text -- ^
  , freeStyleBuildTimestamp :: Maybe Int -- ^
  , freeStyleBuildBuiltOn :: Maybe Text -- ^
  , freeStyleBuildChangeSet :: Maybe EmptyChangeLogSet -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON FreeStyleBuild where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "freeStyleBuild")
instance ToJSON FreeStyleBuild where
  toJSON = genericToJSON (removeFieldLabelPrefix False "freeStyleBuild")

-- |
data FreeStyleProject = FreeStyleProject
  { freeStyleProjectUnderscoreclass :: Maybe Text -- ^
  , freeStyleProjectName :: Maybe Text -- ^
  , freeStyleProjectUrl :: Maybe Text -- ^
  , freeStyleProjectColor :: Maybe Text -- ^
  , freeStyleProjectActions :: Maybe [FreeStyleProjectactions] -- ^
  , freeStyleProjectDescription :: Maybe Text -- ^
  , freeStyleProjectDisplayName :: Maybe Text -- ^
  , freeStyleProjectDisplayNameOrNull :: Maybe Text -- ^
  , freeStyleProjectFullDisplayName :: Maybe Text -- ^
  , freeStyleProjectFullName :: Maybe Text -- ^
  , freeStyleProjectBuildable :: Maybe Bool -- ^
  , freeStyleProjectBuilds :: Maybe [FreeStyleBuild] -- ^
  , freeStyleProjectFirstBuild :: Maybe FreeStyleBuild -- ^
  , freeStyleProjectHealthReport :: Maybe [FreeStyleProjecthealthReport] -- ^
  , freeStyleProjectInQueue :: Maybe Bool -- ^
  , freeStyleProjectKeepDependencies :: Maybe Bool -- ^
  , freeStyleProjectLastBuild :: Maybe FreeStyleBuild -- ^
  , freeStyleProjectLastCompletedBuild :: Maybe FreeStyleBuild -- ^
  , freeStyleProjectLastFailedBuild :: Maybe Text -- ^
  , freeStyleProjectLastStableBuild :: Maybe FreeStyleBuild -- ^
  , freeStyleProjectLastSuccessfulBuild :: Maybe FreeStyleBuild -- ^
  , freeStyleProjectLastUnstableBuild :: Maybe Text -- ^
  , freeStyleProjectLastUnsuccessfulBuild :: Maybe Text -- ^
  , freeStyleProjectNextBuildNumber :: Maybe Int -- ^
  , freeStyleProjectQueueItem :: Maybe Text -- ^
  , freeStyleProjectConcurrentBuild :: Maybe Bool -- ^
  , freeStyleProjectScm :: Maybe NullSCM -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON FreeStyleProject where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "freeStyleProject")
instance ToJSON FreeStyleProject where
  toJSON = genericToJSON (removeFieldLabelPrefix False "freeStyleProject")

-- |
data FreeStyleProjectactions = FreeStyleProjectactions
  { freeStyleProjectactionsUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON FreeStyleProjectactions where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "freeStyleProjectactions")
instance ToJSON FreeStyleProjectactions where
  toJSON = genericToJSON (removeFieldLabelPrefix False "freeStyleProjectactions")

-- |
data FreeStyleProjecthealthReport = FreeStyleProjecthealthReport
  { freeStyleProjecthealthReportDescription :: Maybe Text -- ^
  , freeStyleProjecthealthReportIconClassName :: Maybe Text -- ^
  , freeStyleProjecthealthReportIconUrl :: Maybe Text -- ^
  , freeStyleProjecthealthReportScore :: Maybe Int -- ^
  , freeStyleProjecthealthReportUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON FreeStyleProjecthealthReport where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "freeStyleProjecthealthReport")
instance ToJSON FreeStyleProjecthealthReport where
  toJSON = genericToJSON (removeFieldLabelPrefix False "freeStyleProjecthealthReport")

-- |
data GenericResource = GenericResource
  { genericResourceUnderscoreclass :: Maybe Text -- ^
  , genericResourceDisplayName :: Maybe Text -- ^
  , genericResourceDurationInMillis :: Maybe Int -- ^
  , genericResourceId :: Maybe Text -- ^
  , genericResourceResult :: Maybe Text -- ^
  , genericResourceStartTime :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON GenericResource where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "genericResource")
instance ToJSON GenericResource where
  toJSON = genericToJSON (removeFieldLabelPrefix False "genericResource")

-- |
data GithubContent = GithubContent
  { githubContentName :: Maybe Text -- ^
  , githubContentSha :: Maybe Text -- ^
  , githubContentUnderscoreclass :: Maybe Text -- ^
  , githubContentRepo :: Maybe Text -- ^
  , githubContentSize :: Maybe Int -- ^
  , githubContentOwner :: Maybe Text -- ^
  , githubContentPath :: Maybe Text -- ^
  , githubContentBase64Data :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON GithubContent where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "githubContent")
instance ToJSON GithubContent where
  toJSON = genericToJSON (removeFieldLabelPrefix False "githubContent")

-- |
data GithubFile = GithubFile
  { githubFileContent :: Maybe GithubContent -- ^
  , githubFileUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON GithubFile where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "githubFile")
instance ToJSON GithubFile where
  toJSON = genericToJSON (removeFieldLabelPrefix False "githubFile")

-- |
data GithubOrganization = GithubOrganization
  { githubOrganizationUnderscoreclass :: Maybe Text -- ^
  , githubOrganizationUnderscorelinks :: Maybe GithubOrganizationlinks -- ^
  , githubOrganizationJenkinsOrganizationPipeline :: Maybe Bool -- ^
  , githubOrganizationName :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON GithubOrganization where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "githubOrganization")
instance ToJSON GithubOrganization where
  toJSON = genericToJSON (removeFieldLabelPrefix False "githubOrganization")

-- |
data GithubOrganizationlinks = GithubOrganizationlinks
  { githubOrganizationlinksRepositories :: Maybe Link -- ^
  , githubOrganizationlinksSelf :: Maybe Link -- ^
  , githubOrganizationlinksUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON GithubOrganizationlinks where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "githubOrganizationlinks")
instance ToJSON GithubOrganizationlinks where
  toJSON = genericToJSON (removeFieldLabelPrefix False "githubOrganizationlinks")

-- |
data GithubRepositories = GithubRepositories
  { githubRepositoriesUnderscoreclass :: Maybe Text -- ^
  , githubRepositoriesUnderscorelinks :: Maybe GithubRepositorieslinks -- ^
  , githubRepositoriesItems :: Maybe [GithubRepository] -- ^
  , githubRepositoriesLastPage :: Maybe Int -- ^
  , githubRepositoriesNextPage :: Maybe Int -- ^
  , githubRepositoriesPageSize :: Maybe Int -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON GithubRepositories where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "githubRepositories")
instance ToJSON GithubRepositories where
  toJSON = genericToJSON (removeFieldLabelPrefix False "githubRepositories")

-- |
data GithubRepositorieslinks = GithubRepositorieslinks
  { githubRepositorieslinksSelf :: Maybe Link -- ^
  , githubRepositorieslinksUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON GithubRepositorieslinks where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "githubRepositorieslinks")
instance ToJSON GithubRepositorieslinks where
  toJSON = genericToJSON (removeFieldLabelPrefix False "githubRepositorieslinks")

-- |
data GithubRepository = GithubRepository
  { githubRepositoryUnderscoreclass :: Maybe Text -- ^
  , githubRepositoryUnderscorelinks :: Maybe GithubRepositorylinks -- ^
  , githubRepositoryDefaultBranch :: Maybe Text -- ^
  , githubRepositoryDescription :: Maybe Text -- ^
  , githubRepositoryName :: Maybe Text -- ^
  , githubRepositoryPermissions :: Maybe GithubRepositorypermissions -- ^
  , githubRepositoryPrivate :: Maybe Bool -- ^
  , githubRepositoryFullName :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON GithubRepository where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "githubRepository")
instance ToJSON GithubRepository where
  toJSON = genericToJSON (removeFieldLabelPrefix False "githubRepository")

-- |
data GithubRepositorylinks = GithubRepositorylinks
  { githubRepositorylinksSelf :: Maybe Link -- ^
  , githubRepositorylinksUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON GithubRepositorylinks where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "githubRepositorylinks")
instance ToJSON GithubRepositorylinks where
  toJSON = genericToJSON (removeFieldLabelPrefix False "githubRepositorylinks")

-- |
data GithubRepositorypermissions = GithubRepositorypermissions
  { githubRepositorypermissionsAdmin :: Maybe Bool -- ^
  , githubRepositorypermissionsPush :: Maybe Bool -- ^
  , githubRepositorypermissionsPull :: Maybe Bool -- ^
  , githubRepositorypermissionsUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON GithubRepositorypermissions where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "githubRepositorypermissions")
instance ToJSON GithubRepositorypermissions where
  toJSON = genericToJSON (removeFieldLabelPrefix False "githubRepositorypermissions")

-- |
data GithubRespositoryContainer = GithubRespositoryContainer
  { githubRespositoryContainerUnderscoreclass :: Maybe Text -- ^
  , githubRespositoryContainerUnderscorelinks :: Maybe GithubRespositoryContainerlinks -- ^
  , githubRespositoryContainerRepositories :: Maybe GithubRepositories -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON GithubRespositoryContainer where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "githubRespositoryContainer")
instance ToJSON GithubRespositoryContainer where
  toJSON = genericToJSON (removeFieldLabelPrefix False "githubRespositoryContainer")

-- |
data GithubRespositoryContainerlinks = GithubRespositoryContainerlinks
  { githubRespositoryContainerlinksSelf :: Maybe Link -- ^
  , githubRespositoryContainerlinksUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON GithubRespositoryContainerlinks where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "githubRespositoryContainerlinks")
instance ToJSON GithubRespositoryContainerlinks where
  toJSON = genericToJSON (removeFieldLabelPrefix False "githubRespositoryContainerlinks")

-- |
data GithubScm = GithubScm
  { githubScmUnderscoreclass :: Maybe Text -- ^
  , githubScmUnderscorelinks :: Maybe GithubScmlinks -- ^
  , githubScmCredentialId :: Maybe Text -- ^
  , githubScmId :: Maybe Text -- ^
  , githubScmUri :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON GithubScm where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "githubScm")
instance ToJSON GithubScm where
  toJSON = genericToJSON (removeFieldLabelPrefix False "githubScm")

-- |
data GithubScmlinks = GithubScmlinks
  { githubScmlinksSelf :: Maybe Link -- ^
  , githubScmlinksUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON GithubScmlinks where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "githubScmlinks")
instance ToJSON GithubScmlinks where
  toJSON = genericToJSON (removeFieldLabelPrefix False "githubScmlinks")

-- |
data Hudson = Hudson
  { hudsonUnderscoreclass :: Maybe Text -- ^
  , hudsonAssignedLabels :: Maybe [HudsonassignedLabels] -- ^
  , hudsonMode :: Maybe Text -- ^
  , hudsonNodeDescription :: Maybe Text -- ^
  , hudsonNodeName :: Maybe Text -- ^
  , hudsonNumExecutors :: Maybe Int -- ^
  , hudsonDescription :: Maybe Text -- ^
  , hudsonJobs :: Maybe [FreeStyleProject] -- ^
  , hudsonPrimaryView :: Maybe AllView -- ^
  , hudsonQuietingDown :: Maybe Bool -- ^
  , hudsonSlaveAgentPort :: Maybe Int -- ^
  , hudsonUnlabeledLoad :: Maybe UnlabeledLoadStatistics -- ^
  , hudsonUseCrumbs :: Maybe Bool -- ^
  , hudsonUseSecurity :: Maybe Bool -- ^
  , hudsonViews :: Maybe [AllView] -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON Hudson where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "hudson")
instance ToJSON Hudson where
  toJSON = genericToJSON (removeFieldLabelPrefix False "hudson")

-- |
data HudsonMasterComputer = HudsonMasterComputer
  { hudsonMasterComputerUnderscoreclass :: Maybe Text -- ^
  , hudsonMasterComputerDisplayName :: Maybe Text -- ^
  , hudsonMasterComputerExecutors :: Maybe [HudsonMasterComputerexecutors] -- ^
  , hudsonMasterComputerIcon :: Maybe Text -- ^
  , hudsonMasterComputerIconClassName :: Maybe Text -- ^
  , hudsonMasterComputerIdle :: Maybe Bool -- ^
  , hudsonMasterComputerJnlpAgent :: Maybe Bool -- ^
  , hudsonMasterComputerLaunchSupported :: Maybe Bool -- ^
  , hudsonMasterComputerLoadStatistics :: Maybe Label1 -- ^
  , hudsonMasterComputerManualLaunchAllowed :: Maybe Bool -- ^
  , hudsonMasterComputerMonitorData :: Maybe HudsonMasterComputermonitorData -- ^
  , hudsonMasterComputerNumExecutors :: Maybe Int -- ^
  , hudsonMasterComputerOffline :: Maybe Bool -- ^
  , hudsonMasterComputerOfflineCause :: Maybe Text -- ^
  , hudsonMasterComputerOfflineCauseReason :: Maybe Text -- ^
  , hudsonMasterComputerTemporarilyOffline :: Maybe Bool -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON HudsonMasterComputer where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "hudsonMasterComputer")
instance ToJSON HudsonMasterComputer where
  toJSON = genericToJSON (removeFieldLabelPrefix False "hudsonMasterComputer")

-- |
data HudsonMasterComputerexecutors = HudsonMasterComputerexecutors
  { hudsonMasterComputerexecutorsCurrentExecutable :: Maybe FreeStyleBuild -- ^
  , hudsonMasterComputerexecutorsIdle :: Maybe Bool -- ^
  , hudsonMasterComputerexecutorsLikelyStuck :: Maybe Bool -- ^
  , hudsonMasterComputerexecutorsNumber :: Maybe Int -- ^
  , hudsonMasterComputerexecutorsProgress :: Maybe Int -- ^
  , hudsonMasterComputerexecutorsUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON HudsonMasterComputerexecutors where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "hudsonMasterComputerexecutors")
instance ToJSON HudsonMasterComputerexecutors where
  toJSON = genericToJSON (removeFieldLabelPrefix False "hudsonMasterComputerexecutors")

-- |
data HudsonMasterComputermonitorData = HudsonMasterComputermonitorData
  { hudsonMasterComputermonitorDataHudsonPeriodnodeUnderscoremonitorsPeriodSwapSpaceMonitor :: Maybe SwapSpaceMonitorMemoryUsage2 -- ^
  , hudsonMasterComputermonitorDataHudsonPeriodnodeUnderscoremonitorsPeriodTemporarySpaceMonitor :: Maybe DiskSpaceMonitorDescriptorDiskSpace -- ^
  , hudsonMasterComputermonitorDataHudsonPeriodnodeUnderscoremonitorsPeriodDiskSpaceMonitor :: Maybe DiskSpaceMonitorDescriptorDiskSpace -- ^
  , hudsonMasterComputermonitorDataHudsonPeriodnodeUnderscoremonitorsPeriodArchitectureMonitor :: Maybe Text -- ^
  , hudsonMasterComputermonitorDataHudsonPeriodnodeUnderscoremonitorsPeriodResponseTimeMonitor :: Maybe ResponseTimeMonitorData -- ^
  , hudsonMasterComputermonitorDataHudsonPeriodnodeUnderscoremonitorsPeriodClockMonitor :: Maybe ClockDifference -- ^
  , hudsonMasterComputermonitorDataUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON HudsonMasterComputermonitorData where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "hudsonMasterComputermonitorData")
instance ToJSON HudsonMasterComputermonitorData where
  toJSON = genericToJSON (removeFieldLabelPrefix False "hudsonMasterComputermonitorData")

-- |
data HudsonassignedLabels = HudsonassignedLabels
  { hudsonassignedLabelsUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON HudsonassignedLabels where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "hudsonassignedLabels")
instance ToJSON HudsonassignedLabels where
  toJSON = genericToJSON (removeFieldLabelPrefix False "hudsonassignedLabels")

-- |
data InputStepImpl = InputStepImpl
  { inputStepImplUnderscoreclass :: Maybe Text -- ^
  , inputStepImplUnderscorelinks :: Maybe InputStepImpllinks -- ^
  , inputStepImplId :: Maybe Text -- ^
  , inputStepImplMessage :: Maybe Text -- ^
  , inputStepImplOk :: Maybe Text -- ^
  , inputStepImplParameters :: Maybe [StringParameterDefinition] -- ^
  , inputStepImplSubmitter :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON InputStepImpl where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "inputStepImpl")
instance ToJSON InputStepImpl where
  toJSON = genericToJSON (removeFieldLabelPrefix False "inputStepImpl")

-- |
data InputStepImpllinks = InputStepImpllinks
  { inputStepImpllinksSelf :: Maybe Link -- ^
  , inputStepImpllinksUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON InputStepImpllinks where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "inputStepImpllinks")
instance ToJSON InputStepImpllinks where
  toJSON = genericToJSON (removeFieldLabelPrefix False "inputStepImpllinks")

-- |
data Label1 = Label1
  { label1Underscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON Label1 where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "label1")
instance ToJSON Label1 where
  toJSON = genericToJSON (removeFieldLabelPrefix False "label1")

-- |
data Link = Link
  { linkUnderscoreclass :: Maybe Text -- ^
  , linkHref :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON Link where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "link")
instance ToJSON Link where
  toJSON = genericToJSON (removeFieldLabelPrefix False "link")

-- |
data ListView = ListView
  { listViewUnderscoreclass :: Maybe Text -- ^
  , listViewDescription :: Maybe Text -- ^
  , listViewJobs :: Maybe [FreeStyleProject] -- ^
  , listViewName :: Maybe Text -- ^
  , listViewUrl :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON ListView where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "listView")
instance ToJSON ListView where
  toJSON = genericToJSON (removeFieldLabelPrefix False "listView")

-- |
data MultibranchPipeline = MultibranchPipeline
  { multibranchPipelineDisplayName :: Maybe Text -- ^
  , multibranchPipelineEstimatedDurationInMillis :: Maybe Int -- ^
  , multibranchPipelineLatestRun :: Maybe Text -- ^
  , multibranchPipelineName :: Maybe Text -- ^
  , multibranchPipelineOrganization :: Maybe Text -- ^
  , multibranchPipelineWeatherScore :: Maybe Int -- ^
  , multibranchPipelineBranchNames :: Maybe [Text] -- ^
  , multibranchPipelineNumberOfFailingBranches :: Maybe Int -- ^
  , multibranchPipelineNumberOfFailingPullRequests :: Maybe Int -- ^
  , multibranchPipelineNumberOfSuccessfulBranches :: Maybe Int -- ^
  , multibranchPipelineNumberOfSuccessfulPullRequests :: Maybe Int -- ^
  , multibranchPipelineTotalNumberOfBranches :: Maybe Int -- ^
  , multibranchPipelineTotalNumberOfPullRequests :: Maybe Int -- ^
  , multibranchPipelineUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON MultibranchPipeline where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "multibranchPipeline")
instance ToJSON MultibranchPipeline where
  toJSON = genericToJSON (removeFieldLabelPrefix False "multibranchPipeline")

-- |
data NullSCM = NullSCM
  { nullSCMUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON NullSCM where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "nullSCM")
instance ToJSON NullSCM where
  toJSON = genericToJSON (removeFieldLabelPrefix False "nullSCM")

-- |
data Organisation = Organisation
  { organisationUnderscoreclass :: Maybe Text -- ^
  , organisationName :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON Organisation where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "organisation")
instance ToJSON Organisation where
  toJSON = genericToJSON (removeFieldLabelPrefix False "organisation")

-- |
data Pipeline = Pipeline
  { pipelineUnderscoreclass :: Maybe Text -- ^
  , pipelineOrganization :: Maybe Text -- ^
  , pipelineName :: Maybe Text -- ^
  , pipelineDisplayName :: Maybe Text -- ^
  , pipelineFullName :: Maybe Text -- ^
  , pipelineWeatherScore :: Maybe Int -- ^
  , pipelineEstimatedDurationInMillis :: Maybe Int -- ^
  , pipelineLatestRun :: Maybe PipelinelatestRun -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON Pipeline where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipeline")
instance ToJSON Pipeline where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipeline")

-- |
data PipelineActivity = PipelineActivity
  { pipelineActivityUnderscoreclass :: Maybe Text -- ^
  , pipelineActivityArtifacts :: Maybe [PipelineActivityartifacts] -- ^
  , pipelineActivityDurationInMillis :: Maybe Int -- ^
  , pipelineActivityEstimatedDurationInMillis :: Maybe Int -- ^
  , pipelineActivityEnQueueTime :: Maybe Text -- ^
  , pipelineActivityEndTime :: Maybe Text -- ^
  , pipelineActivityId :: Maybe Text -- ^
  , pipelineActivityOrganization :: Maybe Text -- ^
  , pipelineActivityPipeline :: Maybe Text -- ^
  , pipelineActivityResult :: Maybe Text -- ^
  , pipelineActivityRunSummary :: Maybe Text -- ^
  , pipelineActivityStartTime :: Maybe Text -- ^
  , pipelineActivityState :: Maybe Text -- ^
  , pipelineActivityType :: Maybe Text -- ^
  , pipelineActivityCommitId :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineActivity where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineActivity")
instance ToJSON PipelineActivity where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineActivity")

-- |
data PipelineActivityartifacts = PipelineActivityartifacts
  { pipelineActivityartifactsName :: Maybe Text -- ^
  , pipelineActivityartifactsSize :: Maybe Int -- ^
  , pipelineActivityartifactsUrl :: Maybe Text -- ^
  , pipelineActivityartifactsUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineActivityartifacts where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineActivityartifacts")
instance ToJSON PipelineActivityartifacts where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineActivityartifacts")

-- |
data PipelineBranchesitem = PipelineBranchesitem
  { pipelineBranchesitemDisplayName :: Maybe Text -- ^
  , pipelineBranchesitemEstimatedDurationInMillis :: Maybe Int -- ^
  , pipelineBranchesitemName :: Maybe Text -- ^
  , pipelineBranchesitemWeatherScore :: Maybe Int -- ^
  , pipelineBranchesitemLatestRun :: Maybe PipelineBranchesitemlatestRun -- ^
  , pipelineBranchesitemOrganization :: Maybe Text -- ^
  , pipelineBranchesitemPullRequest :: Maybe PipelineBranchesitempullRequest -- ^
  , pipelineBranchesitemTotalNumberOfPullRequests :: Maybe Int -- ^
  , pipelineBranchesitemUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineBranchesitem where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineBranchesitem")
instance ToJSON PipelineBranchesitem where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineBranchesitem")

-- |
data PipelineBranchesitemlatestRun = PipelineBranchesitemlatestRun
  { pipelineBranchesitemlatestRunDurationInMillis :: Maybe Int -- ^
  , pipelineBranchesitemlatestRunEstimatedDurationInMillis :: Maybe Int -- ^
  , pipelineBranchesitemlatestRunEnQueueTime :: Maybe Text -- ^
  , pipelineBranchesitemlatestRunEndTime :: Maybe Text -- ^
  , pipelineBranchesitemlatestRunId :: Maybe Text -- ^
  , pipelineBranchesitemlatestRunOrganization :: Maybe Text -- ^
  , pipelineBranchesitemlatestRunPipeline :: Maybe Text -- ^
  , pipelineBranchesitemlatestRunResult :: Maybe Text -- ^
  , pipelineBranchesitemlatestRunRunSummary :: Maybe Text -- ^
  , pipelineBranchesitemlatestRunStartTime :: Maybe Text -- ^
  , pipelineBranchesitemlatestRunState :: Maybe Text -- ^
  , pipelineBranchesitemlatestRunType :: Maybe Text -- ^
  , pipelineBranchesitemlatestRunCommitId :: Maybe Text -- ^
  , pipelineBranchesitemlatestRunUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineBranchesitemlatestRun where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineBranchesitemlatestRun")
instance ToJSON PipelineBranchesitemlatestRun where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineBranchesitemlatestRun")

-- |
data PipelineBranchesitempullRequest = PipelineBranchesitempullRequest
  { pipelineBranchesitempullRequestUnderscorelinks :: Maybe PipelineBranchesitempullRequestlinks -- ^
  , pipelineBranchesitempullRequestAuthor :: Maybe Text -- ^
  , pipelineBranchesitempullRequestId :: Maybe Text -- ^
  , pipelineBranchesitempullRequestTitle :: Maybe Text -- ^
  , pipelineBranchesitempullRequestUrl :: Maybe Text -- ^
  , pipelineBranchesitempullRequestUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineBranchesitempullRequest where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineBranchesitempullRequest")
instance ToJSON PipelineBranchesitempullRequest where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineBranchesitempullRequest")

-- |
data PipelineBranchesitempullRequestlinks = PipelineBranchesitempullRequestlinks
  { pipelineBranchesitempullRequestlinksSelf :: Maybe Text -- ^
  , pipelineBranchesitempullRequestlinksUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineBranchesitempullRequestlinks where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineBranchesitempullRequestlinks")
instance ToJSON PipelineBranchesitempullRequestlinks where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineBranchesitempullRequestlinks")

-- |
data PipelineFolderImpl = PipelineFolderImpl
  { pipelineFolderImplUnderscoreclass :: Maybe Text -- ^
  , pipelineFolderImplDisplayName :: Maybe Text -- ^
  , pipelineFolderImplFullName :: Maybe Text -- ^
  , pipelineFolderImplName :: Maybe Text -- ^
  , pipelineFolderImplOrganization :: Maybe Text -- ^
  , pipelineFolderImplNumberOfFolders :: Maybe Int -- ^
  , pipelineFolderImplNumberOfPipelines :: Maybe Int -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineFolderImpl where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineFolderImpl")
instance ToJSON PipelineFolderImpl where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineFolderImpl")

-- |
data PipelineImpl = PipelineImpl
  { pipelineImplUnderscoreclass :: Maybe Text -- ^
  , pipelineImplDisplayName :: Maybe Text -- ^
  , pipelineImplEstimatedDurationInMillis :: Maybe Int -- ^
  , pipelineImplFullName :: Maybe Text -- ^
  , pipelineImplLatestRun :: Maybe Text -- ^
  , pipelineImplName :: Maybe Text -- ^
  , pipelineImplOrganization :: Maybe Text -- ^
  , pipelineImplWeatherScore :: Maybe Int -- ^
  , pipelineImplUnderscorelinks :: Maybe PipelineImpllinks -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineImpl where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineImpl")
instance ToJSON PipelineImpl where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineImpl")

-- |
data PipelineImpllinks = PipelineImpllinks
  { pipelineImpllinksRuns :: Maybe Link -- ^
  , pipelineImpllinksSelf :: Maybe Link -- ^
  , pipelineImpllinksQueue :: Maybe Link -- ^
  , pipelineImpllinksActions :: Maybe Link -- ^
  , pipelineImpllinksUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineImpllinks where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineImpllinks")
instance ToJSON PipelineImpllinks where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineImpllinks")

-- |
data PipelineRun = PipelineRun
  { pipelineRunUnderscoreclass :: Maybe Text -- ^
  , pipelineRunArtifacts :: Maybe [PipelineRunartifacts] -- ^
  , pipelineRunDurationInMillis :: Maybe Int -- ^
  , pipelineRunEstimatedDurationInMillis :: Maybe Int -- ^
  , pipelineRunEnQueueTime :: Maybe Text -- ^
  , pipelineRunEndTime :: Maybe Text -- ^
  , pipelineRunId :: Maybe Text -- ^
  , pipelineRunOrganization :: Maybe Text -- ^
  , pipelineRunPipeline :: Maybe Text -- ^
  , pipelineRunResult :: Maybe Text -- ^
  , pipelineRunRunSummary :: Maybe Text -- ^
  , pipelineRunStartTime :: Maybe Text -- ^
  , pipelineRunState :: Maybe Text -- ^
  , pipelineRunType :: Maybe Text -- ^
  , pipelineRunCommitId :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineRun where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineRun")
instance ToJSON PipelineRun where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineRun")

-- |
data PipelineRunImpl = PipelineRunImpl
  { pipelineRunImplUnderscoreclass :: Maybe Text -- ^
  , pipelineRunImplUnderscorelinks :: Maybe PipelineRunImpllinks -- ^
  , pipelineRunImplDurationInMillis :: Maybe Int -- ^
  , pipelineRunImplEnQueueTime :: Maybe Text -- ^
  , pipelineRunImplEndTime :: Maybe Text -- ^
  , pipelineRunImplEstimatedDurationInMillis :: Maybe Int -- ^
  , pipelineRunImplId :: Maybe Text -- ^
  , pipelineRunImplOrganization :: Maybe Text -- ^
  , pipelineRunImplPipeline :: Maybe Text -- ^
  , pipelineRunImplResult :: Maybe Text -- ^
  , pipelineRunImplRunSummary :: Maybe Text -- ^
  , pipelineRunImplStartTime :: Maybe Text -- ^
  , pipelineRunImplState :: Maybe Text -- ^
  , pipelineRunImplType :: Maybe Text -- ^
  , pipelineRunImplCommitId :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineRunImpl where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineRunImpl")
instance ToJSON PipelineRunImpl where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineRunImpl")

-- |
data PipelineRunImpllinks = PipelineRunImpllinks
  { pipelineRunImpllinksNodes :: Maybe Link -- ^
  , pipelineRunImpllinksLog :: Maybe Link -- ^
  , pipelineRunImpllinksSelf :: Maybe Link -- ^
  , pipelineRunImpllinksActions :: Maybe Link -- ^
  , pipelineRunImpllinksSteps :: Maybe Link -- ^
  , pipelineRunImpllinksUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineRunImpllinks where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineRunImpllinks")
instance ToJSON PipelineRunImpllinks where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineRunImpllinks")

-- |
data PipelineRunNode = PipelineRunNode
  { pipelineRunNodeUnderscoreclass :: Maybe Text -- ^
  , pipelineRunNodeDisplayName :: Maybe Text -- ^
  , pipelineRunNodeDurationInMillis :: Maybe Int -- ^
  , pipelineRunNodeEdges :: Maybe [PipelineRunNodeedges] -- ^
  , pipelineRunNodeId :: Maybe Text -- ^
  , pipelineRunNodeResult :: Maybe Text -- ^
  , pipelineRunNodeStartTime :: Maybe Text -- ^
  , pipelineRunNodeState :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineRunNode where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineRunNode")
instance ToJSON PipelineRunNode where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineRunNode")

-- |
data PipelineRunNodeedges = PipelineRunNodeedges
  { pipelineRunNodeedgesId :: Maybe Text -- ^
  , pipelineRunNodeedgesUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineRunNodeedges where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineRunNodeedges")
instance ToJSON PipelineRunNodeedges where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineRunNodeedges")

-- |
data PipelineRunartifacts = PipelineRunartifacts
  { pipelineRunartifactsName :: Maybe Text -- ^
  , pipelineRunartifactsSize :: Maybe Int -- ^
  , pipelineRunartifactsUrl :: Maybe Text -- ^
  , pipelineRunartifactsUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineRunartifacts where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineRunartifacts")
instance ToJSON PipelineRunartifacts where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineRunartifacts")

-- |
data PipelineStepImpl = PipelineStepImpl
  { pipelineStepImplUnderscoreclass :: Maybe Text -- ^
  , pipelineStepImplUnderscorelinks :: Maybe PipelineStepImpllinks -- ^
  , pipelineStepImplDisplayName :: Maybe Text -- ^
  , pipelineStepImplDurationInMillis :: Maybe Int -- ^
  , pipelineStepImplId :: Maybe Text -- ^
  , pipelineStepImplInput :: Maybe InputStepImpl -- ^
  , pipelineStepImplResult :: Maybe Text -- ^
  , pipelineStepImplStartTime :: Maybe Text -- ^
  , pipelineStepImplState :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineStepImpl where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineStepImpl")
instance ToJSON PipelineStepImpl where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineStepImpl")

-- |
data PipelineStepImpllinks = PipelineStepImpllinks
  { pipelineStepImpllinksSelf :: Maybe Link -- ^
  , pipelineStepImpllinksActions :: Maybe Link -- ^
  , pipelineStepImpllinksUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelineStepImpllinks where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelineStepImpllinks")
instance ToJSON PipelineStepImpllinks where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelineStepImpllinks")

-- |
data PipelinelatestRun = PipelinelatestRun
  { pipelinelatestRunArtifacts :: Maybe [PipelinelatestRunartifacts] -- ^
  , pipelinelatestRunDurationInMillis :: Maybe Int -- ^
  , pipelinelatestRunEstimatedDurationInMillis :: Maybe Int -- ^
  , pipelinelatestRunEnQueueTime :: Maybe Text -- ^
  , pipelinelatestRunEndTime :: Maybe Text -- ^
  , pipelinelatestRunId :: Maybe Text -- ^
  , pipelinelatestRunOrganization :: Maybe Text -- ^
  , pipelinelatestRunPipeline :: Maybe Text -- ^
  , pipelinelatestRunResult :: Maybe Text -- ^
  , pipelinelatestRunRunSummary :: Maybe Text -- ^
  , pipelinelatestRunStartTime :: Maybe Text -- ^
  , pipelinelatestRunState :: Maybe Text -- ^
  , pipelinelatestRunType :: Maybe Text -- ^
  , pipelinelatestRunCommitId :: Maybe Text -- ^
  , pipelinelatestRunUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelinelatestRun where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelinelatestRun")
instance ToJSON PipelinelatestRun where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelinelatestRun")

-- |
data PipelinelatestRunartifacts = PipelinelatestRunartifacts
  { pipelinelatestRunartifactsName :: Maybe Text -- ^
  , pipelinelatestRunartifactsSize :: Maybe Int -- ^
  , pipelinelatestRunartifactsUrl :: Maybe Text -- ^
  , pipelinelatestRunartifactsUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON PipelinelatestRunartifacts where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "pipelinelatestRunartifacts")
instance ToJSON PipelinelatestRunartifacts where
  toJSON = genericToJSON (removeFieldLabelPrefix False "pipelinelatestRunartifacts")

-- |
data Queue = Queue
  { queueUnderscoreclass :: Maybe Text -- ^
  , queueItems :: Maybe [QueueBlockedItem] -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON Queue where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "queue")
instance ToJSON Queue where
  toJSON = genericToJSON (removeFieldLabelPrefix False "queue")

-- |
data QueueBlockedItem = QueueBlockedItem
  { queueBlockedItemUnderscoreclass :: Maybe Text -- ^
  , queueBlockedItemActions :: Maybe [CauseAction] -- ^
  , queueBlockedItemBlocked :: Maybe Bool -- ^
  , queueBlockedItemBuildable :: Maybe Bool -- ^
  , queueBlockedItemId :: Maybe Int -- ^
  , queueBlockedItemInQueueSince :: Maybe Int -- ^
  , queueBlockedItemParams :: Maybe Text -- ^
  , queueBlockedItemStuck :: Maybe Bool -- ^
  , queueBlockedItemTask :: Maybe FreeStyleProject -- ^
  , queueBlockedItemUrl :: Maybe Text -- ^
  , queueBlockedItemWhy :: Maybe Text -- ^
  , queueBlockedItemBuildableStartMilliseconds :: Maybe Int -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON QueueBlockedItem where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "queueBlockedItem")
instance ToJSON QueueBlockedItem where
  toJSON = genericToJSON (removeFieldLabelPrefix False "queueBlockedItem")

-- |
data QueueItemImpl = QueueItemImpl
  { queueItemImplUnderscoreclass :: Maybe Text -- ^
  , queueItemImplExpectedBuildNumber :: Maybe Int -- ^
  , queueItemImplId :: Maybe Text -- ^
  , queueItemImplPipeline :: Maybe Text -- ^
  , queueItemImplQueuedTime :: Maybe Int -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON QueueItemImpl where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "queueItemImpl")
instance ToJSON QueueItemImpl where
  toJSON = genericToJSON (removeFieldLabelPrefix False "queueItemImpl")

-- |
data QueueLeftItem = QueueLeftItem
  { queueLeftItemUnderscoreclass :: Maybe Text -- ^
  , queueLeftItemActions :: Maybe [CauseAction] -- ^
  , queueLeftItemBlocked :: Maybe Bool -- ^
  , queueLeftItemBuildable :: Maybe Bool -- ^
  , queueLeftItemId :: Maybe Int -- ^
  , queueLeftItemInQueueSince :: Maybe Int -- ^
  , queueLeftItemParams :: Maybe Text -- ^
  , queueLeftItemStuck :: Maybe Bool -- ^
  , queueLeftItemTask :: Maybe FreeStyleProject -- ^
  , queueLeftItemUrl :: Maybe Text -- ^
  , queueLeftItemWhy :: Maybe Text -- ^
  , queueLeftItemCancelled :: Maybe Bool -- ^
  , queueLeftItemExecutable :: Maybe FreeStyleBuild -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON QueueLeftItem where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "queueLeftItem")
instance ToJSON QueueLeftItem where
  toJSON = genericToJSON (removeFieldLabelPrefix False "queueLeftItem")

-- |
data ResponseTimeMonitorData = ResponseTimeMonitorData
  { responseTimeMonitorDataUnderscoreclass :: Maybe Text -- ^
  , responseTimeMonitorDataTimestamp :: Maybe Int -- ^
  , responseTimeMonitorDataAverage :: Maybe Int -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON ResponseTimeMonitorData where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "responseTimeMonitorData")
instance ToJSON ResponseTimeMonitorData where
  toJSON = genericToJSON (removeFieldLabelPrefix False "responseTimeMonitorData")

-- |
data StringParameterDefinition = StringParameterDefinition
  { stringParameterDefinitionUnderscoreclass :: Maybe Text -- ^
  , stringParameterDefinitionDefaultParameterValue :: Maybe StringParameterValue -- ^
  , stringParameterDefinitionDescription :: Maybe Text -- ^
  , stringParameterDefinitionName :: Maybe Text -- ^
  , stringParameterDefinitionType :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON StringParameterDefinition where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "stringParameterDefinition")
instance ToJSON StringParameterDefinition where
  toJSON = genericToJSON (removeFieldLabelPrefix False "stringParameterDefinition")

-- |
data StringParameterValue = StringParameterValue
  { stringParameterValueUnderscoreclass :: Maybe Text -- ^
  , stringParameterValueName :: Maybe Text -- ^
  , stringParameterValueValue :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON StringParameterValue where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "stringParameterValue")
instance ToJSON StringParameterValue where
  toJSON = genericToJSON (removeFieldLabelPrefix False "stringParameterValue")

-- |
data SwapSpaceMonitorMemoryUsage2 = SwapSpaceMonitorMemoryUsage2
  { swapSpaceMonitorMemoryUsage2Underscoreclass :: Maybe Text -- ^
  , swapSpaceMonitorMemoryUsage2AvailablePhysicalMemory :: Maybe Int -- ^
  , swapSpaceMonitorMemoryUsage2AvailableSwapSpace :: Maybe Int -- ^
  , swapSpaceMonitorMemoryUsage2TotalPhysicalMemory :: Maybe Int -- ^
  , swapSpaceMonitorMemoryUsage2TotalSwapSpace :: Maybe Int -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON SwapSpaceMonitorMemoryUsage2 where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "swapSpaceMonitorMemoryUsage2")
instance ToJSON SwapSpaceMonitorMemoryUsage2 where
  toJSON = genericToJSON (removeFieldLabelPrefix False "swapSpaceMonitorMemoryUsage2")

-- |
data UnlabeledLoadStatistics = UnlabeledLoadStatistics
  { unlabeledLoadStatisticsUnderscoreclass :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON UnlabeledLoadStatistics where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "unlabeledLoadStatistics")
instance ToJSON UnlabeledLoadStatistics where
  toJSON = genericToJSON (removeFieldLabelPrefix False "unlabeledLoadStatistics")

-- |
data User = User
  { userUnderscoreclass :: Maybe Text -- ^
  , userId :: Maybe Text -- ^
  , userFullName :: Maybe Text -- ^
  , userEmail :: Maybe Text -- ^
  , userName :: Maybe Text -- ^
  } deriving (Show, Eq, Generic)

instance FromJSON User where
  parseJSON = genericParseJSON (removeFieldLabelPrefix True "user")
instance ToJSON User where
  toJSON = genericToJSON (removeFieldLabelPrefix False "user")

uncapitalize :: String -> String
uncapitalize (c : cs) = Char.toLower c : cs
uncapitalize [] = []

-- | Remove a field label prefix during JSON parsing.
--   Also perform any replacements for special characters.
--   The @forParsing@ parameter is to distinguish between the cases in which we're using this
--   to power a @FromJSON@ or a @ToJSON@ instance. In the first case we're parsing, and we want
--   to replace special characters with their quoted equivalents (because we cannot have special
--   chars in identifier names), while we want to do vice versa when sending data instead.
removeFieldLabelPrefix :: Bool -> String -> Options
removeFieldLabelPrefix forParsing prefix =
  defaultOptions
    { omitNothingFields  = True
    , fieldLabelModifier = uncapitalize . fromMaybe (error ("did not find prefix " ++ prefix)) . stripPrefix prefix . replaceSpecialChars
    }
  where
    replaceSpecialChars field = foldl (&) field (map mkCharReplacement specialChars)
    specialChars =
      [ ("$", "'Dollar")
      , ("^", "'Caret")
      , ("|", "'Pipe")
      , ("=", "'Equal")
      , ("*", "'Star")
      , ("-", "'Dash")
      , ("&", "'Ampersand")
      , ("%", "'Percent")
      , ("#", "'Hash")
      , ("@", "'At")
      , ("!", "'Exclamation")
      , ("+", "'Plus")
      , (":", "'Colon")
      , (";", "'Semicolon")
      , (">", "'GreaterThan")
      , ("<", "'LessThan")
      , (".", "'Period")
      , ("_", "'Underscore")
      , ("?", "'Question_Mark")
      , (",", "'Comma")
      , ("'", "'Quote")
      , ("/", "'Slash")
      , ("(", "'Left_Parenthesis")
      , (")", "'Right_Parenthesis")
      , ("{", "'Left_Curly_Bracket")
      , ("}", "'Right_Curly_Bracket")
      , ("[", "'Left_Square_Bracket")
      , ("]", "'Right_Square_Bracket")
      , ("~", "'Tilde")
      , ("`", "'Backtick")
      , ("<=", "'Less_Than_Or_Equal_To")
      , (">=", "'Greater_Than_Or_Equal_To")
      , ("!=", "'Not_Equal")
      , ("~=", "'Tilde_Equal")
      , ("\\", "'Back_Slash")
      , ("\"", "'Double_Quote")
      ]
    mkCharReplacement (replaceStr, searchStr) = T.unpack . replacer (T.pack searchStr) (T.pack replaceStr) . T.pack
    replacer =
      if forParsing
        then flip T.replace
        else T.replace

redpajama_set_name: RedPajamaGithub


therafateers.com Page 665 - 40 Contemporary Fence Flange Sets. 40 Luxury Cost for Wood Fence Sets. 40 Luxury Wood Privacy Fence Panels Sets.
Tags : cost for botox. cost for septic system canada. cost for vietnam visa. cost for a trip to cuba. cost for fishing license in ontario. cost for baseboards. cost for eavestrough installation.
Tags : aluminum fence no dig. aluminum fence options. aluminum fence locks. aluminum fence sections. aluminum fence queens ny. aluminum fence vancouver. qce aluminum fence st louis mo. aluminum fence vs steel.
Tags : wire fence design ideas. wire fence how to install. wire fence names. wire fence livestock. wire fence extender. wire fence revit. wire fence near me.
Tags : front yard vases. front yard decor. front yard courtyard wall. front yard jerk grille. front yard outdoor living. front yard zen. front yard no grass.


An exciting new position for a charismatic and well-presented Maitre d' has now become available within one of London's most well respected Restaurant groups.
Serving over 1000 guests a day, this all-day dining behemoth of a West End restaurant is widely regarded as London's most celebrated dining locations. As Maitre d', you will form an integral part of the front of house management team and be responsible for dealing with all of the guests on arrive and during service.
Please quote the reference given/job title "Maitre'd – High Volume Restaurant and Bar – £32,000 Plus Bonus" in the subject line of your email. Due to the volume of applications we regret that only successful candidates will be contacted.


Stag Beetle Pokémon 4'11" / 8'06"
Sun It zips around, on sharp lookout for an opening. It concentrates electrical energy within its large jaws and uses it to zap its enemies.
Moon It produces electricity via an electrical organ in its abdomen. It overwhelms bird Pokémon with shocking beams of electrical energy.
Ultra Sun It has an organ that generates electricity in its abdomen. It concentrates energy in its strong jaws and fires off powerful jolts of electricity.
Ultra Moon Vikavolt flusters opponents with acrobatic flying maneuvers. This creates an opening for it to deliver an electric beam attack.


It's been 26 months since indoor smoking bans in Springfield and unincorporated Sangamon County went into effect, and some local bar owners and patrons are intent on ignoring the ordinances.
The county has taken the right approach with bar owners who repeatedly allow smoking in their establishment and refuse to obey the law: Fine them and initiate the process of taking away their liquor license.
We believe the county also should be getting tough on individual smokers whose blatant refusal to follow the law puts pressure on the businesses they patronize to disobey it.
Both ordinances have provisions allowing a $50 fine on individuals caught smoking. The county health department should use it.
The smoking ban isn't communism. It isn't totalitarianism. Smoking indoors is not a right enumerated by the U.S. Constitution. It does not deprive bar and restaurant owners of their property rights any more than requiring them to store food at a safe temperature does. The nonsmoking majority is not being tyrannical against smokers.
Sorry, but smokers are not a protected minority. Being amongst a group that engages in a habit that kills you and that could kill those around you does not make you equivalent to those who bled for the right to vote 40 years ago. Your civil disobedience does not make you Martin Luther King.
The city, county and state did not violate anyone's rights by passing the ban and then enforcing it. The law is simple. Smoke 'em if you got 'em. But when you're inside a public place, go outside so that everybody else can breathe clean air inside.
Smokers who don't like the ban have the right to complain, whine and spew hyperbole as thick as the smoke they're inhaling. But this is a law passed by the majority of legislators at the city, county and state level. A majority of the public supports it. Laws must be followed, even by those who do not like them. That's how laws work.
When this was being debated at the county, Sangamon County Board Chairman Andy Van Meter, a supporter of the ban, noted instances throughout human history when facts led us to change our behavior.
"In 1840, our forefathers relinquished the right to let their hogs roam free because roaming swine threatened public health. In 1847, we required every citizen to have a fire bucket at the ready," Van Meter wrote.
The smoking ban also was one of those instances. Legislators passed it because of irrefutable evidence that secondhand smoke is harmful to the health of those who must breathe it in. This probably will be the most important public health law passed this century. Our lawmakers did the right thing and so is the county health department by enforcing the law.


Yes, I am celebrating the abundant life, in spite of my current health issues and fragile bank account. Unlike popular beliefs, the abundant life Jesus promised doesn't center on health or wealth. If it did, we'd eventually lose it, simply because our bodies are temporary and feeble. And Jesus never intended for us to lose that abundant life. It begins here on earth and extends throughout eternity.
Besides if Jesus' idea of the abundant life meant health and wealth every one of His disciples missed out. None of them enjoyed a luxurious life.The beloved John, for an example, was exiled to the island of Patmos because of his testimony. All the other disciples were executed for believing Jesus was the Messiah. Paul lived with a physical infirmity and imprisonment. How did any of their lives line up with the abundant life many Christians claim Jesus wants for us today?
While we're at it, consider all the believers in third-world countries; does Jesus promise not apply to them? How about all the dear saints you know who have serious health issues, have their conditions disqualified them?
The real problem lies not in Jesus' promise for an abundant life but in our interpretation of His meaning. The wealth and health doctrine stems from an earthly view of our temporal lives. We want to live this life without the struggles that come with it. Eliminating financial difficulties and declining physical conditions would certainly ease the pains of this world considerably. But is that what Jesus promised?
Luke 12:15 states something entirely different: Then he [Jesus] said to them, "Watch out! Be on your guard against all kinds of greed; life does not consist in an abundance of possessions." Now either Jesus contradicted Himself in these two statements, or we've misconstrued His meaning. I'm betting on the latter.
So if Jesus' promise of abundant life does not refer to health and/or wealth, what was He promising?
Contentment in all situations. Paul found this to be true, even from prison. He wrote: I know what it is to be in need, and I know what it is to have plenty. I have learned the secret of being content in any and every situation, whether well fed or hungry, whether living in plenty or in want (Philippians 4:12).
Peace that passes all understanding. Jesus gives us peace even in our most difficult situations. "I have told you these things, so that in me you may have peace. In this world you will have trouble. But take heart! I have overcome the world" (John 16:33).
Joy unspeakable and full of glory. When Jesus' peace permeates our lives, we have unspeakable joy. Nothing can disrupt that kind of joy. Now read what Peter said on the topic of joy, "These have come so that the proven genuineness of your faith—of greater worth than gold, which perishes even though refined by fire—may result in praise, glory and honor when Jesus Christ is revealed. Though you have not seen him, you love him; and even though you do not see him now, you believe in him and are filled with an inexpressible and glorious joy, for you are receiving the end result of your faith, the salvation of your souls" (1 Peter 1:7-9).
These are just three of the aspects of the abundant life Jesus promised. Whether you're rich or poor, the picture of health or crippled with disease, these benefits never fade away. They grow stronger and carry the promise of eternal life.
Jesus' reference of an abundant life was never the same as our mortal minds imagine. It was far more superior, more valuable, and more enduring. His plans and promises always are.
How about you? How are you celebrating your abundant life in Christ?